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ABSTRACT 


The PDP-9 Mini Time-Sharing System (MTSS) is a_ small 
general purpose time-sharing system running on a Digital 
Equipment Corporation PDP-9 computer with 8K of core memory 
and three Teletype terminals. MTSS demonstrates the 
practicality of implementing a general purpose time-sharing 
system on such a small computer, and illustrates one way in 
which this can be done. 


MTSS provides the facility for three users 
Simultaneously to load or create, debug, run, and save 
arbitrary machine language programs. These machine language 


programs may exceed (slightly) 7K in length, or may be 
arbitrarily large if assembled in 7K segments. 


MTSS imposes minimum constraint on the content of such 
programs. Physical paper tape, Teletype, and disk 
input/output are available to users using standard I0OT 
instructions. Physical disk and DECtape input/output are 
available to users by means of Special I0OT instructions. 
Logical file operations on disk or the user's own DECtape are 
also available by Special IOT instructions. 


MTSS is designed to permit additional system programs 
and features to be easily added. 
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INTRODUCTION 


The PDP-9 Mini Time-Sharing System ( MTSS) is a general 
purpose time sharing system running on a Digital Equipment 
Corporation (DEC) PDP-9 computer with 8K of core memory. 
MTSS is capable of handling arbitrary user-originated 
machine-language programs whose length may (slightly) exceed 
7K without segmenting, or may be arbitrarily large if 


assembled in 7K segments. 


MTSS is a two-fold project. It serves the educational 
purpose of illustrating one way in which a general purpose 
time-sharing system can be implemented. It is also an 
exploration of the practicality of a general purpose time- 


sharing system on such a small computer. 


Educational Role 


MTSS provides a relatively simple system running ona 
relatively simple hardware setup for students to work with. 
In contrast to a larger public-utility type of system MTSS is 
designed to be easily altered by students to see how changes 
affect the system. MTSS is simple enough for this’ to be 
practical; it is written flexibly enough to permit easy 
addition of system features or system programs. The small 
core size of the PDP=-9 proves to be a much less’ serious 


limitation than one might suppose. One could implement on 
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INTRODUCTION (continued) 


MTSS almost any feature of a larger system he wished to. 


Practicality 


It is interesting to note that the PDP-9 memory 
protection hardware was engineered assuming that it would not 
be used on an 8K machine (see section 4.3: Memory 
Protection). In spite of that, MTSS is a highly flexible 
system capable of giving good service to a limited number of 
users. The main limitation on the number of users is that it 
is difficult to fit very many Teletype line buffers into a 
Resident Executive which is itself only about seven hundred 


(octal) words long. 


MTSS Hardware 


MTSS uses: 
one minimum configuration PDP=-9 including: 

8K of 18 bit core memory 
300 cps paper tape reader 
50 cps paper tape punch 
console Teletype 
16.7 msec real time clock 
high speed I/O data channels 


program interrupt control 
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INTRODUCTION (continued) 


memory protection option 
disk controller with one 256K disk platter 
DECtape controller with two DECtape transports 


Teletype controller with two model KSR33 Teletypes 


These numbers are in no way system limits. In addition 
to the current hardware, MTSS is capable of supporting 
additional disk platters, DHCtapes (DEC's block addressable 
magnetic tape), and additional terminals. MTSS could be 


considerably expanded, should the hardware be purchased. 


System Transparency 


MTSS is designed to permit machine language programs to 
operate as nearly as possible as they would on a dedicated 
machine (i.e. MTSS is designed to permit maximum practical 
system transparency.) Also the user can control from his 
Teletype nearly all of the functions he could normally 
control from the console switches. Transparency makes’ the 
system especially valuable to beginning machine-language 


programmers. 


System transparency permits programs written for the 
PDP-9 to be run under MTSS with minimal alterations. 
Tllustrating this, MTSS currently runs the GROWTH system 


DEBUGGER, LOADER, Standard Teletype handler and standard 
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INTRODUCTION (continued) 


catalog routines. These are run with little change from the 
originals, except to add a few features desirable for MTSS 


users. The BASIC Interpreter is also run this way. 


As an extension to its transparent mode of operation 
MTSS offers users certain Executive services. The user 


requests such services by using "Special IOT instructions". 


MISS System Programs 


MTSS system programs are of three types. The first type 
is the Executive program. The Executive consists of one 
Resident Executive program and (currently) four Executive 
overlays. The overlays are SWAPPER, two Memory Protection 
overlays, and a Special IOT handler. (Special IOT'S are MTSS 


EXECUTIVE service calls.) 


The second type of system program is the Phantom 
program, Phantom programs may be thought of as parts of the 
Executive that run in place of the user for whom they are 
doing a service. Except that they have privileges normally 
reserved for the Executive, and except that they alter 
neither the user's core nor his registers, they are in all 
respects a user program. The name is derived from the fact 
that apart from the service it performs, the user cannot 


detect the presence of a Phantom program. 
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INTRODUCTION (continued) 


The third type of system program is the System-Supplied 
User Program (S-user program). These programs are, at’ the 


user's request, overlaid on his core. 


User Programs 


MTSS permits a user to load (using LOADER) or to create 
(by patching with DDT) his machine language program. The 
user can then debug the program (using DDT) or he can run it 
(from MONITOR or from DDT). Upon completion he can save to 
disk or to DECtape his core image and/or his "physical disk" 


(using LOADER). 


Alternatively he can create and run a BASIC. program 


using the BASIC Interpreter. 


MTSS uses the disk for program storage and for swapping. 
It keeps a copy of each of its files (except the 
initialization and Resident Executive programs) on the disk. 


Each time it needs a program it reads in a fresh copy. 


Also on the disk, for each user, is a place to which he 
can be swapped, a place to which the non-pure portion of any 


Phantom program he caused to run for him can be swapped, and 
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INTRODUCTION (continued) 


an area referred to as the user's "physical. disk". The 
user's "physical disk" is the only area of the disk he can 
reference physically. He can do this either with standard 


IOT instructions or with a Special. 


MTSS files are cataloged in the GROWTH system catalog. 
It is possible for a user to catalog files in the same 
catalog. This practice is strongly discouraged, however, 
else the disk would soon be full. Tt is preferred that the 
user Save his files only on his own DECtape. Files saved on 
either the disk or on the user's own DECtape are completely 
compatable with the major operating system on the dedicated 
machine (the GROWTH system). Likewise, files saved under 


GROWTH are accessible to MTSS. 


System Performance and Verification 


MTSS verification has been somewhat informal. One type 
of verification is that the system runs. Both the Phantom 
programs (MONITOR, LOADER, DDT, and CATALOG) and the S-user 
programs (DEBUGGER and BASIC) run successfully. This set of 
programs includes three written for the system, and three 
written previously with no thought of the system. That all of 
these run successfully is regarded as verification of the 


system's ability to run arbitrary machine-language programs. 
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INTRODUCTION (continued) 


The system's ability to handle infinite loops and large 
amounts of output has been demonstrated by setting from one 
to three Teletypes doing either an infinite loop (and 
verifying that each Teletype was getting it's share of 


service) or doing an infinite core dump to the Teletype. 


User response has always been good. In none of the above 
trials, nor in any specially patched test programs has it 
been possible to deprive any user of his share of processor 
time, to prevent him from returning to MONITOR at will, or to 
prevent him from keeping his Teletype continuously busy with 
output if that was what his program was trying to do. It has 
not been possible to drive user response to be slower than 
one and a half or two seconds, and response is generally 


faster than that. 


The sole exception to these response figures is that if 
one user is doing a DECtape operation, it temporarily 
suspends all system functions except buffered Teletype I/O. 
This produces no noticeable effect generally, but is 
noticeable if a long DECtape operation is involved. A long 
DECtape operation is felt to be rare enough that this is not 


a very Significant shortcoming. 
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Scope 


This thesis project establishes a powerful and flexible 
structure for MTSS. It does not attempt to completely fill 
in this structure more than is necessary to demonstrate the 
important features of it. Thus further program level system 
services would be provided as additional Special IOT 
instructions, possibly requiring additional Special overlays 
or Phantom programs. Improved catalog structure, file- 
building and editing, compilers, and assemblers would all be 
provided as additional Phantom programs. The DATAPHONE and 
Graphics II peripherals could be enabled, but would probably 
each require an additional memory protection overlay. The 
Automatic Priority Interrupt system could be enabled in the 
Same manner as the Program Interrupt system is now, but would 
require a larger Resident Executive, which would. slightly 
exceed 1K, pushing the Executive size up to the next 
boundary, 2K. In the current implementation it was felt 


desirable to allow maximum size user programs. 


Comparison 


It is difficult to compare MTSS directly with other 
small machine time-sharing systems. Most such systems 


require from 12K to 20K minimum core size, and it is not 
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always clear how many users this size can handle. Most such 
systems are then limited to running interpretive programs. 
Perhaps better than most is DEC's PDP=8 system which can run 
user programs of up to 4K in length in a machine with a 


minimum of 12K of core. 


By contrast, MTSS can handle arbitrary programs’ for 
users, MTSS allows 7K user programs to be run in an 8K 
machine, and full size programs to also be debugged. With 
its Phantom and S=-user system program structure added to its 
capability for running arbitrary user-mode machine-language 


programs, MTSS is particularly easy to expand to add system 


services as desired. Adding system services does not make 
MTSS any larger than now, It merely requires more disk 
storage. 


Future Ideas 


There are several minor additions that could be made. 
One could make a virtue of the software echo required for the 
remote Teletypes by adding a mode to refrain from doing the 


echoing, thus concealing input. 


The catalog structure could be changed to permit 
filenames of more than three characters, as well as passwords 


and access bits. 
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There are also some more important additions. To 
conserve core space with a lot of Teletypes, a denser packing 
scheme could be used for Teletype buffers. To minimize 
Teletype buffer size, an improved scheduling algorithm could 
be developed to give a priority for core time to a job which 


has just had it's I/O roadblock status cleared. 


A number of MONITOR commands, including specifically the 
resource allocation and de-allocation commands could be 


handled from programs, possibly. 


If the Resident Executive is allowed to grow, and if the 
Executive overlay area is allowed to grow, the Graphics II 
scope and the DATAPHONE could be enabled, and user API 


service could also be enabled. 


A very useful thing would be to have a fault vector for 
user programs. This should be optionally enabled by either 
a MONITOR command or a Special IOT instruction. It would, 
for example, permit system programs such as: DDT to retain 
control when the user does an illegal operation. It would 


mean that not all currently fatal errors need be so. 


Special IOT instructions for bulk data transfers could 
be eaSily amended to specify a device table entry rather 


than an actual device for the transfer. Then this table 
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could be set either by a MONITOR command or by a Special IOT, 


thus giving programs’ full device independence. 
commands could also be expanded to include 


operations and Teletype operations. 


User CAL instructions should be made legal. 


is done then the DEC V5A operating system can be 
system as a set of S-user programs. There is no 
than the CAL instruction why V5A cannot be run 


fits into 7K. 
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ENVIRONMENT 


MTSS is not operating in a vacuum. To maximize its 
usefulness and to minimize inconvenience for all machine 
users it must take into account established local patterns of 


usage aS well as available hardware. 


4.1 ) Software Environment 


At Dartmouth the PDP-9 is used mainly for two purposes. 
One purpose is to allow actual hands-on machine experience 
for beginning machine language programmers. The other (lower 
priority) purpose is the playing of real-time games on _ the 
Graphics II display scope. The locally programmed GROWTH 
operating system is commonly used; the DEC V5a operating 


system usage is small and declining. 


Most PDP-9 users’ do all of their file building, editing, 
and assembling operations under the Dartmouth Time-Sharing 
System for two reasons. First, DTSS has more familiar and 
more powerful facilities for these things than does the PDP- 
9. Second, this frees the PDP-9 from unnecessary work, 
allowing it to do those things which can be done only on it 
-- the debugging and running of PDP=9 machine language 
programs. MTSS, therefore, accepts all forms of output from 


the DTSS assembler (9MAP). 
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ENVIRONMENT (continued) 


To permit users to easily switch operating systems 
without doing frequent disk saves to and restores from 
DECtape all three systems share the disk (see section 13). 
Since GROWTH is more commonly used than V5A, MTSS and GROWTH 


catalogs and files are interchangeable (see Section 11). 


There are two other fundamental constraints underlying 
MTSS design. One is that, since most machine usage is to 
gain familiarity with machine language programming, maximum 
system transparency should be retained. That is, so far as 
possible, a program running under MTSS should produce’ the 
Same results it would on the bare machine. The other 
constraint is that since we have only 8K of core, users 
should be allowed as much core as possible. Due to the way 
the memory protection hardware works this means restricting 


the operating system to 1K. 


4,2) Relationship Between MTSS, GROWTH, and DTSS 


Neither GROWTH nor MTSS has its own assembler. To create 
a program for the PDP-9 one should create a source file in 
DTSS, assembie it in DTSS using 9MAP, and either punch the 
object file on a paper tape or write it on a DECtape. Copy 
either version onto a DECtape with a GROWTH catalog if you 


wish to. (If you do not know how to do these things consult 
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the GROWTH system documentation which is available both in 
the DTSS file PDP9LIB***:DOCUMENT and in a line printer 


listing binder in the PDP-9 machine room.) 


Files written in any format onto paper tape, disk, or 
DECtape by the GROWTH system are acceptable to MTSS; and 


files created by MTSS are acceptable to GROWTH. 


4.3) Hardware Environment 


MTSS runs on a DEC PDP-9 computer with 8K of core 
memory. Core memory is (optionally) expandable to 32K by 8K 
increments. Memory cycle time is one micro-second. For high 
speed data transfers the memory is accessed by a data channel 


facility. 


Clock 


Timing is controlled by a sixty pulse per second real- 
time clock. The clock can be. enabled or disabled under 
program control. 

Program Interrupt System 
Coordination is achieved through the Program Interrupt 


control (PI), a single level interrupt facility which can be 


Section 4,3 ~14- 


ENVIRONMENT (continued) 


enabled or disabled under program control. All input/output 
devices are interfaced to the PI, as are the clock and 
memory protection violations. Disk and DECtape can be 
disconnected from the PI under program control. Upon receipt 
of an interrupt a flag Search must be made to determine which 


device generated the interrupt. 


Memory Protection 


The memory protection option permits a boundary to be 
set which specifies protected core (locations 0 to boundary - 
1) and unprotected core (locations boundary to the maximum 
core address). This boundary can be set, under program 
control, in 2000(8) word increments. Memory protection 
violations are caused by an attempt to execute any IOT 
instruction, to halt, to OR the accumulator switches into the 
accumulator, to do a memory reference instruction whose 
effective address is below the boundary, or to do an XCT of 
an XCT. The last is because chained xXCT's form a non- 
interruptable sequence. Note that indirect memory 
references where the effective address is fetched froma 
location below the boundary are quite legal if the effective 
address is itself above the boundary. In particular this 
allows the user to reference the auto-index registers 


indirectly (thus altering them), so the Executive may as well 
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ENVIRONMENT (continued) 
allow the user full and correct use of them. 


References to non-existant memory, including disk or 
DECtape data channel transfers past the end of core are 
supposed to be trapped with the non-existant memory 
reference violation flag set. On an 8K PDP=-9, however, this 
flag is not enabled. Non-existant memory references instead 
wrap core (i.e. they are used mod 8K). The result is that 
memory reference instructions will either cause an ordinary 
memory protection violation, or if they are far enough off 
the end of core will be legal. But data channel transfers 
that go off the end of core will not trap. If such a data 
channel transfer were writing to core it could destroy the 
resident Executive. Therefore the system must do enough 


error checking to never let such a transfer get under way. 


User mode can be enabled under program control. It is 
disabled by a program interrupt, by a memory protection 
violation, by a CAL instruction, or by a CAL (indirect) 
instruction, The system must be careful or else a CAL 


(indirect) could seize control of the system. 


Peripheral Devices 


Standard PDP-9 peripheral devices used in MTSS are a 300 


cps paper tape reader, a 50 cpS paper tape punch, and a KSR33 
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Teletype. MTSS currently also has’ one multi-station Teletype 
control and two Teletypes connected to it. The PDP-9 can 
accept up to four Teletype controls, each of which can 
control up to four Teletypes. For these remote Teletypes 
software must echo each character typed. The console Teletype 


has a hardware echo. 


DECtape is DEC's block addressable magnetic tape. A 
single block anywhere on the tape can be read or written. 
Standard DECtape format is 1100(8) blocks of 400(8) words 
each. The DECtape can be attached to or detached from the PI 
system under program control. MTSS has one DECtape control 
and two DECtape transports. The control is capable of 


handling up to eight transports. 


MTSS has one disk control with one 256K fixed head disk 
platter. The disk can be attached to or detached from the PI 
SYSTEM under program control. The control can handle up to 


eight platters. 
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Except for Teletypes it is not practical to make a 
permanent assignment of any resource to a particular user. 
For one thing there would not be enough resources for all 
users. In the second place, even if there were, someone would 
be apt to have a legitimate need for more than his share of 
some resource. The way MTSS handles resource allocation is 
that it permits a user to specify to MONITOR the resources 
he needs. If the resource specified is free it is assigned. 
Otherwise a warning message is printed. When a user is done 
with a resource he must have MONITOR de-allocate it. No one 
can de-allocate anyone else's resource unless he is on a 
control line. An allocation request is a MONITOR command: 

ON <resource> 
A de-allocation is of the form: 

OFF <resource> 
Resources can neither be allocated nor de-allocated under 
program control. Available resources and their abbreviations 
are: 


abbreviation resource name 


ACS hardware: accumulator switches 
DTn DECtape handler #n 

PTR ' paper tape reader 

PTP paper tape punch 

CNT ~ control line 
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When a job tries to execute an ToT instruction 
pertaining to a device not previously allocated to it, the 
job is terminated with an appropriate error message and 


control is returned to MONITOR. 


All flags of devices not allocated to a job will be 


turned off in its software I/O device status word. 


TELETYPES 


Teletype I/O is as nearly transparent to the user as is 
practical. The only character the user cannot use 
indiscriminately is a null (control shift ‘p')., If the user 
types one it will kill his running program, stop all I/O, and 
return control to MONITOR. No character other than null has 
any meaning to the MTSS system when a user program is 


running. 


In order to insure that Teletype $I/O will be 
continuous, even while the user is swapped out for a maximum. 
length of time, The Resident Executive keeps an I/O buffer 
and a one character buffer for each Teletype. The I/O buffer 
is used as either an input buffer or an output buffer at any 
given time. Its purpose is to permit uninterrupted Teletype 


I/O while the running program is swapped out of core. 
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On input, whenever the user types a character other than 
null (or control 'x' if the delete option is on and output is 
in progress), his software keyboard flag is set, his keyboard 
I/O roadblock flag is cleared and the character overwrites 
the previous character in the one-character buffer. If no 
teleprinter output is in progress the character is also 
placed in the next slot in the line buffer. If the buffer is 


full the last character in it is overwritten. 


When the user does a keyboard read buffer (KRB) 
instruction his accumulator will be Supplied with a buffered 
input character. If output is in progress, this will be the 
character from his one-character buffer and his software 
keyboard flag will be cleared. If output is not in progress 
this will be the oldest character from his line buffer; the 
software keyboard flag will be cleared only if it is the last 
character from this buffer. Thereafter, continued KRB's will 
continue to read the same character if there is no more 


input typed. 


When the user program does a keyboard skip on flag 
(KSF) instruction his program is made to skip if and only if 
his software keyboard flag is set. Keyboard I/O roadblock 
occurs when a program does a KSF which fails to skip and is 


followed by a <JMP .-1>. It is relieved whenever the user 
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next sets his software keyboard flag. Thus input is character 
oriented rather than line oriented. This causes an 
inefficiency which is tolerable to a system the size of MTSS 
and which is necessary in order to have reasonable system 


transparency. 


When the user program does a teleprinter send (TLS) 
instruction and the output-in-progress flag is already set, 
its output is placed in the next available character 
position in the line buffer. If the buffer is already full 
the previous character is overwritten. If output is not in 
progress any unread input is destroyed, the character is sent 
to the teleprinter, the software teleprinter flag is set, and 


the output-in-progress flag is set. 


When a program does a TSF the skip will occur if the 
teleprinter flag is set and if there is also room in the 
output buffer. Teleprinter I/O roadblock occurs if the 
program does a TSF which fails to skip and is followed by a 
<JMP .-l>. It is relieved the next time a character is 
printed reducing the amount left in the I/O buffer below the 


cutoff point necessary to maintain comtinuous output. 


Whenever the Resident Executive receives a teleprinter 
interrupt it checks to see whether or not output is already 


in progress. If not, it exits. If so, it tries to get 
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another character to print. If it gets one it prints it; but 
if the buffer is now empty it changes the I/O buffer to an 
input buffer and then checks the software keyboard flag. If 
that is set it copies the character from the one-character 


buffer into the line buffer. 


PAPER TAPE 


Paper Tape Reader and Paper Tape Punch are handled as 
two distinct devices. Each may be assigned to only one job 
at a time. They may be assigned to different jobs or both to 
the same job. Since neither device cares much about real 
time, a software image exists only of their flags. Remaining 


information is kept in the hardware. 


Whenever a paper tape interrupt occurs the Executive 
sets the proper software flag, clears the hardware flag, and 


exits. 


When a job issues a paper tape command an error message 
is printed if the resource has not been allocated to that 
job. Otherwise if the command pertains to the device flag it 
is simulated based on the software flag. Any other paper 


tape command is executed. 


Paper tape I/O is not buffered, so it pauses whenever 
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the job using it is Swapped out of core. 


DISK 


Disk I/O can be permitted to all user's simultaneously, 
Since each user has his own ‘physical disk' and his own set 
of software disk registers and flags. The Executive cannot 
overlap much of anything with disk operations, anyway, so it 
uses non-interrupting disk operations. User programs may use 


either interrupting or non-interrupting disk operations. 


Whenever the Executive gets a disk interrupt it copies 
all of the hardware information into the current job's 


software images and exits. 


A user program may use either standard disk IoT 
instructions or Special IOT instructions to cause transfers 
of data between disk addresses 0 - 17777, and core addresses 
2000 -17777. All disk operations will be simulated by the 
Executive so that they are transparent to the user program. 
The executive will map the disk addresses onto the job's 
"user physical disk". Any attempt to violate either’ the 
disk addressing or core addressing constraints will cause an 
appropriate error message to be printed and the job to be 


terminated with control returned to MONITOR. 
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DECTAPE 


DECtape I/O is not conducted in a transparent manner. It 
is handled solely by Specials. For a DECtape Special to be 
legal it must request the transfer of data between 
unprotected core and a DECtape handler previously allocated 
to the job. If the Special is legal, the transfer will be 
carried out and then control will be returned to the job. 
Otherwise the job will be terminated, an appropriate error 
message will be printed, and control will be returned to 


MONITOR. 


ACCUMULATOR SWITCHES 


The hardware accumulator switches can be read only by a 
job to which they have been allocated. For any other job 
such instructions will be simulated on its software 


"accumulator switches register". 


OTHER 


Other I/O devices and commands are illegal. The problems 
involved in implementing them are mainly concerned with a 
lack of core room for the necessary buffers and flags. Tf 


they were to be made legal, the Executive would have to have 
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software versions of all of their flags, and in some cases 
would have to buffer information for them. It was felt to be 
better for now to keep the compact Resident Executive that 
MTSS has than to try to include all of these extra devices. 
In addition they establish little or nothing in principle 


that MTSS does not already have. 


If the Executive gets an interrupt it does not 
recognize, it just clears all other possible interrupts and 


exits. 
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6.) How to Initialize MTSS 


1) Find the DECtape labelled "GROWTH" 


2) Mount it on a DECtape handler: choose a DECtape 
handler, Turn the LOCAL=OFF=REMOTE switch to LOCAL. Rewind 
onto the left-hand take-up reel whatever DECtape is currently 
mounted. Turn the switch to OFF. Remove the old DECtape. 
Put the “GROWTH" DECtape on the left-hand spindle. Take two 
or three turns of tape around the right-hand take-up reel. 
Turn the switch to REMOTE. Turn the WRITE LOCK = WRITE 
ENABLED switch to WRITE LOCK to protect the system DECtape 


from accidental damage. 


3) Open the door to the disk cabinet. Check to be sure 
that the WRITE LOCKOUT switches are all DISABLED except those 
numbered 54, 60, 64, 70, and 74 should be ENABLED. Close the 


door. 


4) Turn the LINE-OFF-LOCAL switch on the console 


Teletype to LINE. 


5) Carefully mount the first part of the paper tape 


labelled "GROWTH bootstrap" in the paper tape reader. Be 
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sure the feed holes in the paper tape are correctly seated on 
the drive sprocket. Set the address switches to 100(8) (all 
of the white console switches should be down, except the 
left-hand bit 11 switch should be up). Depress and release 
the I/O RESET toggle. Briefly depress the little white 
button on the paper tape reader. Depress the READ IN toggle 


switch. 


6) The paper tape will be read in and a user number will 
be requested on the console Teletype. Type any six digits 
followed by a carriage return. Next a dollar sign ($) will 
be printed on the console Teletype. You type "TPn:INT", 
substituting for n the number of the handler on which you 
mounted the MTSS DECtape. (If it is handler 8, call it 


handler 0.) 


7) Relax and watch the DECtape move back and forth for a 
short while. It is busy initializing MTSS on the disk. When 
done it will type a completion message followed by: 

TSSMON 

# 


The system is now up and running. 
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6.1 What Actually Happens 


The INITIALIZATION program has internal lists of the 
required system programs. When it runs, it first unsaves 
from the disk any existing versions of them. Then it purges 
the disk to compact storage. Next it copies all system 
programs from the system DECtape to the disk. This insures 
that all system files on the disk have the right parameters 


and are current. 


During initialization the correct RESIDENT and SWAPPER 


catalogs are set up. 


nee See ee eee 


To insert a new program into MTSS save it on the MTSS library 


DECtape and: 


1 =-- Overlay programs: add its name to the list of 
overlay programs (OFILES). In the OFILES list the 
memory protection overlays must be listed 
consecutively. Other than that, order is 


immaterial. 


2 -- User-type system programs: add its name to the 
list of user-type system programs (UFILES). Order 


is immaterial. 
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3 -~ Phantom-type system programs: add itsS name to the 
list of Phantom-type user programs (PFILES). 


Order is immaterial. 


Note that all program names must already be defined in the 
DEFINS program. That is to make them available to all MTSS 


programs. 
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Tek) System Programs 


To start (or to return to) MONITOR type a_ break. To 
load any other system program type its name in response to 
MONITOR‘S sharp sign (#) . System programs start 


automatically. 


7.2) User Supplied Programs 


To load a user-supplied program use LOADER. Using 
LOADER, replace the file 'COR' with the desired user file, 
and EXIT. The user physical disk may be loaded in the same 
way by replacing the file ‘DIS'. (See the LOADER 
description.) To run a program in user core, TRANSFER to the 


start or CONTINUE from either MONITOR or from DDT. 


To save the contents of user core use LOADER. Save or 
replace the disired file from the file 'COR'. The user 
physical disk may be saved in the same way by using 'DIS' as 


the source file. Then EXIT. 
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8.) MTSS Conventions 


MTSS has few input conventions. A user can at any time 
type a break or a null (control shift '‘'p'). That will stop 
his running program, stop further Teletype output, and 


transfer control to MONITOR. 


For all system programs a control 'x' will delete the 
remaining output. This convention is optionally available to 


user programs (see MONITOR Delete command). 


A letter may be either upper case or lower case; a 
digit may be either an octal digit (0,1,...7) or a decimal 
digit (0,1,...,9); a delimiter is any character that is 
neither a letter nor a digit; a number is any sequence of one 
Or more digits followed by a delimiter; a word is any 
sequence of letters and/or numbers followed by a delimiter. 
Note that a trailing space is a legal delimiter. Leading 
spaces are ignored -- therefore multiple spaces have 


precisely the same effect as one space. 


On a cataloged disk or DECtape a filename is of the form 
<device>:<name> where device is DTn, TPn or DKn, and the name 
is a three character or shorter name for the file. The 
filename of an uncatalogued file is either PPT (if it is ona 


paper tape) or else it is of the form <device>,<starting 
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block number>. In addition, core (COR) and user disk (DIS) 


may be used as filenames. 


Whenever MONITOR wants input it will print a sharp sign 
(#). Whenever any other system program wants input it will 
print a question mark (?). This is so that the user need 
never be confused as to whether he is in MONITOR or whether 


he is in some other program. 
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The program structure used by MTSS is one of its most 
important features. It is the key to MTSS' success in 
offering a very large amount of service on avery. small 
machine. It is also the key to MTSS' great flexibility and 
power. Basically MTSS considers programs to be of five 
types: 

1) Resident Executive 

2) Executive overlays 

3) Phantom system programs 

4) System-Supplied user programs 


5) User-Supplied user programs 


The first four of these are types of programs supplied 
by MTSS. Which system services will be supplied in which 
manner is in most cases a design choice, though in a few 
cases choice is dictated by logical or practical necessity. 
The fifth type of program is that which the ordinary user 


wishes to run under MTSS. 


9.1) Resident Executive 


The Resident Executive is the only core-resident 
program in MTSS. Since it is core-resident, it uSesS a very 
scarce resource on our 8K PDP=-9 =-- core space. Consequently 


it must be kept as small as_ possible. The Resident 
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Executive is responsible for supplying the storage and those 
service routines which logically must be in core at all 
times. If it then has any further room it may supply storage 


and routines intended to make the system more efficient. 


As an example of this philosophy, the routines to 
initiate handling of program interrupts and to retrieve 
SWAPPER from the disk must be in core at all times. However 
SWAPPER itself is not core-resident. Teletype I/O buffers 
and their handling routines are core-resident only as a 


matter of system efficiency. 


The Resident Executive is a collection of largely 
disjoint routines and storage areas. (See figures 12.1, 
12.2.) The Resident Executive contains: 

a) temporary storage 

b) I/O parameters for each user 

c) an I/O buffer for each Teletype 

d) routines to handle Teletype I/O 

e) routine to handle input of a null 

f) allocation records for system resources 

g) state-of-the-system information 

h) routines for all legal I/O devices 

i) information to retrieve SWAPPER 


j) routines to service all PI interrupts 
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k) CAL service 


9,2) Executive Overlays 


Executive Overlays provide those user services not 
provided by the Resident Executive but which either logically 
or for efficiency must be provided by a routine co-resident 
with the user. The Executive Overlay area always contains one 


of the Executive Overlays. (See figures 12.1, 12.2.) 


9.2.1 SWAPPER 


It would be nice to make SWAPPER a part of the Resident 
Executive; the system would run faster if this were done. 
However this is not logically necessary if the Resident 
Executive has enough information to call SWAPPER from the 
disk as needed. The reason SWAPPER was made an Executive 
Overlay in MTSS is that otherwise the Executive would exceed 
1K, and therefore have to be enlarged to 2K. This would be a 
reasonable and desirable change to make in MTSS if additional 


core were purchased. 


Another logical alternative for SWAPPER would be to be a 
Phantom program. This was rejected because it would be 
inefficient and would also require an enlarged Resident 


Executive to allow user core to be swapped out before SWAPPER 
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WAS read in over it. 


SWAPPER does all swapping for the system. It can be 
initiated by the Resident Executive, any Executive Overlay, 
or by any running program. In each of these cases the actual 
SWAPPER fetch is accomplished by the Resident Executive, 
using its resident disk handler and resident catalog. No 
matter who calls SWAPPER, it is entered with its flag set so 
that further interrupts will not actually call SWAPPER 
prematurely. Instead, their occurence will be noted for 


later action. 


If the Resident Executive initiates a SWAPPER call, it 
is the result of a PI interrupt. Either a user has typed a 
null to request the killing of his current program and the 
calling of MONITOR, or else the clock has run out and there 


is another usSer ready to run. 


If a Memory Protect Overlay initiates a SWAPPER call it 
is because it has detected an error condition and is calling 
the error message output routine. A Special IOT Overlay may 
initiate a SWAPPER call either for this reason or as the 


result of a Special. 


A user program can call SWAPPER only indirectly, as the 


result of an error or of a Special call. A Phantom program 
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can generate a SWAPPER call this way, or it may intentionally 


call SWAPPER (e.g. MONITOR uses SWAPPER to call DDT). 


Each of these types of SWAPPER calls except the last has 
its own special entry to SWAPPER. These special entrances 
allow SWAPPER to set up itS own parameters, thus simplifying 
SWAPPER modifications. They also minimize the required 


resident or overlay code. 


SWAPPER runs aS much as possible with the PI system 
enabled to permit continuous Teletype I/O. The generalized 
sequence of SWAPPER actions is: 

a) if a special entrance, do necessary setup 

b) prepare to turn on the interrupt system 

c) turn on the interrupts 


d) do the requested swap activity 


The requested swap activity is determined by a bit-coded 
word directing SWAPPER to do, in order, any or all of the 
following things: 

a) swap out the current user's core 

b) swap out the current user's job table 

c) set the current user to also be the next user 

d) read in the next user's job table 

e) see if next user has an outstanding MONITOR request 


f) read in the next user's core 
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g) set up the named Phantom program for the next user 
h) set up the named S-user program for the next user 
i) record the new core user 

3) override the restart address 


k) restore the user's registers, etc., and go 


Swap out the current user's core: copies all of user 
core to the user's core image on the disk if the current 
program type is USER. If the current program type is 
PHANTOM, the non-pure code portion of core is copied out to 


the user's Phantom core image. 


Swap out the current user's job table: is ignored if 


the current user is also the next user. 


Read in the next user's job table is also ignored if 


the current and next users are the same. 


See if the next user has an outstanding MONITOR 
request: replaces whatever the next user's job was to have 
been with MONITOR if he has typed a null since the last time 


he was in core. 


Read in the next user's core: copies in the saved copy. 
It then checks for a Phantom program, and if it finds one 
copies in the pure code portion provided it is not already in 


core. Typically the previous user will have been using 
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MONITOR and the next user will want to. In this case the 


pure code copy is unnecessary and is not done. 


Alternatively SWAPPER can set up a specified Phantom or 


S-user program for the user. 


The last thing that SWAPPER does before starting the new 
user is to record the new user's name to update its internal 
records, and then to copy itself out to the disk to record 


the update. 
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9.2.2) Memory Protection 


The memory protection overlays handle all memory 
protection violations, either returning to the user after 
taking appropriate action or printing an appropriate error 


message and returning to MONITOR. 


Logically, the handling of memory protection violations 
need not be in the Executive. The Executive could note the 
violating instruction, swap out the user, and swap in a 
Phantom program to analyse the violation. However, each 
violation would then cause several disk operations fora 
total of about 16K words transferred. Memory protection 
violations are expected to be frequent enough to make this 
impractical, so MTSS handles memory protection violations 
with Executive overlays which are very carefully laid out to 


minimize required overlay exchanges. 


Memory Protection is designed, so far as possible, to 
allow the user to run an arbitrary machine-language program 
involving any of the system resources except DECtape with the 
Same results that program would produce on a dedicated 
machine. This is felt to be an important goal for one major 
class of Dartmouth PDP=-9 users =-- beginning machine-language 


programmers. 
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9.2.2.1) Memory Reference Instructions 


The memory protection boundary is set to 2000(8). 
Therefore any memory reference to locations 2000-17777 is 
legal. Programs should be assembled to run above 2000 
because this machine has no hardware address relocation. In 
addition, the Executive will allow direct memory references 
to the locations 0-37. For various hardware reasons, the 
user's contents of 0 and 10-17 are stored in their true 
locations, but 1-7 and 20-37 are stored in a table. This 
means that both indirect and direct program references to 0 
and 10-17 will work, but that only direct program references 
to 1-7 and 20-37 will work. No direct memory references to 
40-1777 will work and undefined resultS are produced by 
indirect memory references through these locations. No 
instruction that results in a transfer to any location below 
the boundary will work. Note that this means CAL and CAL 
(indirect) are also illegal instructions. The user may use 


all program accessible registers. 


9.26262) Operate Instructions 


Operate instructions which get trapped are those which 
have either the halt or the or-the-accumulator-switches bit 


set. The actual accumulator switches are considered a system 
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resource and are assigned to users just as any other 
resource, such as the paper tape reader. Each user has a 
software "accumulator register" which he can examine or alter 
through MONITOR. When an OAS instruction is encountered it 
is carried out by the memory protection overlays using either 
the actual switches (if that resource iS assigned to the 
user) or else using the value in the user's’ software 
"register". A HLT instruction causes a return to MONITOR, 


with an appropriate message printed. 


9.2.2.3) Input/Output Instructions 


All IOT instructions are detected by Memory Protection. 
Certain IOT instructions not otherwise used are used as 


Special Executive Service requests. (See section 9.2.3.) 


The memory protection overlays contain a table of legal 
IOT instructions. Any IOT instruction other than a Special 
or one of these will cause a return to MONITOR with an 
appropriate error message being printed. The following IOT 
instructions, including all of their microcoded variations 


are legal: 


basic IOT instructions (IOT, IORS, CAF, TTS, SKP7) 
program interrupt instructions (IOF, ION) 


console Teletype instructions (KSF, KRB, TSF, TCF, 
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TLS) 

DBK and DBR 

paper tape reader instructions (RSF, RCF, RSA, RRB, 
RSB) 

paper tape punch instructions (PSF, PCF, PSA, PSB) 
disk instructions (DSSF, DSCC, DRAL, DRAH, DLAL, DLAH 


DSCF, DSFX, DSCN, DLOK, DSCD, DSRS) 


The Executive keeps in the user's job table a _ record of 
all of the user's IOT operations and of their results. When 
the user attempts an IOT instruction its effect is simulated 
as transparently as possible, based on the current state of 
the user's IOT records. In most cases, the user will be 


unable to detect this simulation. 
Basic IOT Instructions 


All basic IOT instructions are implemented in a totally 


transparent manner for user programs. 
Program Interrupt: Instructions 


Both program interrupt instructions are implemented in a 
totally transparent manner for user’ programs. 
DBK and DBR 


Both instructions are implemented in a totally 
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transparent manner for user programs except that a terminal 
error message is caused by a DBR which is not followed by a 
<JMP Y,X>. After a DBR instruction, the jump will occur as if 
bit 2 of word Y were turned on (regardless of its actual 


state), but the bit itself will be unaffected. 
Paper Tape Instructions 


All paper tape reader and paper tape punch instructions 
are implemented in a totally transparent manner for user 
programs. Since paper tape I/O is not buffered by the 
Executive, tape operations can occur only while the user's 
program is actually in core. Any paper tape instruction by a 
user who has not previously been allocated the device will 


result in a terminal error message. 
Disk Instructions 


All disk instructions are implemented in a _ totally 
transparent manner for user programs except that data 
transfers involving a core address less than 2000(8) or a 
disk address greater than 8K will result in a terminal error 


message. 
Console Teletype Instructions 


Console Teletype instructions are handled in as nearly 
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transparent a manner aS practical. Additional transparency 
is possible only if one were willing to have all Teletype I/O 
stop whenever the user was swapped out. The chief variation 
from transparency is best shown by the following example from 


the GROWTH system Teletype handler. 


In this handler, message output involves the following 
sequence of instructions: 

TSF 

JMP .-l 

KSF 

TLS 
The effect is to delete further message output after any key 
is struck. Under MTSS, the program will delete all further 


output after the remainder of the I/O buffer is printed. 
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9.2.3) Special IOT Instructions 


Special IOT instructions are a particular block of 
otherwise unused IOT instructions. They are used bya 
program running under MTSS to call upon the’ Executive for 
system services. The fundamental Special IOT instruction is 
705000. Possible Specials range from Special+0 to 
Special+377. Only a few of these are currently enabled, 


leaving this as one area for major future system expansion. 


When the user executes a Special, the Special handler 
overlay is called; it either services the user's request or 
else it prints an error meSsage and returns control to 


MONITOR. 


Specials could logically handled by a Phantom program. 
It does seem more efficient, however, to do a disk operation 
as a core-to-disk operation uSing an overlay than to have to 
do a buffered disk-to=-disk operation using a Phantom 


program. 


9.2.3.1) MPOFF 


MPOFF (705000) is legal only for Phantom programs. 
Control is returned to the user at the next instruction after 


the Special, with the state of the machine unchanged except 
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that user mode is disabled. The program itself should re- 
enable user mode aS soon as possible by issuing an MPEU 
(701742) instruction to guard against its own bugs crashing 


the system. 


MPOFF should be disallowed as soon as_ practicable by 
adding enough Executive services to the system to make it 


unnecessary. This will greatly enhance system reliability. 


9.2.3.2) TERMINATE 


TERMINATE (705001) ais legal for all programs. Its 
effect is exactly the same as if a HLT instruction were 
encountered in the running program except it returns control 
to MONITOR without the error message "HALTED AT. e. te - 
being printed. In either case, if MONITOR is requested to 
‘CONTINUE’, program execution will be resumed at the next 


instruction with registers unaltered. 


DISK AND. DECTAPE SPECIALS 


The disk and DECtape Specials make use of a modified 
standard GROWTH system disk/DECtape handler; to simplify 
modifying stand-alone programs to run under MTSS, the format 
used by the Specials is the same one that the handler 


normally uses. 
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The disk/DECtape Specials provide all programs with the 
capabilities of: 

1) reading or writing in a logical-block-addressed 
format the program's DECtapes or "user "physical 
disk”. 

2) reading in a logical-block-addressed format the > 


actual physical disk. 


In addition, Phantom programs can write ina logical- 
block-addressed format the actual physical disk. These 
capabilities allow device independent programming with 


respect to disk and DECtape. 


All disk/DECtape Specials are executed with the AC 
containing a pointer to a list of parameters of the following 
form: 

wordl: bits 0-2 are the DECtape handler number or the 

physical disk number, as appropriate. 
bit 3 = 0 for a DECtape operation; = 1 for a 
disk operation. 
bits 8-17 contain the block number for the start 
of the data transfer. 
word2: core address for the start of the data transfer. 


word3: word count to be transferred. 
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The disk/DECtape Specials perform the following checks: 


1) 


2) 


3) 


5) 


6) 


An attempt to read or write off the end of a DECtape 
or disk generates an error message for the user. 

An attempt to transfer data to or from ae core 
address in excess of 8k generateS an error message 
for the user. 

A core address below the memory protect boundary is 
legal only for Phantom programs. If a user program 
attempts a data transfer to or from such an address, 
an error message is generated for the user. 

An attempt to transfer data to/from a non-existant 
disk generates an error message for the user. 

An attempt to transfer data to/from a DECtape not 
asSigned to the user generatesS an error message. 

An attempt by a user program to write to the 


physical disk generates an error message. 


Return of control to the user: 


1) 


Section 


If the disk/DECtape transfer is successfully 
completed control is returned to the user at the 
address the usér passed in the MQ. 

If a device error was encountered control is returned 


to the user one location past the Special. 
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3) If a user software error is encountered an error 
message is printed on his Teletype and control is 


returned to MONITOR. 


Some possible causes of a “device error" are: 
1) a disk or DECtape hardware malfunction 
2) a DECtape called which has not been remote-enabled. 
3) a DECtape not wound far enough onto the spool to 


start. 


9.2.3.3) READ and WRITE 


READ (705002) and WRITE (705004) are legal for all 
programs. These Specials use the standard disk/DECtape 
format (see above.) They cause the operation indicated by 
their parameters to be attempted to/from the DECtape or "user. 
physical disk". 

1) if the READ/WRITE is to/from DECtape, it is passed 
along unaltered. 

2) if the READ/WRITE is to/from the disk, the block 
number’ is understood to refer to the block desired 


on the user's "physical disk". 
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9.2.3.4) PREAD and PWRITE 


PREAD (705003) and PWRITE (705005) are identical to READ 
AND WRITE except that: 
1) disk references are to the actual physical disk 
instead of to the "user physical disk". 


2) PWRITE is illegal for user programs 


9.2.3.5) OPEN 


OPEN (705018) is legal for all programs. The disk file 
whose name is passed in the AC is located and its parameters 
are stored in the user's job table. On entrance’ the 
following parameters are passed: 

AC: filename to be opened 
wordl: OPEN 
word2: bits 0-2 handler number 
bit 3 is 0 for DECtape; 1 for disk: 
Return to the uSer is: 
+1 for a hardware error 
to an error message and MONITOR for a software error 


+2 for success 


In addition to any applicable error message which can be 
caused by a disk/DECtape Special, OPEN can also cause a "file 


not found" message. 
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9.2.3.6) COPY 


COPY (705019) is legal for all programs. It provides 
core-to-device and device-to-core copies to or from files on 
DECtape or on the system disk. Only Phantom programs are 
allowed to copy from core to any disk file other than 'DIS' 
(user “physical disk"). On entrance, the parameters passed 


ares 


> 
QD? 
on 
- 
ct 
oO 
li 


0 for device-to-core copy 
= 1 for core-to-device copy 
MOQ: bits 5-17: user's desired restart address 
wordl: copy 
word2: bits 5-17: starting core address for the copy 


word3: length of the copy 


Control is returned to the user after a succesful copy 
at the user-specified restart address. This allows a 100% 
overlay. An error message is printed and control is returned 
to MONITOR if for any reason the copy was unsuccessful. This 
is because that is what should happen for a software error on 
the part’ of the user. If the error was a hardware error, it 


is probably unrecoverable, anyway. 
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9.3) System services -- Phantom programs 


System services not provided by either the Resident 
Executive or an Executive Overlay are provided by Phantom 
programs. A Phantom program is a system-supplied eeegeam 
which runs in place of the user for whom it is doing a 
service -- it occupies his place on the job queue, and if 
billing were being done its use of resources would be billed 
to him. A Phantom program runs mainly in user mode both to 
permit it to access the full range of executive services and 
to protect the Executive if the Phantom should have a bug. A 
Phantom program is so named because except for the service it 
performs its presence is undetectable by the user; it alters 


neither the user's core nor his registers. 


When a Phantom program is swapped out only its non-pure 
portion (2000-3677) is swapped. That portion iS swapped to 
the user's Phantom core image, preserving the actual core 


image. 


Available Phantom programs are MONITOR, LOADER, DDT, and 


CATALOG. 


9.3.1. MONITOR 


MONITOR is the user's main communication with the 
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system. It is a phantom program which can perform certain 
services for the user, Such as initiating or terminating his 
session. It can call any other system program, or it can 


initiate running the user's program. 


9.3.1.1 MONITOR Commands 


Any command which is longer than three characters can be 


abbreviated to its first three characters. 


ON <resource> requests that the system allocate to the 
requesting user's sole use the specified <resource>. To 
prevent an error message this must be done prior to running a 
program requiring the <resource> in question. When one user 
has been allocated a <resource>, no other user can use or be 


allocated that particular <resource>. 


OFF <resource> tells the system that the <resource> is 
no longer needed and can be de-allocated. The <resource> is 
now available once more to other users. A user may not do an 


OFF on another user's <resource>. Available resources are: 


ACS -- hardware accumulator switches 
CNT -- control line 

DTn -- DECtape handler #n 

PTP -- paper tape punch 

PTR ~~ paper tape reader 
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TPn -- same as DTn 


HELLO tells MONITOR that the user is a new user. The 
command results in all of the user's flags being cleared, his 
resources being de-allocated, and his core and disk being 


zeroed. 


GOODBYE OR BYE tells MONITOR that the user has finished 
his session. The result is the same as if he had typed 


HELLO. 
EXPLAIN produces a list of legal MONITOR commands. 


CAF stands for CLEAR ALL FLAGS. It does just that. 


VALIDATE OR V requests MONITOR to underprint an area for 
the user to type a password. If MONITOR recognizes the 
password, the user will be allowed certain added privileges, 
such as access to system core and write access to the 
physical disk. This validation is needed for no normal user 


function. 


XDUMP is a Simple physical core dump , requiring 


validation. 


XPATCH is a simple physical core patch, requiring 


validation. 


Section 9.3.1.1 -55- 


PROGRAM STRUCTURE (continued) 
DDT calls the DDT phantom program for the user. 
DEBUGGER calls the S-user debugger program. 
BASIC calls the BASIC Interpreter for the user.» 
CATALOG calls the CATALOG module for the user. 
LDR calls the LOADER for the user 


GROWTH aborts MTSS and restarts the GROWTH system. 


Validation is needed to do this. 


TRA or T or JMP or J <address> starts the user program 
running using the current values of its registers. These 


values are available through DDT. 
ZER COR sets the entire user core area to zero 


ZER DIS sets the entire user "physical disk" to zero 


9.3.1.2 Validation 


A user who wants to be validated types VAL or V. This 
command will be overprinted. The user then types his 
password on the underprinted area. If MONITOR recognizes the 
password, appropriate validation privileges are granted. 
Validation is necessary for a few activities, such as any 


disk write activity not to the user disk nor accessing actual 
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machine core. 


No normal user activity requires any form of 


validation. 


9.3.1.3 Control Line 


Any user can get a control line by typing the command 
‘ON CNT'. The reason for having the control line convention 
at all is to insure that certain potentially damaging things 
are done knowingly, not by accident. In accordance with this 
idea, the control line request is valid for the remainder of 
the current command line only. For this feature to be of any 
practical use it must be used as a part of a multiple command 
line, and typed on the line prior to any other command 


requiring control line permission. 


With a control line enabled, a user can de-allocate any 
resource, even if it is currently allocated to some other 
user. He can also give the GROWTH command, which bootstraps 


the GROWTH system, aborting MTSS. 


9.3.1.4 MONITOR Error Messages 


Nearly all MONITOR error messages indicate the word 


which MONITOR was trying to interpret when it discovered an 
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error, For this purpose each delimiter is considered to end 


a word. 


ALL DECTAPE HANDLERS ALREADY ALLOCATED -- an attempt has 
been made to allocate to a user a DECtape handler when all 


possible dectape handlers are already allocated. 


FORMAT ERROR -- can indicate a variety of things, such 
aS a decimal digit included in an octal number, or a letter 


included in any number. 


NOT YOUR RESOURCE -- indicates an attempt to de-allocate 


a resource belonging to some other user. 


RESOURCE ALREADY ALLOCATED -- indicates an attempt to 


allocate a resource already belonging to some other user. 


VALIDATION ERROR -- an incorrect password has been given 


in a validation attempt. 


9.3.1.5 Run-Time Error Messages 


Nearly all runtime error messages print an address with 
themselves. This is the address of the instruction causing 
the error message, except that with a transfer-type 
instruction it is the address the program was attempting to 


transfer to. 
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BAD ADDRESS: <address> =- a memory reference instruction 
whose effective address was in the range 40-BOUNDARY was 


attempted. 


CAL: <address> -- for now, all CAL instructions are 


illegal. 


CHAINED XCT'S -= chained XCT'S form a non-interruptible 


sequence, and hence are illegal. 


CORE OVERFLOW: <address> -- a data channel transfer was 
attempted which would result in core addresses being 


generated beyond the maximum core address. 


DATA TRANSFER TO/FROM PROTECTED MEMORY: <address> ~-- a 


data channel transfer was attempted which would have resulted 


in transfering data to/from illegal core addresses (40- 
BOUNDARY) . 
DEVICE OVERFLOW: <address> -- a data channel transfer 


was attempted which would have resulted in transferring data 
past the end of the physical peripheral for which it was 


intended -- user disk or DECtape. 


FILE NOT FOUND -- an attempt was made to opena file 


which the system was unable to find. 


ILLEGAL IOT INSTRUCTION <instruction> AT <address> --an 
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IOT instruction was issued which is not recognized by the 


system. 


ILLEGAL TRANSFER TO <address> -- either a JMP or JMS to 
the indicated address was attempted, or else something was 
done to result in an attempt to resume the program in a 
protected address. Unfortunately the hardware does not 
detect the error until after the PC is changed, so the actual 


instruction generating the error is not available. 


NON~EXISTANT DISK REFERENCED: <address> -- an attempt 
was made to transfer data to/from a non-existant physical 


disk. (Currently the only legal disk is disk #0.) 


PROGRAM HALTED: <address> ~~ an operate instruction with 
the halt bit set was encountered at the given address. Of 
course this is not necessarily an error. However a cleaner 
program termination can be made using the TERMINATE Special 


IOT instruction. 


UNASSIGNED DEVICE REQUESTED: <address> -- the program 


attempted to use a physical device not allocated to it. 


Section 9.3.1.5 -~60- 


PROGRAM STRUCTURE (continued) 
9.3.2. LOADER 


The LOADER is the general means of manipulating MTSS 
files. LOADER will create, update, or delete files from MTSS 
DISK or DECtapes. It will accept several data formats. 


9.3.2.1) Formats 


GROWTH -- this is a core-image binary format file. It 


is the standard format for a cataloged file. 


ABSOLUTE -~ this is absolute loadstring binary, which is 
the format output by the assembler. It is the format a 
paper tape or non-cataloged dectape of an assembly will be 


in. 


BINARY -- straight binary. If the device is paper tape 
a hardware read-in format tape will be read or punched, as 


appropriate. 


9.3.2.2 Filenames 


See Section 8 (MTSS Conventions). 


9.3.2.3) Commands 


Only the first three characters of any word in any 
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loader command are Significant and need be typed. 


CLEAR <device> 


CLEAR creates for the device a new catalog containing 


only the catalog itself. 


EXIT 


EXIT should always be used to terminate the LOADER in 
order to insure that the device catalog is brought up to 


date. 


IDUMP <devicel> <device2> 


Incremental Dump copies all files from device2 onto 
devicel without destroying anything that was previously on 
devicel. In the case of duplicate filenames, the previous 
file on devicel will be lost. An automatic PURGE is done on 


devicel at the completion of the dump. 


LDUMP <devicel> <device2> 


Logical Dump creates a new catalog for devicel and then 
copies all files from device2 onto devicel without affecting 


device2. This is useful for creating backup tapes. 


PUNCH <filename> 
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PUNCH punches a hardware read-in format paper tape from 


the file named. 


PURGE <device> 


PURGE is merely an LDUMP where devicel and device2 are 
the same device. The effect of this is to recover storage 
lost by previous UNSAVE commands. This may be fairly time 


consuming if the device is a DECtape. 


REPLACE <filename><format><filename> 


REPLACE is the same as SAVE except that the destination 
filename iS assumed to already be saved, and therefore not 


need the full specification as given in the save command. 


SAVE <fnl><start address><end address><format><fn2> 


<Fnl> must be a catalog fn. <Fn2> is of a type 
determined by the format. It can ba a non-cataloged filename 
if the format is ABS; it can be a cataloged filename if the 


format is GRO. 


SAVE creates a cataloged filenamel and copies into it, 
subject to the stated start and end addresses the file from 
filename2. An error message is printed if the destination 


filename is already used. 
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Common SAVE formats ares: 
SAV DTn:NAM 100,1000 ABS PPT 
or 
SAV DTn:NAM 100,1000 ABS DT1,l 
to save an assembly, or 
SAV DTn:NAM 100,1000 GRO DTq:ABC 
to copy file ABC from DECtape #q onto DECtape #n 


as file NAM. 
UNSAVE <filename> 


UNSAVE deletes from the device catalog the given 
filename. The remaining storage is not automatically 
compacted because this is time=consuming on a DECtape. The 


storage can be recovered via the PURGE command when desired. 
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9.3.3.) DDT 


DDT provides the user with an aid for debugging his 
machine language programs. DDT enables a user to exercise 
all of the control over his program which he would have at 
the console of a dedicated machine. DDT also provides a 


number of other useful and powerful features. 


DDT is obtained by giving MONITOR the command "DDT". 
DDT will respond with the message: 


DDT HERE 


? 


DDT will then await a command. 


9.3.3.1) DDT Format 


A DDT command is of the form: 
@<file>@<range>:<mode><delim><command><delim><arguments> 
A DDT command line is of the form: 
<command>;<command>;<command>...<command><carriage return> 
After a carriage return has been typed DDT will type a line 


feed and begin to process the command line. 


i rae Pe SA FILE 


The currently open file is initialized to be the user's 
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core each time DDT is’ entered. This is true even if DDT is 
entered by a breakpoint occurence. A <file> need be given 
only when the user wishes to open some file other than the 
currently open one. Before DDT will open another file, it 
will close the currently open file so that any alterations 


which have been made get recorded. 


Note that a <file> will not normally be included ina 
command line. If it is not included, then the delimiters 
Surrounding it also need not be included. Thus the command 
line will start with <range>, if a <range> is being given 


(see below). 


Any logical or physical disk or DECtape, or any logical 
file on a disk or DECtape can be opened as a-<file>. Users 
without proper validation will be permitted to read any of 
these, but to write to only their own user core, user disk, 
or a DECtape which has been allocated to them in response to 


a previous ON DTn command to MONITOR. Possible files ares: 


DKn -= physical disk #n 
DTn ~= physical DECtape #n 
TPn -- physical DECtape #n (identical to DTn) 


DKn:<filename> -= a logical file on physical disk #n 
DTn:<filename> -- a logical file on DECtape #n 


TPn:<filename> ~= a logical file on DECtape #n 
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CORE =~ user core 

DISK == user disk 

SYSTEM ~= MTSS system logical disk 

V5A:n -- V5A logical disk #n 

XCORE =- actual machine core 

PREVIOUS -- the <file> open before actual core was 


opened 


9.3.3.3) RANGE 


<Range> tells DDT to which addresses in the open file 
the command refers. For exceptions and default conventions 
see the specific commands. Operation codes cannot be used in 
<range> specification. <Range> can be given in three ways: 
<Symbolic expression>,<symbolic expression> indicates 
the lower and upper bounds of the interval 
<Symbolic expresion><space><symbolic expression> 
indicates the lower bound and the length of the 
interval 
<Symbolic expression> alone indicates identical upper 


and lower bounds to the interval. 


9.3.3.4) MODE 


<Mode> sets the dump format. <Mode> may be specified 
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separately for registers, addresses, and contents. Each type 
will retain its current setting until a new <mode> 
specification of that type is given. <Mode> is always 
optional, and more than one type may be given in any 
command. The modes listed below affect the printing of words 
from the currently open file. Prefixing one with an ‘A' sets 
the address printing, while prefixing it with an 'R‘ sets 


the format by which to print registers. Legal <mode>s are: 


O =-- octal 

A -- ACI6 ASCII (8-bit ASCII - 240) 

6 -- trimmed sixbit ASCII 

H -- two ASCII characters (bits 0-8 & 9-17) 
7 -- two ASCII characters (bits 4-10 & 11-17) 
8 -- one ASCII chracter (bits 10-17) 

D -- decimal 


S -- symbolic 


After setting a mode switch, DDT will look for another 
<mode> (preumably, but not necessarily, for another switch). 
It will continue to look for more mode settings until it 


encounters the first command. 


NUMBE RS 


All numbers are integers. Numbers are considered to be 


octal unless they contain a trailing decimal point, in which 
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case they are decimal. An octal number may not contain 


either of the digits 8 or 9. 


OPERATORS 


All operators are of equal precedence, and are taken 
strictly from left to right. Legal operators are: 

+ addition 

- subtraction 

* multiplication 

/ division 

! logical inclusive or 

/ logical exclusive or 

& logical and 

A "contents pointed to by this number",- This 
indirection can be stacked as deeply as desired, 
provided that all addresses generated are legal. 

, L£ followed by 'X<delimiter' or by ‘'‘'I<delimiter>'. 
This puts the indirect addressing bit in the 
number. Otherwise it is taken to be a delimiter 


rather than an operator. 


A blank space between a permanent symbol (op 
code) and a non-op code is the same as a + of the 
non-rp code masked to the last 13 bits. Otherwise 


the space is taken to be a delimiter. 
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EXPRESSIONS 
<value> := <number> or <user-defined symbol> 
<op code> := <permanent symbol> or <op code> or 
<operator><value> 


<expression> := <value> or <op code> 


<se> := <symbolic expression> := <expression> or 
<exp><opertor><se> 
REGISTERS 
AC -- accumulator 
ACS -- software accumulator switches (kept by MONITOR) 
ALL -- all registers 
LK -- link 
MQ -- multiplier/quotient 
PC -= program counter 
SC -- step counter 
STS -- program interrupt status register 


9.3.3.5) COMMANDS 


ADS -- not yet implemented 


ALT <register><se><register>...<se> 


Each <register><symbolic expression> pair causes’ the 
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named when the user's next run is started. 


BAS 


—nere 


The base address, relative to which all input and 
output addresses are considered, is set to the low end of 


the given <range>. 
BRE <se> <se> ... <se>,<option #1> <opt #2> ... <opt #n> 


Breakpoint 1S an extremely powerful command. This 
format yields not only conventional breakpoints, but alsoa 
trace and cascading breakpoints. Breakpoint allows the user 
a method of completely controlling his program, including 
stopping it wherever he wishes to, examining itS progress, 


and continuing if he wishes to. 


A breakpoint will be set for each <se>. All 
breakpoints set in one command will have the same option 
list. When a breakpoint iS encountered during the execution 
of the user's program, control is returned to DDT and a 
breakpoint message is printed telling the user which 
breakpoint has occurred. At that time the user can give any 
DDT command he wishes to. If he opens another file it will 
automatically be closed if he does a transfer or a continue. 
When the breakpoint message iS printed, the user's core is 


automatically made the open file. 
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All breakpoint arguments are optional. If there are 
any <option>s at all, the first of them must be preceded with 
a comma. The order of the <se>s and of the <option>s is not 
important, so long as all options come after all <se>s. Legal 
breakpoint options (and their permissible ab reviations) 
ares: 

<register name> 

CON (c) 

DUM (d) 

ERA (e) 

FUT (£) 

RES (r) 

SET (s) 

<count> 


n<option> 


<Register name> -- the named register will be printed 
when the breakpoint message is printed. All is a legal 


register name. 


CON -- conditions DDT to automatically return to the 
user program (do a CONTINUE) after first carrying out all 
other options. This can be used to effect a "tracepoint" or 
"checkpoint" mode. It will print the specified locations 


and/or registers every <count> times through the breakpoint. 
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DUM -- dumps uSer core within the <range> given in the 


breakpoint command, Current dump formats are used. 


ERA -- automaticaly erases the breakpoint the first time 


it is encountered. 


FUT -- marks the breakpoint in the table (and uses up 
one of the table entries), but does not set it in the user 
program. It will be set at some future time by another 


breakpoint with the SET option enabled. 


RES -- restore the breakpoint count. If this option is 
not employed, the breakpoint will give its message each time 


through from now on, 


SET <se> -- sets the breakpoint indicated by the <se> 
This is useful for use with overlays, or checking common 


subroutines when enterd after some specific other event. 


<Count> -- allows the breakpoint to be reached <count> 
times before any action except the counting is taken. 


<Count> is a <symbolic expression>. 


N<option> -- unsets the specified option. 


CLO ~- closes the curently open file. 
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CON -- continues executing the user's program at the 
current value of his registers. If DDT was entered on a 
breakpoint, and if the user has not altered register PC the 


breakpointed instruction will be executed. 


CRS -- is not yet implemented. 
DSM -- is not yet implemented, 
DUM -~ dumps from the currently open file, according to 


the current formats, the words specified by the range. 


Default range is the next location. 


EXI -- exits to MONITOR after first closing the 


currently open file. 


EXP -- explains about DDT. Lists legal DDT commands, 


modes, etc 


JMP <se> commences to execute the user's program at the 
address <se>. The current values of all of his registers are 


used. 


LDS -- not yet implemented 


LIM -- sets the limit on the maximum offset allowed from 
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a symbol table value in a symbolic printing. If the offset 
is greater than the limit, the octal value is printed instead 


of <symbol>+<offset>. 


LIS <option> -- lists the value of the option: 


LIM -- lists the value of the limit 
MAS -= lists the value of the search mask 
BRE -- lists the locations of the set and future 


breakpoints. 


LOA -- loads the user’s core from the user disk. This 


presupposes a previous SAVE command. 
MAS <se> =-- sets the Search mask to the <se> value 


NON -- null command to suppress the otherwise implicit 


DUMP , 


PAT <se><se>...<se>,<se><se>. ..<Se> 
PATCH replaces the contents of <range> locations in the open 
file with the first <se>, the next location with <se#2>, 
etc. until reaching the comma. The first <se> after the 
comma is the next location to patch. The next <se> is put 
there, the following one in the next location, etc. AS many 


commas as desired can be used in one command. 


PRE -~ iS only meaningful with actual core open. Then 
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it opens the file open prior to opening actual core. 


REG <register name><register name>...<register name>. 
REGISTER is a useless command, Since omitting it and just 
typing the register names themselves has the same effect: the 


register value is printed. 


REP -- is part of a binary editor. It will replace one 


binary quantity by another. NOT yet implemented. 


SAV -- copies user core into the user disk. Useful for 
debugging. To save into a catalogued file, LOADER must be 


used. 


SEA ~~ searches the specified <range> for all words for 
which the <se>&<mask> is identical with <contents>&<mask>. 
For each location for which this is true, the location and 


contents are printed out in the current <mode>s. 


UNB <se><se>...<se> removes the breakpoint at each 


<se>. An error message occurs if there is none. 


VAL ~-- requests underprinting to protect a password. If 
the password is approved, the user is validated. Identical 


to the MONITOR command of the same name. 
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9.3.4) CATALOG 


CATALOG is a Phantom program to list on the Teletype the 
catalog information about either selected file(s) from a disk 
or DECtape or about all of the files on the device. The 
information can be listed either with or without a header and 


trailer. 
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9.4) System-Supplied User programs 


System=-Supplied User programs (S-user programs) are 
those programs of which the Executive will give the usera 
copy. This means that S-user programs are overlaid onto user 
core, and the user can alter them at will. S-user programs 
save the user from having to write many of his own service 
routines (e.g. a Teletype handler would be supplied as an 
S-user program) or they may be used when the user does not 


need his own core anyway (e.g. the BASIC Interpreter). 
Available S-user programs are BASIC and DEBUGGER. 


DEBUGGER is the old GROWTH system debugger re-assembled 
for location 2000 and running as an S=-user program. For 
complete documentation on it either list the DTSS file 
PDP9YLIB*** :DDTDOC or else refer to the copy of this file kept 


in the PDP-9 machine room. 
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9.4.1) BASIC Interpreter 


BASIC Interpreter was written by Ron Harris '7l1 as a 
quick course project. It is an illustration of the point 
that MTSS is capable of running arbitrary machine language 
programs, including new system programs to give the system 
improved eepaniit tee, Such as higher languages. The 
interpreter should not, therefore, be judged on the subset of 


BASIC it recognizes. 


BASIC interpreter iS running unchanged under MTSS, 
except that it is now assembled to start at location 2000 to 


stay out of trouble with memory protect. 


A negative accumulator switches value restarts it, soit 
will not run unless either the user's software ACS register 
is positive or else he has ON ACS and the hardware switches 


are positive. 


BASIC interpreter recognizes the following BASIC 
statements: IF, GOTO, PRINT, LET, and END. It recognizes the 


following commands: RUN, LIST, and EXIT. 
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9.5) General Discussion 


It is rarely clear which system services should be 
provided by which class of program. For maximum speed one 
would like to have all Executive routines, or even all system 
services core resident. Either of these costs a lot of core 
Space -- a strong consideration in an 8K PDP-9. Overlays are 
fast, provided the proper overlay is in core at the proper 
time. But the more overlays a system uses, the more likely 


it is not to have the right one in core at the right time. 


Overlays are restricted in length to 700(8) words. For 
some system services that handicap overcomes any speed 
advantage. Such services are put into Phantom programs. The 
length of a Phantom program can be up to 1600(8) words of 
unrestricted code plus the balance of 7K words of pure code. 
MONITOR, for example, suffers little or no penalty for being 
a Phantom program. In fact, its normal access to Executive 
services is an asset. MONITOR does not often need to refer to 
user core, and then only to overlay an S-user program or to 
Swap a user in and start him running. These things are 


provided for MONITOR as Executive services, 


DDT is an example of a system program which could 
logically be run either as a Phantom program or as an S-user 


program. There are advantages and disadvantages each way. If 
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DDT were a Phantom program it would put more pressure on 
system resources and it would run somewhat Slower because 
each reference to the user's core would require a disk 
operation. DDT could let the user run full sized programs, 
though, and it could be granted full Phantom program 
privileges. As an S-user program DDT cannot be granted full 
privileges or a user could take over the system. Also it 
does take up a Sizeable amount of user core, especially if 


the user loads his symbol table. 
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Scheduling 


A user is considered to be ready to run if he is not I/0 
roadblocked. To find the next user ready to run, users are 
checked in a circular manner Starting with the first user 
after the current one. The first one who is found who is not 
I/O roadblocked is the next user ready to run. If all users 
other than the current user are roadblocked, then the current 


user is also the next user ready to run. 


When a uSer is interrupted by the clock the next user 
ready to run is swapped into core and started. If a user 
becomes I/O roadblocked his job is suspended and the next 
user who is ready to run is started. No swap is made unless 


necessary. 
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MTSS and GROWTH share a common catalog and file 
structure. Block l1-of the MTSS/GROWTH logical disk, or block 
1 of a physical DECtape contains the catalog for that 
device. (For a detailed description of catalog format consult 
the documentation with the standard catalog handler in the 


initialization program assembly listing.) 


As a result, files created under GROWTH are completely 
accessable under MTSS and files created under MTSS are 


completely accessable under GROWTH. 


Loadstring binary format files cannot be created under 
MTSS. They can be created in DTSS on paper tape from 9MAP 
assembler output. Under GROWTH they can be created either on 
paper tape or on DECtape from 9MAP assembler output. MTSS 


can read these files. 


MTSS files are not compatable with the V5A operating 


system. 


Section 11 -83- 


CORE STRUCTURE 


The area between locations 0-1777 is the same no matter 
which type of program may be in upper core. Locations 0-777 
contain the Resident Executive (see section 9.1) and 
locations 1000-1677 contain whichever Executive overlay is 


currently in core (see section 9.2). 


Locations 1700-1777 contain the user job table. This 
job table is the same one whether a system-supplied program 
or a user-Supplied program iS running. Phantom programs will 
store internally anything they may alter so that they can 


restore it before returning to the user. 


The memory protection boundary is set at location 2000. 
The contents of the area between there and the end of core 
depends on what type of program is running. If it is a user- 
type program, then this area will contain all user-supplied 
and system-supplied user programs which the user has called 
Since the last time he cleared core. They will be overlaid 


on top of each other in the order he called them. 


Section 12 -84- 


CORE STRUCTURE (continued) 
MTSS CORE MAP 


USER OR S-USER PROGRAM 


RESIDENT PROGRAM 


1000 


EXECUTIVE OVERLAY 


1700 


USER JOB TABLE | 
2000 | | 


USER CORE 


20000 


figure 12.1 


Section 12 -85- 


CORE STRUCTURE (continued) 


If this area contains a Phantom program, it will be 
divided as shown in figure 12.2. Common is below all 
Phantom programs. As a result, it is capable of holding 
certain user data (e.g. DDT dump format switch setting or 
data saved to allow Phantom programs to remain invisible) 


regardless of which programs may get called. 


Non-pure code is the area from the standard Phantom 
program starting location through 3577. Each Phantom program 
must use this area for any non-pure locations. (N.b. on 
the PDP-9 all subroutine entrances are non-pure.) The 
remainder of core contains the rest of the Phantom program. 


This must be entirely in pure code. 


When a Phantom program is Swapped out, only the common 
and non-pure code areaS are copied into the Phantom core 
image. Pure code is ignored. The user job table is copied 
to the user job table image. When the Phantom program is 
Swapped in, the user job table, common, and non-pure code 
areas are all copied in. The pure code area is copied from 
the system's program if and only if it was not already in 


core for the previous user. 


Section 12 -86- 


CORE STRUCTURE (continued) 


MTSS CORE MAP 
PHANTOM PROGRAM 


0 
RESIDENT PROGRAM 
1000 
EXECUTIVE OVERLAY 
1700 } 5 
USER JOB TABLE 
2000 } , 
COMMON STORAGE 
NON-PURE CODE 
PURE CODE 
20000 j 


figure 12.2 


Section 12 -87- 


CORE STRUCTURE (continued) 


MTSS does not have exclusive use of the disk. It was 
felt that the most convenient thing for all users of the PDP- 
9 would be to minimize the number of times anyone would have 
to copy the disk onto two DECtapes before uSing it and then 
copy it back when done. To do this the DEC V5A_ system has 
been allowed to retain the first half of the disk. The V5A 
user file catalog has been altered to make the V5A system 
think that the MTSS/GROWTH and scratch areas of the disk are 


already full. 


MTSS and GROWTH share a common catalog in the second 
block of their area of the disk and share the remainder of 
their area for system files. It is currently possible for 
users to also save files in this area; but this is 
discouraged for lack of room. The V5A system usage is small 
and declining, so it is hoped that before long the V5A user 
file area can be further cut back, and the extra space given 
to MTSS/GROWTH. Then it will be practical to accomodate a 


limited number of user files in this area. 


The last 48K of the disk is permanently reserved as a 
Scratch area. This permits MTSS to have a Swap area, and 
individual users of the dedicated machine to have a 
reasonable amount of physical disk space without worrying 


about destroying anyone's files. 


Section 13 -88= 


DISK STRUCTURE (continued) 


MAJOR DIVISIONS OF THE DISK 


V5A OPERATING SYSTEM 


400000 


V5A USER FILES 


540000 


MTSS/GROWTH SYSTEM FILES 


640000 


48K SCRATCH AREA 


1000000 


figure 13.1 


Section 13 -89- 


DISK STRUCTURE (continued) 


16K of scratch area is allocated to each Teletype, 
divided as shown in figure 13.2. The user job table occupies 
100 words, the Phantom core image occupies 1700(8) words and 
the "user physical disk" occupies 20000(8) words. If more 
Teletypes were added to the system, the scratch area would 


have to be expanded. 


Section 13 -90- 


DISK STRUCTURE (continued) 


TYPICAL USER'S DISK AREA 


USER PHYSICAL DISK 


20000 


USER CORE IMAGE 


36000 


PHANTOM CORE IMAGE 


37700 


USER JOB TABLE 
40000 } , 


figure 13.2 


Section 13 -9l1- 


DISK STRUCTURE (continued) 


MAJOR DIVISIONS OF THE 
MTSS/GROWTH PORTION OF THE DISK 


GROWTH BOOTSTRAP BLOCK 
MTSS/GROWTH CATALOG 


MTSS/GROWTH FILES 


USER #1 
USER #2 . 
USER #3 


figure 13.3 


6 40000 


700000 


740000 


1000000 
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FOTOTE TOR EHEHTOSEHEE SED HHOUEEREEEE DESERT HOE E HEED 


ee + 
#e PDp-9 MINI TIME*SHARING SYSTEM ee 
#e SYSTEM INITIALIZATION PROGRAM mr) 
sad DYSS!t INT a 
ee mTsSi ENT an 
+s en 


Set etat ag, eSsSrOeHFF Ges eGHsMF Sees sGgaeseeueeencas 
SOFGtatageGeHeSeHekeetekeeheeacesetageaesssasceees 


INT--INT 05/31/72 01504804 PDP-~9 MINI TIME=SHARING SYSTEM INITIALIZATION PROGRAM PAGE 1 


100 sTITLE PDP-9 MIN] TIME=SHARING SYSTEM INITIALIZATION PROGRAM 
110 NAME INT--JNT 
120 * 
430 * eeevotesceaPROGRAMS USED IN MTSSs#eaceneaas 
140 * 
150 * INITIALIZATION PROGRAM 
460 * DARTMOUTH TIMEeSHARING SYSTEM (SOURCE FILE) NAME: INT 
are * MINI TIME*SHARING SYSTEM (NON@RELOCATABLE BINARY FILE) NAME; INT 
159 * 
190 * EXECUTIVE «- RESIDENT PROGRAM 
200 * DTSS NAMES RES 
210 * MTSS NAME? B01 
220 ° 
230 * EXECUTIVE =~ SWAPPER OVERLAY 
240 * DYSS NAME: Swe 
250 a MTSS NAME? B02 
260 « 
270 * EXECUTIVE «~ MEMORY PROTECTION OVERLAY #4 
280 * BTSS NAME? MPL 
290 * MTSS NAMES BO3 
300 * 
310 r EXECUTIVE -- MEMORY pROTECTION OVERLAY #2 
320 * DYSS NAME MP2 
330 * MTSS NAME! B04 
340 * 
350 ® EXECUTIVE =~ SPECIAL IOT (EXECUTIVE CALL) AANDLER #1 OVERLAY 
360 * DTSS NAME? SPL 
370 « MYSS NAMEt B12 
380 * : 
390 rY PHANTOM PROGRAM -= SYSTEM MON] TOR AND MESSAGE OUTPUT 
400 « PTSS NAMES MTR 
410 . MTSS NAMES BOS 
420 4 
430 « PHANTOM PROGRAM ~= SYSTEM LOADER PROGRAM 
440 * DTSS NAME! LDR 
450 ® M7T8S NAMES B06 
460 bd 
470 * S8-USER PROGRAM -- DEBUGGER 
480 * DYSS. NAMES DOT 
490 * MTSS NAME} B07 
800 * 
510 ® S-USER PROGRAM -- BASIC INTERPRETER 
520 * O7Ss NAME BAS 
530 * MTSS NAME? B08 
4 * 
356 * USER PROGRAM ~~ PHYSICAL TELETYPE HANDLER SUBROUTINES PACKAGE 
560 . DTSS NAME! LIBTTY 
870 a MTSS NAME? B10 
580 * 
590 * USER PROGRAM «= GROWTH CATALOG HANDLING SUBROUTINES PACKAGE 
600 * DYSS NAMES GROCAT 
610 * MTSS NAME 811 


INT--[NT 


05/31/72 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
B80 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
4020 
1030 
4040 
1050 
1060 
1070 


01404104 
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PDP=9 MINI TIME-SHARING SYSTEM INJFIALIZATION PROGRAM 


»EWECT 
CORE LAYOUT FOR THE INITIALIZATION pROGRAM 


SHHFESHHTHESEHERSHTHSHAHEEEREHHEGSESETHEFEREHEEREEEREEEEHEHOTEDES RHE RET 
; LOCATIONS BUF TO BUFe4k aRE USED AS A BUFFER FOR COPYING FILES ; 
# FROM THE LIBRARY DECTAPE YO THE SYSTEM DISK, ® 
Chase vase wou bau ice pedeais eae Cre ientesaneureieiecssaeewrcstannesee: 
: LOCATIONS BASE*LCATL ARE USED FOR THE MAIN INITIALIZATION prOGRaM : 
Ciaasaws beac oe be eee kes ka Cea ehane able glacsaresednescewelidines. 


6 * 
@ LOCATIONS LCATL«TSWORDB ARE USED FOR MISCELLANEOUS INITIALIZATION @ 
® PROGRAM SUBROUTINES, * 
a. * 
SFSFEFHHESEHEHRESHETHEEREEEREHEGHAEPESEHEHEEEHHEHEHEEEEHESDETHEGHER RHEE HE 


° * 
# LOCATIONS TsWORDS-CSCTEMs ARE USED FOR TRAE MTSS STANDARD TELETYpE «@ 


@ WANDLER, * 
a * 
SHHHHHAEEHEHEHETEETHHERSHSHESHSHEHSEPESHP SHR EEHEEHTASHAHEAHESHEEERE GEES 
a e 
# LOCATIONS C§CTEMi-I1SOFILES ARE USED FOR THE GROWTH SYSTEM ro 
# STANDARD CATALOG ROUTINES, * 
t * 
SSHEHSHHHEHEEHEHEHEHHH ESLER EHEMEREEESHHE REESE SEEEEESESEEEECHEREGEE EE EDE DG 
J * 
# LOCATIONS ISOFILES-ISLCAY ARE UgED FOR A Ligy OF M¥sg LIBRARY # 
e FILES, aSSORTED CONSTANTS, aNp aN INITIALIZATION PROGRAM PRYSICaL « 
# DISK CATALOG, * 


SHSSKHESEGCEEEHEEESOTHESETESHHEETEREEEHEHREEDEEHGEHGEEEEERTERERE REE EES TY 
@ * 
@ LOCATIONS LCAT=LCAT+377 ARE YSED T9 HOLD a COpy OF yHE LIBpARy * 
® DECTAPE CaTaLoa, « 


@- * 
SRHKSSFSSSSSKSKHHEEHEESESEFEAEFEFEHEGFFOEHSHEKAHHHEEHDEEEEEEGEREROHEHEHEE TE 


s 
s 


LOCATIONS $CaTLOG-sCaTLOGs.377 aRE USED F8R THE STANDARD GROWTH 
CATALOG, SINCE THIS INITIALIZATION PROGRAM [8 LOADED FROM TweE 
MTSS LIBRARY DECTAPE BY THE GROWTH SYSTEM MONITOR, aT STARTUP 
TIME THIS CATALOG WILL Be A CATALOG OF TWE MYSS LIBRARY DECTAPE, 


2 @e¢ & 


SHHPESHTESHESSSHHRHSESSHEHEHEEHEESEHEH REET AEEEGEREEREEEHREEREER ED OE EE 


PAGE 
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INT-~-[NT 
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014043504 
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PDP~9 MIN] TIME=SHARING SYSTEM INITIALIZATION PROGRAM PAGE 


»EWECT 


THE INITIALIZATION PROGRAM WILL INITIALIZE MTSS FOR ANY NUMBER 
OF FILES OF ANY TYPE, AND FOR ANY NUMBER OF TELETYPES/USERS, 


THE SEQUENCE OF INITIALIZATION ACTIONS IS3 


1 


2 
3 


INITIALIZE THE HARDWARE 
INITIALSZE THE SAFYWARE FLAGS 


COaY THE CURRENT GROWTH CATALOG C617 SHOULD BE THE MTSS 
LJQRARY DECTAPE CaTabLOG) INTO LCAT, SINCE 37 I8 REPEATEDLY 
ACCESSED BY THIS PROGRAM, 


COPY THE CATALOG FROM THE SYSTEM DISK INTO THE STANDARD 
GROWTH CATALOG BLOCK SO THE STANDARD CATALOG ROUTINES 
WILL WORK WITH IT, 


UNSAVE FROM THE SYSTEM DISK ALL FILES ON TWE LIST OF SYSTEM 
FI.@5 WHICH BEGINS AT OFILES. DQ NOT WORRY ABOUT ANY WHICH ARE 
NOf SAVED TO BEGIN WITH, 


NOTE THAT QVERLAY FILES, USER-TYRPE SYSTEM FILES, AND 
PHANTOMeTYPE SYSTEM FILES ARE UNSAVED IN DISCRETE OPERATIONS, 
THIS 18 SO Twat IF If BECOMES DESIRABLE TO HANDLE THEM IN 
DIFFERING MANNERS JN THE FUTURB, I? CAN BE EASILY DONE, 


PURGE THE DISK TO COMPACT THE RESULTING CATALOG AND THE 
RESULTING DISK SAVED STORAGE, 


COPY ALL FILES ON TWE LIST OF SYST&M FILES WHICH 
BEGINS AT OFILES FROM THE MTSS LEBRARY DECTAPE TO THE SYSTEM 
DISK, 


NOTE THAT OVERLAY FILES, USER-TY@E SYSTEM FILES, AND 
PHANTOM@TYPE SYSTEM FILES ARE COPIED IN DISCRETE OPERATIONS, 
THIS 18 SO TWAT JF JT BECOMES DESIRABLE TQ HANDLE THEM IN 
DIFFERING MANNERS IN TH& FUTURE, I? CAN EASILY BE DONE. 


THE ENTRIES IN THE SYSTEM DISK CATALOG REFER TO LOGICAL 
DISK @LOCK NUMBERS RELATIVE TO TARE START OF THE GROWTH 
SYSTEM ON THe SYSTEM DJSK, AND TO aCTUAL CORE ADDRESSES, 
COPY INTO INTCAT THE ENTRIES FOR ALL SWAPPABLE SYSTEM 

FILES (THOSE Brey aN THE List PEQTNNING AT OF ILES) 
CHANGING LOGICal pISK apDRESSES VO PMYSIcaL DISK apDRESSES 
AND ACTUAL CORE ADDRESSES TO CORE ADDRESSES 4. ALSO CREATE 
THe ENTRIES FOR THE PURE CODE PORTION OF PaaNTOM PROGRAMS, 


NOTE THAT OVBRLAY FILES, YSER-TYPE SYSTEM FILES$, AND 
PHANTOMeTYPE SYSTEM FILGS ARE COPIED IN DISCRETE OPERATIONS, 
THIS 18 BECAUSE THEY AR& NOT HANDLED IDENTICALLY, 


INT-- [NT 05/31/72 


01404404 
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PDP-9 MIN] TIME=-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 


10 


14 


12 


FOR PHANTOM PROGRAMS AN ENTRY MUST BE Mane FOR THE 
PYRE CODE PORTION 


CERTAIN OVBRLAYS WAVE AN INTERNAL CATALOG THEY DEPEND 

ON (E.G, SWAPPER, OR EACH MEMORY PROTECTION OVERLAY CALLS 
THE NEXT ONE DIRECTLY), NOW THESB OVERLAYS ARE READ INTO 
THE OVERLAY aREa, ONE AY A TIMB, AND EACH HAS HIS CATALOG 
INITIALIZED FOR WIM, THEN THE GORRECTED cOPY IS READ BACK 
OUT ONTO TWE SYSTEM DISK, 


THE RESIDENT PROGRAM IS READ INTO RESIDENT CORE AND JTS 
RESIDENT CaTaLOG (WHOSE ONLY ENTRY IS THE SWAPPER POINTERS) 
1S SET UP ACCORDING TO THE SYSTEM DISK CATALOG. 


USER AND PHANTOM JOB TABLES ARE INITIALIZED TO INSURE 
THEY DON'T CONTAIN EITHER GARBAGE OR RANDOM PERMISSIONS, 


WITH INITIALIEZATION COMPLETE, & MESSAGE IS PRINTED ON THE 
CONSOL& TELETYPE, FINAL MARDWARE TIDVING UP IS DONE, AND 
THE MONJTOR 18 CALLED FOR THE CONSOLE TELETYPE. 


INT--JNT 


05/31/72 


1800 
1810 
1820 
1830 
4840 
1850 
1860 
4870 
1889 
1890 
1900 
4910 
4920 
4930 
1940 
4950 
1960 
4970 
1980 


04404104 
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PDP-9 MINI TIME=SHARING SYSTEM INITIALIZATION PROGRAM PAGE 
pEVECT 
TO INSERT A NEW PROGRAM INTO MTSS SAVE [T ON TWE MTSS LIBRARY DECTAPE AND; 
1 -- OVERLAY PROGRAMS! ADD JTS NAME TO THE LIST OF OVERLAY 
PROGRAMS (OFILES?, IN TwE OFILES LIST THE MEMORY PROTECTION 
OVERLAYS MUST BE LISTED CONSECUTIVELY, OTHER THAN THAT, 
ORDER IS IMMATERIAL. 
2 -- USER*TYPE SYSTEM PROGRAMS: ADD ITS NAME TO THE LIST OF 
USER=«TYPE SYSTEM PROGRAMS (UFILES), Q@RDER 1S IMMATERIAL, 
3 -- PHANTOMeTYPE SYSTEM PROGRAMS! ADD ITS NAME TO THE LIST OF 
PHANTOM*TYPE USER PROGRAMS (PFILES), ORDER 18 IMMATERIAL, 
NOTE THAT ALL PROGRAM NAMES MUST ALREADY 3& DEFINED IN THE DEFINS 
PROGRAM, Twat 1S TO MAKE THEM AVAJLABLE TQ aLL MTSS PROGRAMS. 


INT--]NY 
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000001 
000001 
012000 
012000 


4990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2090 


01304904 


DEFINS 
DEBYG 
NEXT 
FORMAT 


PDP-9 MINI TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 


/STITL 


»EQU 
EQY 
,EOU 
,EQY 
HEAD 
PMC 
LINSRT 


DEFINITIONS LOcAL TO THE INITIALIZATION PROGRAM 
DEFINITIONS LOGAL 70 THE INITIALIZATION PROGRAM 


1 TURN THE LISTING OM FOR THE DEFINITIONS INSERT 
1 TURN THE LISTING ON FOR ALL OTHER INSERTS 
ISSTART RESTART aADDRESS FROM DISK/DECTAPE HARDWARE ERROR 
ISSTART AVOIDS ERROR FLAGS FROM THE GROWTH INSERTS 

I 

ON PRINT ALL MACRO CODE 

DEF INS 


DEF INS 
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422020 
422021 
422022 
422023 
422024 
422045 
6020245 
422026 
602026 
422027 
422030 
422122 


606462 
606460 
606064 
445320 
646000 
00946p 
eer t 
004464 


140 
450 
460 
170 
480 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
840 
559 
56 
579 


01304304 
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PDP-9 MIN] TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 
MTSS SYSTEM DEFINITIONS 


HEAD MAKE SURE NO HEAD SYMBOL IS ON 
LISPW = PLBP2OGS 
DOCPW = BLN 
RSTPW = CRC 
CRW = UVLQ 


THE FOLLOWING OPDEF STATEMENTS ARE FOR CONVENIENCE ONLY 


,OPDEF 182 USED WHEN THE INCREMENT SHOULD NEVER SKIP 
,OPDEF JMP USED FOR SUBROUTINE EXITS 


MTSS PROGRAMS ARE ASSIGNED SERIAL NAMES INSTEAD OF MORE MNEMONIC 
NAMES TO MINIMIZE CONFUSION WITH OTHER JSERS!' PROGRAMS STORED ON THE 
SYSTEM DISK UNDER THE GROWTH SYSTEM, 


DEP |NE THE wTSS SYSTEM PROGRAM NAMES 


2 QU 422020 SYSTEM NAME [S 800 

,EQU 422024 Bot 

QU 422022 BO2 

,eQy 422023 803 

, EQ 422024 Boa 

EQ 422025 PHANTOM (ENTIRE CODE) NAME IS B05 
»EQU 602025 PHANTOM (PURE CODE) NAME IS POS 
,EQW 422026 806 

»E OY 602026 P06 

»EQy 422027 B07 

,EQU 422028 B08 

,eQY 422122 B12 


MTSS MUST BE ASSEMBLED FOR A SPECIFIC MAXIMUM NUMBER OF USERS IN 
ORDER TO ALLOCATE INTERNAL STORAGE AND DISK STORAGE GORRECTLY, 


WARDWARE DEVICE NAMES 


EQy 606462 ACI6 PTR 
»EOY 606460 ACI6 PTP 
»EQYU 606064 ACI6 PPT 
»EQY 445220 AC!6 DKo 
,e QU 646000 ACI6 TP ¢ 
,EQU 006469 ACI6O ¢ TPe 
,EQU 446499 ACIO @DT ¢ 
»EQU 004464 ACI6 e DTe 


DEF INS 
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016000 
0014000 
001000 
000700 
004700 
000100 
002000 
014000 
004700 
003700 
012100 
014000 
014000 


600 
610 
620 
650 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
896 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1050 
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PAGE 
MTSS SYSTEM DEFINITIONS 


* 
* 

* 

* PDP-9 MINI TIME=SHARING SYSTEM CoRE LAYoU? 

a 

* 0 OUHHEOEHES ESSER REEHEHA CEOS OPE DAS Ee 

® * # 

r * EXECUTIVE -- RESIDENT PROGRAM « RESLEN 
* * * 

* OVSTRT SHSTHEHHEK HEHE DET eSE EO HORE HoHEe HEED 

2 * * 

e ® EXECUTIVE -~ OVERLAY AREA * QVLEN 
« * * 

e JTSTRT HOCHESHHETERA RE ROHETET HHH AHC HEHEHE EE 

* * * 

* * USER JOB TABLE * JTLEN 
e * * 

* BOUNDARY S*¢eensseeceatonereetaetonetecctaaseaned 

e * : & 

* * * 

e * * 

* # USER pROGRAM AREA * USLEN 
* ° * 

® * * 

* * * 

* CORMAX SCHHESEHEHH HHO TECERHOMECEH OEE HERD HETED 

e 

* 

* 

* MTSS CORE LAYQUT DEFINITIONS 

* 

CQRMAX ,EQU 8K 

RESLEN ,EQUV OVSTRI 

OVSTRT ,EQU 1000 

OVLEN ,EQY JTSTRI=OVSTRI 

JTSTRT 3 ,&QU 1700 

JTLEN ,EQU BOUNDARY«JTSYRI 

BQUNDARY ,&QU 2000 

USLEN ,EQY CORMAX-“BOUNDARY 

IMPLEN ,EQU PURSTRT-BQUNDARY 

PURSTR ,6QY JTSTRTsBOUNDARY 

PURLEN ,EQV 8K@PURSTRY 

8x »EQVU 16000 FOR DEBUGGING PURPOSES ONLY --~ WILL BE LENGTHENED TO 20000 
74 »£QU 14000 FOR DEBUGGING PURPOSES ONLY ~- WILL BE LENGTHEDED TO 16000 


DEF INS 05/ 
31/72 01704304 
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MTSS SYSTEM DEFINITIONS 


1050 
1060 
1070 
4080 * 
fice : PHANTOM CORE LAYOUT 
4100 * 
eee : BOUNDARY tee aeteecetotaeeecescatenebates 
4120 * ; ; 
oe : ® TEMPORARY yARIABLES & 
1140 * USTORE : . 
ee : HOHHHHHEHEESH AGO EEO TEESE 
1160 * ; ; 
fe : *# USER REGISTER STORAGE * 
4180 PHSTOR ; 
ee ’ HPAP ETHEORT EHS HEETORE RETA E TD 
4200 * ; : 
at : * PHANTOM REGISTER STORAGE @ 
1220 * DBSsTO : ; 
1259 : R A ec aaa aka 
* 
ee : * DDT STORAGE . 
1260 * : 
oe : COMSTOR ci ieeieueeieceueesteeceen: 
aes : * ® 
tae z # COMMON PHANTOM STORAGE * 
4300 * BCNTRL : : 
soe : HRSHHGHHHERHSHRARHERDHO CREST 
oe : ° * 
1330 Q H FILE BUFFER CONTROL * 
* 
ee . BUFFER Diu aweleiuwe daaonseueeneleness 
1360 ® : : 
1370 * ! 
isat y # CORE BUFFER ‘ 
Het 
00 * 
me ; IMPSTRT pus weueasuaeedenanicecuasanes 
se : * e 
1430 * : : 
eer : *  [MPURE PHANTOM CODE * 
145008 . : 
4460 * 
pe A PURSTRT Oe usw seecaesieutereuiieiss 
red : * . * 
4490 * ‘ : 
4500 * : : 
sei : # PURE PHANTOM CODE * 
4520 * ; : 
1530 : ; 
4540 * 
eee : CORMAX Peucatalancvessteapeedeene ae. 
1560 . 


DEF INS 05/31/72 01504504 PDP-9 MIN] TIME=SHARING SYSTEM INITIALIZATION PROGRAM PAGE 10 


MTSS SYSTEM DEFIN: FIONS 


4570 Py PHANTOM CORE LAYOUT DEFINITIONS 

1580 * 

1590 * 

1600 « TEMPORARY VARIABLES 

1619 * 

1620 wHEAD =0,.,C,7,D 
002000 1630 TEMPO ,EQU BOUNDARY 
002001 1640 TEMPS ,EQU TEMPO 4 
002002 1650 TEMP2 »EQU TEMPi ed 
002003 1660 TEMPS ,EQU TEMP2e1 
002004 1670 TEMPS ,EQU TEMP3 41 
002005 1680 TEMPS »EQU TEMP444 
002006 4690 TEMPS ,EQY TEMPS o4 
002007 1700 TEMP? ,EQY TEMP604 
002010 4710 TEMPS eEQU TEMP7o4 
002041 1720 TEMPO ,E OY TEMPBO4 
o02042 1730 TEMP40 «6, EQU TEMP9O*L 
002043 4740 TEMP11 ,EQY TEMP10¢1 
002044 4750 TeMPL2 ,EQY TEMP11¢1 

1760 « 

1770 « USER REGISTER STORAGE 

4780 « 

4799 eHEAD 0,0, 
002045 4800 VSTORE ,E&QU TEMP1201 
092045 1810 ACSAVE ,EQY USTORE 
002046 4820 MQSAVYE ,EQY ACSAVE*1 
002047 1830 PCSAVE ,E&QY MQSAVES1 
002020 1840 STSAVE ,EQU PCSAVE*1 
002021 1850 SCSAVE ,EQU STSAVE*1 
002022 1860 ACSW »EQU SCSAVES1L 
002023 1870 LOSAVE ,EOU ACSWed 
002024 4880 LISAVE ,&QU LOSAVE4%1 

4890 * 

1900 * PHANTOM REGISTER STORAGE 

4910 « 
002045 4920 PHSTOR ,EOV 11SAVEe1 
002025 4930 PACSAV ,EQU PHSTOR 
002026 1949 PMQSAV ,EQV PACSAVe1 
002027 4950 PPCSAV ,EQU PMQSAVed 
002030 1960 PSTSAV ,EQU PPCSAVS41 
002081 4970 PSCSAV ,&QU PSTSAVed 
002032 4980 PACSW »EQU PSCSAVe1 
002033 1990 P1OSAV ,EQY PACSWot 
002034 2000 P11SAV ,EQU PLOSAVeL 

2010 bd 

2020 * DEBUGGER STORAGE 

2030 * 

* 2040 ~HBAD OD 

002035 2050 DBSTOR ,&QU PLISAVel 
0020385 2060 REGSH » &QU DBSTOR 
0020386 2070 ADRSW EOU REGSWed 


002037 2080 DUMSW »EOU ADRSWed 


DEF INS 


05/31/72 


002040 
002041 
002042 
002043 
002044 
002045 
002046 
002047 
002050 
002051 
602052 
002053 
002054 
0000¢4 


002150 
002150 


002151 
002154 
002152 
002183 
002134 
002155 
002156 
002157 
002140 
002161 
002162 
002163 
002164 
002165 
002166 
002167 
00 gis? 
004000 


003170 
003700 


D 


2090 
2100 
2110 
2120 
2150 
2140 
2150 
2160 
2470 
2180 
21490 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2500 
2510 
2320 
2330 
2340 
2350 
2360 
2570 
2380 
2599 
2400 
2410 
2420 
24390 
2440 
2450 
2460 
2470 
248 

249 

2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 


01704304 


COMSTOR 
PHF LAG 
e 
* 


* 


BGNTRL 
FTYPE 
OF TYP 
BDA 
BCA 
BLEN 
BALT 
BMIN 
MBMIN 
BMAX 
BPTR 
FDA 

MF DA 
FMIN 
MFMIN 
FMAX 
dUFFER 
@UFLEN 
ry 


* 
* 


IMPSTRT 
PURSTR 


PDP-9 MIN] TIME~+SHARING SYSTEM INITIALIZATION PROGRAM 


,EQY 
,EQy 
»,EGY 
»EQU 
»EQY 
,EQY 
,EQY 
EQY 
,EQY 
»EQU 
,EQY 
»EQU 
»EQY 
»EQY 


PHANTOM 
; MEAD 


, BOY 


MTSS SYSTEM DEFINITIONS 


DUMSWe 1 
PATSW+4 
LIM[T+«4 
LOC+4L 
PC*1 
LOCOR+4 
HICOR*1 
MASK #1 
RELOC*+1 
INDIR+4 
POCMSKs+ 14 
REGBR+1 
COMFL C414 
20. NUMBER OF BREAKPQINY CELLS 


COMMOK STORGAGE 
0 


3#DSBkNUM*DSBK TAB 
COMSTCR 


FILE BUFFER CCNTROL STORAGE 


MEAD 
yEQU 


8; 
PHFLAGed 
BONTRIL 
FTYPE<4 
OF TYP<«4 
BDA+t 
BCAeYL 
BLENes 
BAL Te: 
BMINe: 
MBMING4 
BMAXe: 
BPTRe:. 
FQA+L 
MFDAes 
FMINe? 
MEMING 4 
FMAXe: 
1000 


ACTUAL CODE CONTROL 


»HEAD 
,EQU 
EQY 
» HEAD 


M 
BUFFER*BUFLEN 
SPURSTR 


PAGE 
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DEF INS 
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000100 
004700 
016000 
000034 
640000 


2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 


04704104 


ses 


a 
TABLEN 
PHLEN 
QKLEN 
DKLENB 
SCRSTR 


PDP~9 MIN] TIME=SHARING SYSTEM INITIALIZATION PROGRAM 


MTSS SYSTEM DEFINITIONS 


MTSS DISK LAYOUT DEFINITIONS 


rE QV 
EQU 
»EQU 
,EOU 
2 EQY 


100 LENGTH oF A Jo8 TABLE 

8K=USLEN*TABLEN MAXIMUM LENGTH OF IMPURE PHANTOM CODG 
8K LENGTH OF BACH "USER PHYSICAL DISK" 
DKLEN/ 400 LENGTH OF YUSER PHYSICAL DISK" JN BLOCKS 
640000 


PAGE 
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DEF INS 


575600 
574646 
000036 
000037 
000002 
000004 
000001 
000000 
004300 

041500 
501777 
$00000 
000050 
000003 


000243 
000300 
009275 
000274 
000276 
0003356 
0090300 


000002 
000003 
000040 
009060 
000006 
009006 
000002 
000040 


05/31/72 


2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2809 
2819 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 


01504304 


a 

@ 

ON 

OFF 
DKWC 
DKCA 
DKRD 
DKWRT 
PHANTOM 
WSER 
SYSQAS 
SYSDA 
SYSMAX 
TOBLK 
CLK MAX 
USERS 


eseeeeoeeesese ee & & &E 


* 
CHRPAK 
TTYNUM 
TTYSPD 
GLKSPD 
TTYCLK 
CHRMAX 
FyOG& 
MINBUFF 


PDP-9 MINI] TIME-SHARING SYSTEM INITIALIZATION PROGRAM 


PAGE 


MTSS SYSTEM DEFINITIONS 


SYSTEM-WIDE CCNSTANTS FOR THE PDP-~9 TIME#SHARING SYSTEM, 


.EQU 
»EQY 
,EQU 
sEQY 
/EQY 
EQY 
,EOU 
»EQU 
»EQU 
sEQU 
,EOU 
»EQY 
EQU 
2EQY 


57560C 
574646 
36 

37 

2 

4 

1 

0 

1300 
o4000c *SYSBAS 
1777 


30000¢ 
40, 
3 


ASCII CONSTANTS 


»EQU 
»EQY 
,E0Y 
7 BOV 
»EQY 
EQU 
»EQU 


243 
300 
275 
274 
276 
336 
300 


ACI6 ON 

ACI6 QFF 

WOLDS TWO'S COMPLEMENT WORD COUNT FOR DISK REapS 
CORE ADDRESS LOcaTION FOR DISK READS 
NON-INTERRUPTING DISK READ COMMAND 
NON@INTERRUPTING DISK WRITE CommMAND 

FLAG FOR A PHANTOM PROGRAM 

FLAG FOR A USER PROGRAM 

STARTING (BASE) aLOck OF SYSTEM LOGICAL DISK 


MAMIMUM BLOCK OF TRE SYSTEM LOGICAL DISK 
MASK TO KEEP JUST THE 1/0 ROADBLOCK FLAGS 
2/3 SECOND TIMER (60 PER SECOND CLOCK) 
MAXIMUM NUMBER OF SIMULTANEOUS JOBS 


p=ARROW 


Secvanrn O02 


TELETYPE INpUT/ZOUTPUT QUFFEaRS MUST BE OF A CERTAIN MINIMUM SIZE 

IN ORDER TO PROVIDE UN-INTERRUPTED OUTPUT To aLL TELSTYPES. 

a TELETYPE 1/70 BUFFER MUST aT NO TIME BE EMPTIED PaST THE POINT 
WHERE IT HAS ENQUGH REMAINING OUTPUT TO Take UP THE PIME UNTIL 

{TS JOB*'S NEXT CORE SHOT, EVEN IF ALL OTHER USER'S WARE TO USE THEIR 


MAXIMUM CORE ALLOWANCES. 


WHEN THe TELE”YPE 1/70 BUFFER HAS MORE THAN Tig MINIMUM NUMBER OF CHARACTERS 


IN IT, 
1T FOLLOWS THa? FOR SYSTEM EFFICIENCY, 
BUFFERS CAN BE, 


THE BEYTER, 


ITs JOB CAN BE gUSPENDED FROM RUNNING (1/0 ROADBLOCKED), 


THE BIGGER THE TELETYPE 170 
BECAUSE & JOB FHAT J8 1/06 ROADBLOCKED 


COSTS VIRTUALLY NO PROCESSOR TIME, 
TELETYPE 1/0 BUFFER CONSTANTS TO DETERMINE MINIMUM PBRMISSIBLE BUFFER SIZE 


y 
EQU 


2 
3 
19 


60 
CLKSPD/TTYSPD 
Bene een 


NUMBER OF CHARCTERS PACKED PER WORD IN THE Try 1/0 BUFFER 
MAXIMUM NUMBER OF TELETYPES ON THE SYSTEM 


NUMBER OF CHARACTERS PER SECOND OF THE FASTEST TERMINAL ON THE SYSTEM 


NUMBER OF CLOCK PULSES PER SBCOND 
NUMBER OF CLOCK COWNTS PER TTY QUTPUT CHARACTER 


13 


MAXIMUM NUMBER OF EHARACTERS PRINTED DURING ONE STANDARD CPU SHOT 


FUDGE FACTOR ON BUFFER SIZE 


OSERS~1eCHRMaX/CHRPAKeF UDGE MINIMWM TTY BUFFER SIZE FOR CONTINUOUS PRINTING 


DEF INS 
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000002 
000003 
000005 
000006 
000006 
000026 
0000287 
000032 
000033 
000034 
000035 
000040 
000040 
000044 
000045 
000046 
000047 
000080 
000051 
000052 
000053 
000084 
000085 
000056 
000057 
000060 
000046 
000040 
000076 
000100 
000102 
000104 
000107 
000125 
000127 
000131 
000133 
000136 
000154 
000156 


3230 
3240 
3250 
3260 
3270 
3280 
3290 
3500 
3510 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3589 
3599 
3600 
3610 
3620 
3630 
3649 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 


01704404 


seenfretft# e@ £ eB 


* 


a 
— 
x 4 
~ 
~ 


PDP-9 MINI TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 
MYSS SYSTEM DEFINITIONS 


DEFINITIONS OF LABELS REQUIRED FOR INTER@MODULE COMMUNICATIONS, 

EXCEPT FOR THE R&SIDENT PROGRAM THE ADDRESS GIVEN IS THAT OF A 

POINTER TO THE ITEM WITHIN THE MODULE, IN THE CASE OF THE RESIDENT 

PROGRAM THE ADDRESS GIVEN IS THE aCTVAL ADBRESS OF THE ITEM IN QUESTION, THIS 
1S BECAUSE THE RESIDENT PROGRAM HAS NO ROOM FOR THE SIZEABLE 

TRANSFER VECTOR THAT WOULD BE REQUIRED OTHERWISE. 


THE LABELS DEFINED HERE ARE YPHE SAME aS THE LABELS D@FINED IN THE 
MAIN PROGRAM, EXCEPT THAT HERE THEY ARE NOT UNDER a MEAD SYMBOL, 


RESIDENT PROGRAM LABELS 


a ae] 3 
»eQU 5 
»EQY 6 
»EQU CNTRL 
2EQV 26 
»EQYU 27 
»EQY 32 
»EQU 33 
»EQYU 34 
»EQY 35 
eEQY 40 
»EQY SWRS 


,» ROU RESCAT C4 

,€QQ CSWP et 

» QU CMP1i¢1 

»eQY CMP2e1 

»&QY CSPLei 

»EQY STM2004 

»EQU STEMOeL 

,EQU STEMiLe4 

2&Qy STEM2e4 

EQY STEMS 44 

»EQY STEMS +4 

»EQY STEMS o4 

»EQU STEM604% 

»EQY MINBUF 46 

»EQU 8, 

»&QU CTBFReKBLEN 
,EQOU CTBFReKBLEN+2 
FOU CTBINe?2 

»EQYU CTFLGe2 

»EQU CTBINeKBNUM-¢ 
»EQYV LAiBFReKBLEN 
»EQU LIBFReKBLEN+2 
,EQYV LiBINe2 

, EQ LIFLGe2 

e£QU LAaBINeKBNUM=4 
.EQY L2BFR*KBLEN 
»EQY L2BFReKBLEN+2 
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000160 
000162 
000227 
000230 
000234 
000235 
000241 
000242 
000266 
009270 
000274 


000303 
000305 
000335 
000336 
000340 
000543 
000525 
000540 
000546 
000602 
000623 
000634 
000635 
000636 
009637 
000640 
000641 
000642 
000643 
000644 
000645 
000646 
000647 
000650 
000681 
000682 
009683 
000684 
000662 
000663 
000672 
000675 
000702 
000703 
000704 
000705 


000076 
000077 


3750 
3760 
3770 
3780 
3799 
3800 
3810 
3820 
3830 
3840 
3850 


3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
$9790 
3980 
3999 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4470 
4180 
41990 
4200 
4210 
4220 
4230 
4240 
4250 
4260 


01504304 


w2F_G 
L2NAM 
PFLAG 
RPTP 
RFLAG 
RPTR 
PBFLAG 
RSCO 
DKLOK 
PIDON 
PIDN2 


PLOUT 
SAEST 
SWAP 

SWAPS 
SWAPS 
1Q.1N 
10,07 
NeWBR 
PUTIN 
FGET 

NXPTR 
B}TO 

BIT36 


PDP-9 MINI TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 
MTSS SYSTEM DEFINITIONS 
»eQV L2BINe2 
,EQy L2FLGe2 
»EQY L2NAMe45 
e£OU PFLAGe4 
,E QU RPT Pe 
,EQU RFLAG*4 
EQU RPTRo4 
»EQU PBFLAG1 
,EQY RSCO0«20, 
»BQY DKLOK*e2 
+eQV PI DON?4 
,EQU PIDN297 
,EQU PLOUT+¢2 
»@QU 3REST+24, 
,EQY SWAP ed 
,eQu SWAP142 
,EQU SWAPS+453 
» BOY IQ, JNe10, 
,&9U 10.,0T¢41, 
,69U NEWBR+6 
,eQU PUTING28, 
.&QU FQET*17, 
,eQY NXPTR*O, 
,BQY BITOe1 
.BQY Bl ys6e4 
,eQU BITSes 
,BOU BlT6e4 
,EQU BIY7e4 
,EQU BIT17¢4 
, BQ BL7 +t 
»2QU BL Set 
,EQYU CB0+4 
,EQU CBi+4 
,E QU CB5e4 
»EQU CB7+4 
» OQ CBLSe1 
,&OU ADRSS+4 
EQU JUMP +d 
»e QV DAK+4¢ 
,EQY DQ+6, 
,EQY DQ2e4 
,EQU DO3+7. 
»BQU DKOVReS, 
QU DKDONSS, 
+ BQU OCOe4 
» QU OCi+4 
»EQYU OG244 
DEFINE THE NAMES ASSOCIATED WITH GACH POsstBLE YgER 
.EQW CTBIN=2 NAME QF THE USER paOGRAM FOR USER #0 
,EQU USoes NAME OF THE PHANTOM PROGRAM DISK STORAGE SPACE FOR USER #0 
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DEF INS 05/31/72 014704104 PDP-9 MIN] TIME=SHARING SYSTEM INITIALIZATION PROGRAM . PAGE 16 


MTSS SYSTEM DEFINITIONS 


000100 4270 OKO EQY PHOL NAME OF THE USER "PHYSICAL DISK" DISK STOMAGE SPACE FOR USER #0 
000075 4280 yTto ,EQy uSO=4 ; 
0001245 4290 VS4 »EQY LiBINe2 
000126 4300 PAY ,EQU USi+1 
000127 43190 OK1 »EQY PHi+t 
000124 4320 UT4 ,2QU USied 
000154 4330 YS2 » EQ L2BIN#2 
000155 4340 Pu? ~EQU US2+4 
000156 4350 0K2 »eQYU PH2e4 
000153 4360 yr2 Ee QU US2~1 

4370 * 

4380 * J08 TABLE LABELS 

4390 * 
004700 4400 FRDA »EQU JTSTRY 
0041701 4410 FRCA »EQYU FRDAe4 
004702 4420 FRLEN OV FRCA+1 
004703 4430 FRSTA »EQY FRLENCL 
004704 4440 UTEMO »EQU FRSTASL 
004705 4450 VYEMt ,&QU UTEMOe4 
001706 4460 UTEM2 2E QU UTEM144 
004707 4470 UTEMS »EQYU UTEM2e4 
004740 4480 UTEM4 EQU UTEMSe4 
004741 4499 YTEMS ,&QY UTEM4¢4 
004742 4500 UTEMS sEQU UTEMS 44 
004743 4510 +0 »E QU UTEM644 
0014753 4520 4G 2EQU -04*40 
004754 4530 MQ .EQY AC#1 
004755 4540 SC »EQU MQ*4 
004756 4550 acs ,EQU SC+1 
004757 4560 CLOCK ,EQU ACS +4 
004760 4570 TORS ,EQU CLOCKe4 
004761 4580 OF LAG »EQU IQRS$o4 
0014762 4590 DAPO ,EQU DFLAG+4 
004763 4600 DAPI EU DAPQ41 
001764 4610 OFN FE QU DAPL #4 
004765 4620 ogra »EQY DFNe4 
001766 4630 VCORE .EQY DSTAT 44 
004767 4640 VOISK ,&Oy UCORES4 
004770 4650 VALID ,EQY UDI$Ke4 
004771 4660 NUMBR »&QU VALIDe! 
004772 4670 NAME ,€QU NUMBRo4 
001773 4680 OVER ,EQY NAMES 
001774 4690 TYPE ,EQU OVERe4 
004775 4700 PYRNM sEQU TYPE a4 
001776 4710 ASTRT 2EQY PURNM¢4 

4720 * 

4739 + SWAPPING PROGRAM POINTER ADDRESSES 

4749 « 
004000 4750 SWCAT =, EQU ovsTrt 
004001 4760 SWPPR EQY SWCAToL 
004002 4770 SWMTR al!) SWPPR4 


004003 4780 SWCLK ,EQU SWMTRe1 


DEF INS 
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004004 
004005 
004006 
001007 
004040 
001041 


002000 
004001 
004002 
001003 
004004 


004000 


012000 


002000 


002000 


01404104 


SWERR 
SWSPI, 
SXSPI, 
SwMPt 
SwMP2 
SwoOPR 


PpP-9 MIN] TIMEeSHARING SYSTEM INITIALIZATION PROGRAM PAGE 
MTSS SYSTEM DEFINITIONS 

EQ SWCLKet 

»EQY SWERR+1 

,EQY SWSPL+1L 

»EQY SXSPLei4 

»EQY SWMP4¢4 

»EQY SWMP2¢4 

MEMORY PROTECTION PROGRAM POINTER ADORESSES 

»EQU OVSTRY 

»eOU MPSTed 

,EQY PINTed 

»EQYU 1QTO0e1 

»EQY RDBL Ket 

SPECIAL 107 CEXECUTIVE CALL) HANDLER POINTER ADDREgs&s 

»EQYV OVSTRT 

DEBUGGER PROGRAM POINTER ABDRESSES 

»€QVU 12000 

MTSS LoADER PROGRAM POINTER ADDRESSES 

,EQU BOUNDARY 

MTSS MONITOR/MESSAGE OUTPUT PROGRAM POINTER ADDRESSES 

7EQU BOUNDARY 


THE FOLLOWING MACROS ARE USED ONLY IN PURE*CODED PHANTOM pROGRAMS, 
THEY HELP TO KEEP IMPURE CODE SEPARATE FROM PURE CODE, AND TO 
PUT ONLY THE NECESSARY THINGS IN THE IMPURE AREA, 


DEFIN 

»PMC SAVE,ON 
XX 

PMC RESTORE 
»ENDM 
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777400 


000377 


000375 
000376 
000377 


5350 
5360 
53570 
ence 
5590 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5499 
5500 
5510 
5520 
5530 
5540 
5550 
§560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
$680 
5690 
5700 
5710 
5730 
2100 


01704504 


ENDM 
TERMINATE ,QPDEF SPECI ALe1 


READ 
PREAD 
WRITE 
PHRITE 
TROON 
TRCOFF 
ARK 


PDP-9 MIN] TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 


MTSS SYSTEM DEFINITIONS 


MTSS EXECUTIVE SERVICES ARE REQUESTED USING A SPECIAL SET OF 
OTHERWISE UNUSED JOT INSTRUCTIONS (10T#5900 ~ 10745377), 
WENCE THE NAME 'SPECIALS! 


,EQU 777400 
~OPDEF 10T+5000 
,E QU 377 


»DEFIN 

.PMC  —s SAVE, ON 
SPECIAL+0 

.PMC RESTORE 


,OPDEF SPECTAL+2 
,OPDEF SPECIAL eS 
,OPDEF SPECIALSS 
,OPDEF SPECIALSS 


e OY 375 
»E OU 376 
7 EQU 377 


MASK TO RETAIN THE "SPECIaL® BITS 


MASK TO RE®AIN JUS® THE BIT~GODE FROM THE SPECIAL 


TURN OFF MEMORY PROTECT 


DDT TRACE ON SPECIAL 
DD¥ TRACE OFF SPECIAL 
DD¥ BREAKPOINT 


MT8S EXECUTIVE CALL MACROS 


»DEFIN 
SPECIAL 1 


CONTROL NAME, RESTART ,NUMBER, (.0.2,) 
SPECIAL [0% SWAPPER REQUEST 

SWAPPER CONTROL WORD 

SYSTEM FILENAME 

RESTART OVERRIDE 

PASSED PARAMETER CQUNT 


SEND 
PINSRT sOLIBRARYSPDPOLIB:@RODEFIN 
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GRODKFIN 
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000242 
000245 
000230 
000337 
000240 
000244 
000243 
000244 
000246 
000252 
000253 
000254 
000255 
000256 
000256 
000257 
000272 
000273 
000334 


017777 
002000 
017500 
017502 
017505 
017777 
000040 
000041 
000042 
017740 
017795 
017000 
000001 
000400 
000005 
000004 
017005 
740000 
004777 
777746 
000400 
776701 
777601 


01304304 


& 
% 
# 


LF 

cR 
CQNTX 
BKARR 
SPACE 
EXCLAM 
NUMSGN 
DOLLAR 
AMPRSN 
STAR 
PLUS 
COMMA 
MINYS 
PERIOD 
POINT 
SASH 
COLON 
SCOLON 
@SLASW 


AoRSS 
BOUNDA 
TAPIN 
TAPOT 
RECOV 
VFLAG 
INDEX 
CarxX 
CMOX 
BOOT 
SYSDEV 
CaTLOG 
CaTalK 
CATLEN 
FCBLEN 
WORLEN 
CRARAM 
DYCMSK 
BLKMSK 
CATMAX 
BLKLEN 
OTMaX 
DKMAX 


PDP-9 MINI TIME+SMARING SYSTEM INITIALIZATION PROGRAM PAGE 


PROGRAMMED BY ROBERT W, 


GROWT SYSTEM STANDARD DEFINITIONS 


BLEAN 


LATEST REVISICN 20 JAN 1974 


ASCII CHARACTERS 


»EQY 212 
»EQY 245 
,EQy 230 
atl) 337 
,EQ\ 240 
,EQU 241 
»eQy 243 
,BQY 244 
,EQY 246 
,EQU 252 
»&QY 253 
EQU 254 
QU 255 
2EQV 256 
»EQYU PERIOL 
»BQY 257 
,EQU 272 

» BOY 273 
,EQ\ 334 
CONSTANTS 
,EQU 17777 
,EQY 2000 
,EQY 17500 
,EQU 17502 
»eQ\ 17505 
,&OU 17777 
, OU 10 

» EGY 14 
,EQY 12 
EQY 17740 
OY BQOTe3 
,EQY 17000 
,&9NU 1 
,EOY 400 
EGY 5 
,EQU 4 
,EQY CATLOG#S 
,EQU 740000 
,EQU 1777 
,EQY #50, 

, EO 400 
,EQU -4077 
» EO -477 


EXCLAMATION POINT 
$ 

a 

ASTERISK (¢#) 


BAEK SLASH (\) 


ADRESS FIELD MASK 
¥S8 USER CORE STaR? 


GENERAL PURPOSE AVTO-INDEX REGISTER 
CATALOG ROUTINES! AUTO-INDEX REGISTER 


BOOTSTRaP LOADER S¥gRTING gDDRESS 

WOLDS DEVICE ADDRESS OF CATALOG BLOCK ON THE SYSTEM DEVICE 
START OF THE RESIDENT CATALOG BLOCK 

CATALOG {S AT LOGICAL BLOCK 4 OF ANY DEVICE 

CATALOG LENGTH 18 406 WORDS MAXIMUM 

FILE CONTROL BLOCK 18 FIVE WORDS LONG 

CATALOG HEADER [8 FOUR WORDS LONG 

POINTER TO PARAMETERS FOR CATALOG READ/WRITE 

MASK TO GXTRACT HANDLER NUMBER AND TYPE FROM DEVICE ADDRESS 
MASK TO RETRIEVE DEVICE BLOCK NUMBER 

MAXIMUM NUMBER OF FILE CONTROL BLOCKS IN a CATALOG 

NUMBER OF WORDS {N ONE LOGICAL BLOCK 

MANIMUM NUMBER OF WSABLE BLOCKS ON A DECTAPE 

MAXIMUM NUMBER OF WSABLE BLOCKS ON A LOGICAL DISK 
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GROWTH SYSTEM STANDARD DEFINITIONS 


660 
670 * DEVICE NAMES 
680 
606064 690 PPT ,EQU 606064 
606462 700 PTR »eQy 606462 
- 606460 710 PTP »EQY 606460 
446400 720 oT, ,EQU 446400 
646000 730 Tr, ,EQY 646000 
445300 740 OK, ,EQU 445300 
004464 750 QT »EQY 004464 
006460 760 TP »BQYU 006460 
004483 770 + OK BOY 004453 
445320 780 DKO ,EQU 445320 
790 
800 * PILENAMES 
436454 810 CTL ,EQU 436454 CATALOG BLOCK 
820 
e30 * FORMATS 
840 
414263 850 Ags »EQU 414263 LOADSTRING BINARY 
425156 860 BIN ,&QU 425156 BINARY 
476257 870 GRO »EQY 476257 GROWTH SYS¥EM FORMAT (CORE I MAQE) 
435762 880 COR »EQU 435769 CORE 
890 
900 * MacROS 
910 
920 ENTER ,DBFIN 
930 #4 XX 
940 ENDM 
950 
960 ,QOP »DGFIN 
970 {$2 #4 
980 JMP #2 
990 »ENDM 
14000 
4010 NEG »DEFIN 
4020 CMA 
4030 Fad (i ) 
1040 ENDM 
4050 | 
1060 FORMAT ,DBFIN 
4070 ume FORMAT 
4080 ,ENDM 
4090 
4100 START =, DEFIN STANDARD INITIALIZATION MACRO FOR THE GROWTH SYSTEp 
1110 , PMC SAVE,QN PRINT THIS ONE MACRO, AT LEAST 
1120 car 
1130 OF} CLOF 
4140 Lac (700000 ) 
1150 ISA APT ONs NO PAPER TAPE READER aTTACHED 
1160 TL 810 


4170 DLP DISABLE THE LIGHT PEN, ON GENERAL PRINCIPLES 


GRO EF IN 
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1180 
£190 
4200 
1210 
1220 
4230 
4240 
1260 
2110 
440 
450 
460 
470 
480 
490 
200 
210 
220 
2350 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
830 
$40 
550 
560 


01404104 


NEXTL 
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GROWTH SYSTEM STANDARD DEFINITIONS 


DZM CATALT WE WON'T MESS WITH SOMEONE ELSE'S ALTERED CATALOG 
MESS C#1 HERE>,#2-5 

MESS < y>,4 "PRINT THE JNPUT REQUEST 

LINE GET THE USER'S [NPUT 

PMC RESTORE 

»ENDM 

vEND 


LUINSRT) s:DLIBRARY:PDPOLIB:LIBMACRO 


THESE MACROS ARE FOR USE WITH THE PROGRAM PDpOLI Bees TTY-NON 
TTY*NON IS A NON=JNTERRUPT DRIVEN TELETYPE HANDLER FOR THE CONSOLE 
YELETYPE ON THE PDP-9, : 


LING INPUT MACRO [S3 


LINE ++ GETS THE NEX? LINE FROM THE TELETYPE, PACKS I7 IN THE 
INCLUDED LING BUFFER, AND RETURNS YO TWE USER, USE BACKRARROW 
FOR CHARACTER DELETION AND CONTROL X FOR LINE DELETION, 
THE ROUTINE PROTECTS AGAINST BUFFER UNDERFLOW OR OVERFLOW, 


WORD INPUT MACROS ALL DELETE LEADING BLANKS, RETURNING TO THE USER 

AT #4 WITH THE DELIMITER IN THE aC IF A DELIMITER IS THE FIRST NON- 
BLANK CHARACTER, THEY aLL UTILIZE WORDB AND WORDB+1 FOR STORAGE, AND 
ANY VALUE ACCUMULATED THERE REMAINS UMTIL THE NEXT TIME A WORD~PACKING 
MACRO IS USED ('WORD! OR 'NUMI), THE DELIME TER THAT ENDED THE WORD 

{S STORED IN DLMTR UNTIL THE NEXT TIME A WORD PACKING MACRO IS USED 

OR UNTIL THE USER PROGRAM USES THE ROUTINE tcHRIDI, 

THE AVAILABLE MACROS ARES 


WORD -e PACKS CHARACTERSe IN A LEFYT-JUSTIFIED SIXBIT PACK, 
INTO WORDB, WORDB+a, ..,. RETURNS THE FIRST THREE (OR 
FEWER) CWARAGTERS LEFTY JUSTIFIED IN THE AC, 


NUM «= GETS A NUMBER, AND RETURNS J¥ IN THE AC, A FORMAT ERROR 
1S CAUSED BY A LETTER BEING FOUND OR BY A DECIMAL DIGIT 
(8 OR 9) BEING FOUND WITHOUT a TRAILING DECIMAL POINT, 
THAT THE DECIMAL VALUE [58 DESIRED 1S SIGNALLED BY THE 
DELIMITER BEING A PERIOD. OTHERWISE THE OCTAL VALUE 18 
RETURNED, THE VALVE RETURNED REMAINS AVAILABLE [IN WORDB, 
THIS IS THE VALUE FOUND MOD 2048 e- 1.8. OVERFLOW I8 LOST, 


RETURN 18:3 
#4 WITH LINK # 0 FOR A FORMAT ERROR 
+4 WITH LINK 9 1 FOR THE FIRST NON-BLANK CHARACTER A DELIMITER 
+2 FOR SUCCESS 


WORD1 -= GETS THE CONTENTS FROM WORDB, THIS IS THE FIRST THREE 
SIXBIT CHARACTERS OR THE VALWE, 
WORD2 -~ GETS TWE CONTENTS OF WORDBe1, THIS IS THE SECOND THREE 
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570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
760 
790 
800 
810 
820 
830 
840 
850 
860 
670 
860 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
4000 
1010 
1020 
1030 
4040 
1050 
1060 
1070 
4080 


01704504 
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PDP-9 MIN] TIME=SHARING SYSTEM INITIALIZATION PROGRAM PAGE 
GROWTH SYSTEM STANDARD DEFINITIONS 


SIXBIT CHARACTERS OR THE “DECIMAL™ VALUE. NOTE THAT THE 
"DECIMAL@ VALUE WILL BE GaRBaGE IF aN OCTAL NUMBER WaS INPUT, 


IN THE CASE OF SIXBIT INPUT, FURTHER INPUT WILL BE LOST, 


COUNT ~- GETS TWE OCTAL COUNT OF THE NUMBER OF TIMES * WORD! AND 
'NUM' HAVE BEEN CALL@D SINCE TWE LINE WaS INPUT, THIS 
1S THE COUNT OF THE NUMBER OF WORDS EXTRACTED SO FAR 
FROM TWE CURRENT LING BUFFER, 


DELIM -= GETS TWE LAST DELIMITER SEEN BY 'ChiRID!, THIg WILL BE 
THE DELIMITER THAT ENDED THE LAST WORD FETCHED UNLESS 
THE USER PROGRAM IS ACCESSING 'CWRID! {TSELF. 


MISCELLANEOUS CHgRACTER-ORIENTED MACROS? 


CHAR v= GETS TWE oLDEST REMAINING CHARACTER FRM THE LINE BUFFER, 
THIS PERMITS THE USER PROGRAM TO EXAMINE THE ENTIRE INPUT 
STRING, WHICH IS A WARD THING FO DO USING 'WORD!, 
RETURNS +1 WITH THE CHARACTER IN YWE AC 


CRLF = PRINTS A CARRIAGE RETURN AND LINE FEED, IT DISTURBS NO 
STORAGE OR POINTERS, 


CHROY ~~ PRINTS THE SINGLE ASCII] CHARACTER IN THE AC, 


OUTPUT MACROS ARB} 
OCT = OUTPUTS aS SIX DIGIT OCTAL TAME CONTENTS OF THE AC, 
QCTZ e«~+ OUTPUTS aS OCTAL WITH LEADING ZEROES SUppRESSED THE CONTENTS OF THE AC, 


MESS <TEXT>, <CHARACTER COUNT> USES SIXBIT FORMAT TO OUTpUT THE 
CARRIAGE RETURN AND LINE FEED, FOLLOWED BY THE TEXT, IT 
FIRST pOES a 'KRB! INSTRUCTION TO CLEAR ANY PRINT-INHIBIT, 


MESSR CTEXTD>, CCHaRacTER COUNT> [S THE SaME aS 'MESS!, gUT NO 
‘KRB' 1S SUPPLIED, TAIS PERmMETS CONTINUATION OF A SINGLE 
MESSAGE, 


NMESS <TEXT>,<CMARACTER COUNT? Ig THE SAME AS 'MESSR! EXCEPT 
NO CARRIAGE RETURN NOR LINE FEED 18 SUPPLIED. THIS PERMITS 
CONTINUING THE MESSAGE ON THE SAME LINE, 


MJTTING ANY KEY ON THE TELETYPE DURING OuTPur WILL INHIBIT THE ACTUAL 
PRINTING OF THE REST QF THE MESSAGE UNTIL THE NEXT tMESS! OR KRB 
INSTRUCTION, NOTE THAT EXCEPT THE CHARACTER IS NOT PRINTED, THE REST 
OF THE PROGRAM CARRIES ON aS USUAL, 
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1090 
1100 
1110 
4120 
1130 
1140 
1150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
1270 
1280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
1430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
1530 
4540 
1550 
4560 
4570 
1589 
4590 
4600 


01404104 


LI Ne 


WORD 


WORDS 


WORD? 


NUM 


CRLF 


CHROT 


CHAR 


DELIM 


COUNT 


MESSR 


5 


PDP-9 MINI TIME-SHARING SYSTEM INITIALIZATION PROGRAM 


DEF IN 
JMS 
»ENDM 


»DEFIN 
JMS 
,ENDM 


»DEFIN 
Lac 
»ENDM 


»DEFIN 


GROWTH SYSTEM STANDARD DEFINITIONS 


TSINLIN 


TSSIXMIN 


TSWORDB 


TSWORDBe1 


TSNUM:N 


TSCRLF 


TSTTyoT 


TSFGET 


TSDLMTR 


TSCOUNT 


SAVE,ON 
~#202 

TSSIXOT 
SAVE,OFF 
el) ie 

RESTORE 
RESTORE 


PAGE 
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GROWTH SYSTEM STANDARD DEFINITIONS 


1610 

4620 MESS »DEFIN 

1630 KRB 

4640 MESSR <#1>,82 
4650 »ENDM 

1660 . 

4670 NMESS ,DBFIN 

1680 ,CRSM SAVE,ON 
1690 Law =#2 
4700 JMS TSSIXOT 
4710 #5 »ACl6 e#L¢ 
4720 ,CRSM RESTORE 
4730 ,ENDM 

1740 

1750 EMESS ,DEFIN 

1760 ,CRSM SAVE,ON 
4770 MESS #41 WORD #>, #297 
4780 COUNT 

4790 OCTZ 

4800 ,CRSM RESTORE 
4810 2 ENDM 

1820 

4830 

1840 OcTZ DEF IN OCTAL PRINTOUT OF Tye aC W1Ty LEADING ZEROES SUPPRESSED 
4850 STL 

1860 JMs TSOCTOT 
4870 »&NDM 

1880 

1890 OCT »DRFIN OCTAL PRINTOUT OF THE AC 
£900 Chl’ 

4910 ums TSOCTOT 
41920 ,ENDM 

1930 


4950 .END 


INT--[NT 
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445320 


013774 


012000 


012000 
012001 
912002 
012003 
912004 
012005 
012006 
912007 


012040 
012041 
012042 
912043 
912044 
012045 
012096 
012047 
012020 
012021 


P12022 
91-0235 
012024 
9120285 
012086 
912027 
912030 
912034 


7035302 
700006 
705514 
707074 
214374 
7014704 
700721 
700416 


776777 
040010 
773773 
040041 
777400 
055651 
220010 
060044 
453651 
612016 


772027 
053516 
214375 
052654 
6155235 
740040 
053637 
415306 


2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
23510 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2489 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
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SYSOSK 
RET 
LJ3aDEV 


START 


2ees & 


INTOO 


INTOS 


PDP~9 MIN] TIME-SHARING SYSTEM INITIALIZATION PROGRAM 


MAIN FROGRAM 


»EQU DKQ 
,OPDEF JUMP 
»EQY ISLCAT 
»NEAD I 


INITIALIZE THE HARDWARE 


»L0C 

Car 
1OPSCLOF 
1Sa«ig 
DLAH*10 


12000 


(BOUNTARY) 


INITIALIZE THE SOP TWARE 


PAGE 


DISK 0 IS OUR ONLY DISK, 
CORRECT GROWTH DEF ENITION 


AND J$ THE SYSTEM DISK 


COPY THE LIBRARY DECTApPE CATALOG INTO LCaT, 


LAW SCATLOG-1 
Dac 10 

LAW LCAT#1 
Dac 14 

LAW ~SCATLEN 
DAC TEMP2 

Lac 10x 

Dac 11.X 

{Sz TEMP2 

JMP INTOO 


SEY THE START ADDRESS OF THE REGULAR BLOCK 
SEY THE START ADDRESS OF THE SPECIAL BLOCK 
SEY THE LENGTH TO COPY 

FRANSFER THE NEXT 


COUNT THE TRANSFER 
NOT DONE YET == LOOP 


WORD 


COPY THE SYSTEM DISK CATALOG INTO SCATLOG 


Law INTO4 
Dac CSDEVCV 
Lag (SYSDSK) 
DAC TSWORDB 
JM? CEDEVCS 
xXx 

DAG SYSDVC 
JMS CSRCA* 


SET THE RETURN ADDRESS 

GET THE SYSTEM DISK MNEMONIC 

PASS THE MNEMONIC 70 THE SUBROUTINE 

CONVERT IY TO DEVICE ADDRESS FORMAT 

raTalL ERROR IF CONVERSION THINKS IT 18 A PAPER TAPE 
SET THE SYSTEM DEVICE ADDRESS 

GET THE SYSTEM DISK CATALOG 
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INT=-JNT 


012032 
012033 
012034 
912035 
912036 
9120387 
912040 


912041 
012042 
912043 
012044 
912045 


912046 
012047 
012050 
012051 
012052 
912053 
012054 
912055 
912086 
042057 


912060 
012061 
012062 
012063 
012064 
012065 
912066 
012067 
012070 
912071 
012072 
912073 
012074 
012075 
012076 


05/31/72 
! 


773634 
040010 
1123356 
112336 
1123356 
453305 
415354 


219657 
052424 
052422 
217002 
053650 


217005 
354376 
057000 
777010 
057001 
040012 
040041 
777777 
057002 
453305 


453650 
744000 
612115 
e20042 
744200 
612111 
413555 
740040 
220012 
052424 
420012 
053651 
220012 
052423 
413604 


Beene 


01704304 
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PDP-9 MIN] TIME-SHARING SYSTEM INI FIALIZATION PROGRAM PAGE 


MAIN PROGRAM 


UNSAVE ALL SYSTEM FILES FROM THE DISK, 


LAW UFILES 

Dac 10 SET A POINTER TO THE LIST OF FILES TO UNSAVE 
JMS UNSAVE UNSAVE ALL OF THE QVERLAY FILES 

JMS UNSAVE UNSAVE ALL OF THE WSER-TYPE SYSTEM PROGRAMS 
JMS UNSAVE UNBAVE ALL QF THE PHANTOM-TYPE SYSTEM PROGRAMS 
INX SCATALT DEBUGGING INSTRUCTION 

JMS CSFORCE DEBUGGING INSTRUCTION 


PURGE THE DISK TO CLEAN Up ITS CATALOG AND T0 COMPACT ANY STORAGE ON IT 


Lac SYSDVC 

DAC INDA SET THE INPUT DEVICE 

pac OUTDA SEY THE OUTPUT DEVICE ADDRESS 
Lat SCATLOG+2 

DAC TEMPS SET THE FIkE CONTROL BLOCK COUNT 


PUT A NEW HEADER ON THE CATALOG 


Lac SCPARAM LOAD THE DEVICE ADDRESS OF TWE CATALOG 

vad (4) 

Dac SCATLOG RESET THE DEVICE ABDRESS OF THE FIRST FREE BLOCK 
LAW SCATLOG+10 

Dac SCATLOGe4 RESET THE POINTER Yo THE FIRST FREE FCB 

Dag SCMDx 

pac SCATX 

Law =4 

Bac SCATLOGe2 RESEY THE FCB COUNT 

YNX SCATALT REBET THE CATALOG ALTERED FLAG 


NOW RECOPY THR FILES, COMPACTING CATALOG AND STORAGE 
SCMDX RUNS DOWN THE OLD DEVICE CATALOG 
CaTX RUNS DOWN THE NEW DEVICE CATALOG 


182 TEMP, CHECK FOR DONE 
SK? 
JMP INTQ3 
an, SCMDK,X GE¥ YHE NEXT FILE 
NA 
JMP PURZ NOT THERE 
JMS CSSAVE SAVE [T 
HLT x#key THE FILE CANNOT POSSIBLY BE SAVED 1;#8ax 
LAC SCMDX,X 
pac INDA SE? THE INPUT FILE*S CURRENT pEVICE ADDRESS 
LA SCMDX,X 
DAC TEMP2 SAVE THE FILE'S CORE ADDRESS 
LAC SCMDX,X 
pac LEN SAVE THE FILE'S LENGTH 
ums CSALC ALLOCATE SPACE ON YHE DEVICE FOR IT 
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012077 
012100 
012101 
12102 
012103 
012104 
012105 
012106 
912407 
012440 
O124a1 
012112 


0124143 
912144 


012145 
012146 
012147 
012120 
012221 
012122 
912123 


05/31/72 
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060011 
052422 
213651 
060014 
212423 
060044 
220042 
060041 
412424 
612060 
214377 
340912 


040022 
612060 


415354 
773634 
040010 
112350 
412350 
112350 
115354 


3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3470 
3180 
3190 
3200 


3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
33510 
3320 


01704104 
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MAIN FROGRAM 


SCATX,X 
OUTDA 
TEMPO 
SCATX,X 
LEN 
SCATX,X 
SCMDX , X 
SCATX,X 
COPY 
PURL 
(FCBLEN=1) 
SCMDX 


$CMDX 
PURL 


SEY ITS NEW DEVICE anDRESS 
SAVE FOR QUTPUT 


SET IT*S CORE ADDRESS 
SET IT'S LENGTH 

SET [7S TRANSFER CARD 
LOaP 


SAVE NEW POSITION 
LOOP 


DISK PURGE IS NOW DONE -~ NOW COPY THE SYSTEM FILES TO THE DISK, 


CSFORCE 


SAVE 
CSFORCE 


DEBUGGING AID 


SET A POINTER TO TRAE LIST OF FILES TO SAVE 
GAVE aLlL OF THE OVERLAY FILES 

SAVE aLL OF THE USER-TYPE SYSTEM PROGRAMS 
SAVE ALL OF THE PHANTOM*TYPE SYSTEM PROGRAMS 
FORCE THE DISK CATALOG NOW 
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! MAIN PROGRAM 
3340 * 
3350 * 
3360 * INTCAT ~- NoW CopY THE ENTRIES FROM THE SYSTEM DISK CATALOG INTo INTCaT 
3370 * ADJUSTING THE DISK ADDRESS TO BE BHYSICAL DISK ADDRESSES AS WE GO, 
3380 * 
012124 773634 3390 INT1O = LAW UFILES 
012125 940040 3400 pac 10 SET aA POINTER TQ ThE FILES WHOSE CATALOG ENTRIES ARE TO BE COPIED 
012126 773723 3410 LAW UCAT 
912127 040012 3420 DaG 12 SET A POINTER TO THE CATALOG INTO WHICH TO COPY THEM 
0142130 112464 3430 JMS CORCRY CORY THE USER-TYPE SYSTEM FILES 
912131 112514 3440 ums PHCRCP COPY THE PHANTOMeTYPE SYSTEM PROGRAMS, SETTING THEIR PURE CODE ENTRIES 
912132 112547 pi JMS OVCRCP COPY THE OVERLAY FILES 
346 * 
3470 * OVERLAYS =~ SwAPPER 
3480 * 
012133 214400 3490 Lac (SSWP) 
912134 4112573 3500 ums READ GET THE SWAPPER OVERLAY 
012435 204000 3510 Lac SSWCAT 
012436 040010 3520 DAC 10 SET THE POINTER TO TWE SWAPPER CATALOG 
012137 773657 3530 Law INTCAT#1 
612140 040012 3540 Dae 12 SET THE POINTER TO YwE INITIALIZATION CATALOG 
§121414 777700 3550 LAW “CLEN 
912142 053680 3560 Dac TEMPS SEY THE CATALOG LENGTH 
Pi24a3 220012 3570 INTOS (Lae 12 0X 
£12144 060010 3580 pac 10>X CORY THE NEXT CATALOG ENTRY 
012145 453650 3590 182 TEMP4 COUNT IT) SKIP IF DONE 
012146 612143 3600 JMe INTOS ELSE LOOP 
912147 214400 3610 LA (SSWP) 


12150 4112603 3620 JM WRITE DONE ~~ COPY THE CORRECTED SWAPPER BACK OUT 


INT --[NT 


05/31/72 
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012151 


012151 
012152 
012153 
012154 
912455 
612456 
012157 


912160 
012161 
912162 
042463 
912164 
012165 
012166 
912467 
§12470 
042474 


214401 
112326 
740040 
440041 
113365 
2000411 
417500 


760043 
040010 
214400 
412628 
214402 
412623 
214403 
412623 
214404 
412623 


012172 


912172 
§12173 
912174 
912175 
012176 
012177 
012200 


012201 


767700 
053650 
763677 
040040 
460010 
453650 
612176 


#14405 


3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
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INTS6 
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se28 8 


PDP-9 MINI TIME-SHARING SYSTEM INITIALIZATION PROGRAM PaGE 


MAIN FROGRAM 


INITIALIZE THE RESIDENT PROGRAM -- FIRST READ IT INTO CORE 


ae? 


Lac 


LAC 
JMS 


Now 


($RES) 
LOATL 


$CATX 
CSRCOVR 
SCAT 
STAPIN 


FILL IN THE 


INITIALIZE 
SUCORE ~- 
SUDISK ~- 
SNUMBR ~- 
SOVER -- 
STYPE «~ 
SSYSNM ~-~ 
SPURNAM -= 


CQDE 
SRSTRT -~ <LAW BOUNDARY> ASSURES A LEGal START aDDRESS WITH MEMORY PROTECTION ON, 


LOOK UP THE RESIDENT PROGRAM IN THE LIBRARY CATALOG 
FATAL ERROR IF CAN*T FIND IT 

MOVE THE POINTER TO THE DEVICE ADDRESS FOR THE PROGRAM 
SEY UP THE HaRDWaRE ERROR RECOVERY 

LOAD THE POINTER To THE PROGRAMIS PARAMETERS 

ANB READ IN THE RESIDENT PROGRAM 


RESIDENT CATALOG 
SET A POINTER TO THE RESIDENT CATALOG 
ENTER THE SWAPPER IN THE RESIDENT CATALOG 
ENTER MEMORY PROTECTION #1 IN THE RESIDENT CATALOG 
ENTER MEMORY PROTECTION #2 IN THE RESIDENT CATALOG 
ENTER THe SPECIAL 1OT WANDLER IN THE RESIDENT CATALOG 
THE JgB TABLES IN SCRATCH STORAGE oN THE SYSTEM DISK, 
PHYSICAL DISK ADDRESS OF THE USER CORE IMAGE 
PHYSICAL DISK ADDRESS OF THE "USER DISK! 
USER NUMBER (#8 POINTER TO WIS TELETYPE BUFFER) 
SMP1 = STANDARD USER OVERLayY 
0 # USER TYPE PROGRAM 


PHANTOM PROGRAM'S OWN NAME 
0 = NO PURE 


FIRST ZERO a FULL BUFFER L&NGTH OF CORE, pLUS A TABLE LENGTH, 
TO BE USED IN INTIALIZING THE DISK SCRATCH AREA, 


ere 
LAW 
Dac 
LAW 

Dac 
DZM 
sz 
JMP 


~BMAX=SJTLEN 

TEMPS SET THE LENGTH TO BE ZEROED 
SYTSTRI~1 

10 SET A POINFER TO THE TABLE 
10¢X ZERO THE NEXT LOCAVION 
TEMPS COUNT THE AMOUNT ZEROED 
INT60 Oar 


ZERQ THE SCRATCH DISK AREA 


LAC 


(*SCRSTR) 
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{ MAIN PROGRAM 
912202 053651 4160 pac TEMP2 SET TwE AMOUNT OF BYSK TO ZERO 
012203 214406 4170 Lac (SCRSTR) 
012204 707024 4180 PLAL SET THE START OF THE DISK aRBa TO ZERO 
012205 4190 INT70 ect 
912205 2136354 4200 Lac TEMPO LOAD THE REMAINING LENGTH TO BE ZEROED 
012206 744200 4210 SNA SKIP IF THERE IS ANY 
012207 612234 4220 JMP INTO FLEE CONTINUE THE ENITIALIZATION PROCESS 
012240 352172 4230 TaD INT5S SUBTRACT THE AMOUNT OF ZEROED CORE 
012241 740100 4240 SMA SKIP IF LESS THAN & FULL COPY REMAINS 
912242 612220 4250 JMP INT72 ELSE pO THE FULL COPY 
912243 777777 4260 Law =1 PREPARE TO NEGATE THE LENGTH TO COPY 
012294 353654 4270 Yao TEMP2 LOAD THE REMAINING LENGTH 
912245 153654 4280 DZM TEMPO FLAG THE ZERO-COPYING DONE 
012296 740004 4290 CMA NEGATE IT 
§12247 612222 4300 JMP INT74 
4310 
012220 4320 INT72 nes 
012220 053634 43390 pat TEMPO SET THE REMAINING AMOUNY TO ZERO 
012224 212172 4340 Lac INT55 LOAD THE BUFFER LENGTH 
912222 040036 4350 INT74 pa SOKWC SET YHE LENGTH OF THE COPY 
012223 212174 4360 LAC INTS6 
912224 040037 4370 BAC SDKCA SEY TWE CORE ADDRESS OF THE COPY 
012225 772205 43809 LAW INT70 
012226 040654 4399 Pag $D0 SEY THE RESTART 
012227 214377 4400 Lac ($DKWRT) LOAD YHE DISK WRITE COMMAND 
042230 600672 4440 JuMP SDKOVR DO THE COPY 
4420 a 
4430 * NEXT FILL IN THE PHANTOM JOB TABLE, SINCE t7 [8 THE SAME FOR ALL USERS 
4440 * 
812231 200045 4459 INT8O =a SCMp4 
912232 041773 4460 pac SOVER 
£12283 762000 4470 Law BOUNDARY 
012234 0414776 4480 pac SRSTRT 
4490 . 
4500 * MaGRO TO FINISH SETTING UP a USER'S JOB TABLE AND TO INITIALIZE 
4510 & M18 DISK STORAGE AREA 
4520 * 
4530 INTT »DEFIN 
4540 , PMC SAVE,OQN 
4550 Lac UC #144 
4560 pac SUCORE 
4570 Lac (UDK #4 ) 
4580 pac SUDISK 
4590 Lac (SUS#4 ) 
4600 Dac SNUMBR 
4610 Dae SNAME 
4620 Law TABWS 
4630 JMs UINIT 
4640 , PMC RESTORE 
4650 +ENDM 
4660 * 


4670 * SET Up THE JOB TABLE FOR USER #1 AND INITIALIZE WIS DISK Space 


INT--[NT 


05/31/72 
! 


012255 


912235 
912236 
012237 
012249 
P122a4 
012242 
012243 
§1<244 
912245 


012 
012246 
912247 
912250 
04225 
91225 
012263 
012264 
912255 
912256 


213675 
041766 
214407 
041767 
214410 
041774 
044772 
773704 
412404 


246 
213744 
044766 
214444 
044767 
214412 
041774 
044772 
773720 
112404 


012257 


912257 
912260 
912261 
942262 
912263 
912264 
012265 
012266 
012267 


912270 


Pee 
p12274 


12 
912293 
912273 


912340 


213664 
041766 
214406 
044767 
214443 
044771 
044772 
773670 
4112404 


440266 


122714 


2 
700312 


272 
777735 
113156 


700312 


4680 
4690 


4700 
4710 
4720 
4730 


47490 
4750 
4760 
4770 


4780 
4790 
4800 
4810 
4820 
4830 
4840 


4850 
4860 
4870 
4880 


01704304 
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PpPe9 MIN] TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 


MAIN PROGRAM 


INTT 1 

Lac UCi+1 
pac SUCORE 
LAG (UDK1) 
pac SUD] SK 
LAG ($US4) 
Dae SNUMBR 
Dac SNAME 
Law TABY 
JMs UINIT 


SET UP THE JOB TABLE FOR USER #2 AND INITIALIZE HIS DISK SPACE 


INTT 2 

Lac UC2+4 
pac SUCORE 
Lac (WDK2) 
pac SUDISK 
Lac (gUS2) 
DAC SNUMBR 
pac SNAME 
LAW TABQ 
ums UINIT 


SE? UP THE JOB TABLE FOR USER #0 AND INITIALIZE HI DISK SPACE 


INTT 0 

Lac UCOs4 
Hac SUCQRE 
Lac (UDKO) 
pac SUDISK 
Lac ($US0> 
pac SNUMBR 
DAC SNAME 
Law TABO 
jms UINI? 
DZ SDKLOK FLAG THE DISK FREE 


SYSTEM INITIALIZATION HAS BEEN SUCCESSFUL, So TELL THE OPERATOR 
MESS <SYSTEM INITIALIZATION COMPLETED(}>,33. 


KRB 

MESSR = 6<<SYSTEM INITIALIZATION COMPLETED{ )>,33. 

LAW ~33,<2 

JMS TSSIXOT 

NOW DQ LAST MINUTE HARDWARE TIDYING UP 

KRB KILL ANY MISCELLANFOUS TELETYPE INPUT 


31 


INT-«[NT 


P1ie3a1 
912342 
sere 

12344 
§12345 
012346 


012347 
012320 
012321 
012322 
912323 
912324 


012325 


05/31/72 
1 


704112 
704132 
704702 
777730 
040007 
700046 


214443 
040076 
214410 
040325 
214412 
040154 


601002 


4890 
4900 
4940 
4929 
4930 
4940 
4950 
4960 
4970 
4989 
4999 
5000 
3010 
5020 
5030 
5040 
5050 
5060 
5070 


01504104 


* 


PDOP-9 MIN] TIME-SHARING SYSTEM INITIALIZATION PROGRAM 
MAIN PROGRAM 

KRBLT4 

KRBLT2 

MPCY 


AW =CLKMAX 
G 7 SEF THE CLOCK 
LONICLON AND TURN IT ON 


SEY UP THE MONITOR FOR ALL TELETYPES 


Lac (SCTBIN-2) 

Dac SCTBIN=2 SET UP THE CONSOLE TELETYPE 
LAC (SLIBIN~2) 

DAG SLIBIN=-2 SET UP LT #1 

Las (SL2BIN=2) 

Dac SL2B1Ne2 SET Up LT#2 


FAKE A MONITOR CALL BY THE CONSOLE TELETYPE 


Jme SSYMTPE GET MONITOR FOR THE CONSOLE TELETYPE 


PAGE 
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INT-~INYT 05/31/72 
I 


012326 
012326 740040 
012327 052634 
012330 212326 
912331 053440 
6123832 773777 
912333 040011 
012384 213776 
012335 613445 


012396 


912347 612337 


0123680 
912380 740040 
912361 220040 
912382 741200 
912363 632350 
012384 112326 
012355 740040 
912386 200044 
012367 040042 
912360 220042 
912361 052421 

012362 
012362 212634 
912363 113555 
012364 740040 
812365 200041 


5090 
5100 
5110 
5120 
5130 
5140 
5150 


5160 
5170 
5180 
51490 
5200 
$210 
5220 
5230 
$240 
5250 
5260 
5270 
$280 


5290 
$300 
5310 
$320 
$330 
$340 
$350 
5360 
$370 
5380 
5390 
5400 
5410 
5420 
5430 


5440 
5450 
5460 
5479 
5480 
$490 
5500 
5510 
5520 
5530 


5540 
5550 
5560 


01504804 


CATL 


es &6© & & 


UNSAVE 
UNS1 


mMeeets 8 


AVE 
SAV1 


PDP-9 MIN] TIME~SHARING SYSTEM INITIALIZATION PROGRAM PAGE 33 
MISCELLANEOUS SUBROUTINES 
LCATL OpERATES ON THE LIBRARY DEVICE CATALOG (LOCATED AT LCAT) 
IN ALL OTHER RESPECTS IT 18 IDENTICAL TO CE$caTL 
ENTER 
XX 
pac TSWORTDB PASS THE FILENAME 70 CSCATL 
Lac LOATL 
pac CSCATL PASS THE RETURN TO CSCATL 
LAW LGAT#2 
Dac SCATX PASS A POINTER TO TwE FIRST FCB IN TME LIBRARY CATALOG 
LAC LCGATe<z 
JMP CSCATLL=4 NOW CSCATL IS SEY To OPERATE ON THE CORRECT CATALOG 
UNSAVE UNSAVES FROM THE MAIN CATALOG THE FELES INDEXBD BY AUTO-INDEX 
REGISTER 40, 'Y TERMINATES UPON INDEXING TO a ZERO FILENAME 
ENTER 
xXx 
ve 10.X LOAD THE NEXT FILENAME 
NA 
Ret UNSAVE ,X ZERO FILENAME ~- EXIT 
JMS CSCATL ELSE LOCATE THE FILE ENTRY IN TMB CATALOG 
UMP UNS, FILE NOT SAVED -». DO THE NEXT ONE 
ad SCATX 
Dac TEMPS SET a POINTER TO TARE FILENAME 
DZ TEMP4, X ZERO THE piLENAME YO UNSAVE THE FILE 
JMP UNS4 LOOP 
SAVE SAVES INTO THE MAIN CATALOG THE FILES INDEXED BY AUTO-INDEX 
REGISTER 40, iT TERMINATES UPON INDEXING TO a ZERO FILENAME 
ENTER 
xX 
ac 10,X LOAD THE NEXT FILERAME 
NA 
ne’ SAVE, X ZERO FILENAME ~- EXIT 
JMs LOATL LOGATE IT 3N THE LZBRARY CATALO 
WET FATAL ERROR IF THE FILE cANNeT: BE FOUND IN THE LIBRARY CATALOG 
LAE SCATX 
pac SCMDX SET a POINTER TO ThE FILE IN THE LIBRARY caTALOG 
Lag SOMDKX,X 
pac INDA SET THE INPUT DEVICE ADDRESS 
WORDS RECOVER THE FILENAME 
Lag TSWORDB 
JM3 CSSAVE SAVE THE FELE. IF POSSIBLE 
HLT FaTalL ERROR IF THE FILE 1S ALREADY SAVED -e SHOULD BE IMPOSSIBLE 
Lac SCATX 


INT--INT 


012366 
912367 
912370 
012371 
012372 
912373 
012374 
£12375 
912376 
0123977 
912400 
912401 
012402 
012403 


05/31/72 
J 


040013 
440041 
220012 
060041 
2200142 
060041 
052423 
413604 
060043 
052422 
220042 
060041 
412424 
612354 


012404 


912404 
012405 
912406 
012407 
§12490 
912441 
912492 
912443 
912444 
016495 
012446 
012447 
912420 


740049 
040040 
220040 
053650 
#20040 
053634 
220010 
053652 
214377 
0536353 
773647 
100654 
632404 


5570 
5580 
5590 
5600 
$610 
5620 
5630 
564Q 
5650 
5660 
3670 
5680 
5690 
5700 
5710 
5720 
5730 
3740 
5750 


8760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5650 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
8940 
5950 


01404104 


eeetsst 8 & 


PDP-9 MIN] TIME*SHARING SYSTEM INITIALIZATION PROGRAM PAGE 


MISCELLANEOUS SUBROUTINES 


Dac 13 SAVE A POINTER TO THE FILE'S SYSTEM DISK ADDRESS 
1NX SCATX BYPASS THE DEVICE ADDRESS FOR NOW 

Lag SCMDX,X 

pac SCATX,X TRANSFER THE FILE'S CORE ADDRESS 

Lag SOMDX.X 

Dac $CATX,X TRANSFER THE FILE'S LENGTH 

Dac L&N SET THE LENGTH FOR THE COPY ROUTINE 

JMS CSALC ALLOCATE SPACE FOR YWE FILE, IF POSSIBLE 

Dac 136% SET THE SYSTEM DEVICE ADDRESS 

pac OUTDA SEY THE OUTPUT DEVICE ADDRESS FOR THE COPY 

Lac SCMDX,X 

Dac SCATX,*X COPY THE FILE'S TRANSFER CARD 

JMS COPY COPY THE FILE FROM TWE LIBRARY DEVICE TO THE SYSTEM DEVICE 
JMP SAVi LOOP 


UINTT 1S A SUBROUTINE TO COPY THE USER'S INITIALIZED JOB TABLE OUT 


ENTER 

XX 

Dac 10 SET THE PARAMETER POINTER 

Lad 10x 

Dac TEMPS SET THE PHYSICAL D&SK LOCATION 
LAC 10,X 

Dag TEMP1i¢4d SET THE CORE ADDRESS ei 

LAC 10+X 

Cac TEMP4 02 SET THE TWO'S COMPLEMENT LENOTH 
Lac (SDKWRT) 

DAG TEMP143 

JMS $90 DO THE WRITE 

RET UINIT,X 


ALSO USE YINIT TO ZERO ON THE DISK 
USER CORE STORAGE 
PHANTOM CORB STORAGE 
USER “PHYSICAL DISK» STORAGE 


34 


INT-- [NT 


05/31/72 
I 


000100 
010000 


012421 
012422 
912423 


012424 
912425 


912463 


000000 
000000 
000000 


740040 


612425 


5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
644 

615 

6160 
6170 
64890 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6520 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 


01304304 


COPL2 
COPL4 


PDP-9 MINI TIME=SHARING SYSTEM INITIALIZATION PROGRAM 


PAGE 


MISCELLANEOUS SUBROUTINES 


COPY SUBROUTINE 


COPIES FRoM DEVICE INDA 


»EQU 
EQU 


DSA 
+DSA 
DSA 


190 
10000 


LEN 


COPY,» 
(BMAX) 
COPL2 
LEN 
(BMAX) 
CQOPL4 
LEN 

LEN 
TPARAMe2 
INDA 
TRPARAM 
OUTDA 
COPY, x 
(BMAX/SBLKLEN) 
INDA 
CERCOVR 
TPARAM 
STAPIN 
OUTDA 


COPY,X 

TRPARAM 
(BMAX/SBLKLEN) 
OUTDA 

CSRCOVR 

TPARAM 

STAPOT 

COPL 


To DEVICE oUTDA FoR LEN WORDS 


START OF COpY BUFFER 
ALLOW A 4K COPY BUFFER 


GET LENGTH REMAINING 


RETURN IF DONE 
SUBTRACT AMOUNT WE CAN COPY IN (4) OPERATION 


RESTORE LENGTH REMAINING 
GEY AMOUNT FOR CURRENT COPY 
SKIP THE OFHER BRANCH 

GE LENGTH FOR CoPY 

NORE REMASNING 

SAVE NEw LENGTH TO coPY 

GET INPUT BA 

SAWE IT 

CHECK FOR NOTHINGI9NH COPIES 


COMPUTE AMOUNT TO COPY JN BLOCKS 
RESTORE FOR NEXT COPY 

SEY UP TwE ERROR RECOVERY 

GET PARAMETERS FOR RBAD 

cory IN 

GEY OUTPUT DA 


RETURN IF INPUT ONLY 
save IT 


SET THE UPDATED OUTPUT DEVICe ADDRESS FOR NEXT TIME 
SET UP THE HARDWARE ERROR RECOVERY 

GET PARAMEVERS 

OUTPUT IT 

OP 
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1 MISCELLANEOUS SUBROUTINES 
6420 % 
6430 * 
6440 « CoRCPY CopleES THE FILE ENTRIES FoR THE FILES INDEXED BY AUTQ-INDEX 
6450 * REGISTER 40 FROM THE MaIN GATALOG TO THE IMITIALIZATION CATALOG (ENTCAT), 
6460 « INDEXED BY AUTO@INDEX REGISTER 12, AY THE Same TIME YT CONVERTS LOGICAL 
6470 a DISK BLOCK ADDRESSES To PHYSICAL D&SK ADDRESSES, 
oye) ® {7 TERMINATES UPON INDEXING TO A ZERO FILENAME, 
649 « 
012464 6500 CORCPY ENTER 
eae 740040 XX 
12465 220040 6510 COR2 LAe 10.X LOAD YHE NEXT PILEMAME 
012466 741200 6520 QNA 
012467 632464 6530 Ret CORCPY,X ZERO FILENAME -- EXI? 
8124970 412472 6540 uM CRCP COPY THE CATALOG ENTRY, ADJUSTING DISK ADBRES$ AND CORE ADDRESS FORMATS 
012474 612465 6550 JMP COR2 LooP 
6560 * 
6570 * SUBROUTING TO COPY A FILES CATALOG ENTRY FROM THE MAIN CATALO@ TO 
ores * INTCAT, CONVERTING THE FORMAT OF CORE ADDRESSES AND DISK ADDRESSES, 
* 
012472 6600 CRCP ENTER 
B12472 740040 xX 
912473 113440 6610 ims CSCATL FIND THE FILE IN TAR SYSTEM DEVICE CATALOG 
912474 740040 6620 WET FATAL ERROR IF THE PILE 18 NOT SAVED 
012475 6630 WORDS RECOVER THE NAME 
012475 212634 Lac TSWORDB 
912476 060012 6640 pac 12.X SEY YHE FILENAME 
P12477 320041 6650 Lac SGATKsX 
012500 814427 6660 AND (SBLKMEK) 
612501 3544290 6670 fad (SSYSBAS) 
912802 660740 6680 ALS$S 8, 
612503 060042 6690 pac 129K SET THE PHYSICAL DISK ADDRESS 
912904 777777 6700 aw a | 
212505 360044 6710 ad SCATX,X 
912506 060012 6720 pac 12.X SE? THE CORE ADDRESS ~1 
812507 777777 6730 LAW “4 
812690 Jo0011 6740 Tad SCATK,X 
612541 740001 6750 CMA 
912842 060042 6760 Bac 12.X SET THE (TWO'S COMBLEMENT) L&NGTH 
012843 632472 6770 RET CRCP,X 
6780 * 
6790 * 
6800 ® pHCRCp DOES THE SAME THING FOR PHANTOM PROGRAMS THAT CORCPY DOES 
6810 * FOR OTHER PROGRAMS, IN ADDITION, PHCRCP aL8O SETS UP a CATALOG ENTRY FOR 
6820 a fue PURE CODE PORTION oF THE RHANTOM, 
6830 « 
012514 6840 PHCROP BNTER 
812594 740040 XX 
812545 220010 6850 PHCRC1 Lac 10.X LOAD THE NEXT FILERAME 
0125496 741200 6860 SNA 
912547 632544 6870 RET PHCRCP,X RETURN WHEN DONE 
912520 412472 6880 JMS CRCP SEY UP THE PROGRAM#S CATALOG ENTRY 


6890 * 


INT-+]NT 


Q1¢521 
012522 
012523 


05/31/72 


1 


777775 


340041 
040041 


012524 


912524 
912525 
912526 
gi zee? 
12530 
912531 
012532 
aie. 
125354 
912535 
912536 
912537 
£12540 
912541 
912542 
012543 
012544 
012545 
012946 


212634 
514424 
354422 


2°88tf 


$14447 
354420 
660740 
35442 

06004 

763677 
440011 
060042 
777777 
360041 
740004 
354423 
060042 
612545 


012547 


p 15347 
12550 
912551 
912582 
012583 
912554 


912555 
912556 
§125§7 
912560 
P12561 
012962 
912563 
212564 
912565 
912566 
petty 
912570 


panne 
000% 
040035 
040046 
440046 
412464 


777774 
040017 
220046 
060045 
440017 
741000 
632547 
200046 
354424 
040016 
200015 
354424 


01404304 


yCRCOP 


Ovi 


PDP=9 MINI TIME*SHARING SySTEM INITIALIZATION PROGRAM PAGE 37 


MISCELLANEOUS SUBROUTINES 
SET Up THE ENTRIES FOR THE pURE-CORE SECTION OF THE PHANTOM PROGRAM 


Law -3 

TaD SCATX BACK UP THE POINTER SO IT WILL SCAN THE SaM& CATALOG ENTRY AGAIN 
Pac SCATX 

WORD1 RECOVER THE FILENAME 

Lac TSWORTB 

AND (77773 GEr RID OF THE FIRSyY CHARACTER 

Fad (600000) MAKE THE FIRST CHARACTER A 1+ (FOR + RUREY?) 

Dad 12>éx SET THE PURE CODB FILENAME 

LAC SCAT, 

AND (SBLKMSK) 

Tad (SSYSBAS) 

AL3s 8, aC NO INDICATES THE PHYSICAL DISK ADDRESS OF THE ENTIRE PHANTOM 
fan (SPURSTR=SIMPSTR) MOVE JT TO THE START GF PURE CODE 

pac 12,X SEY THE PHYSICAL DESK ADDRESS OF THE STARY OF PURE CODE 
Law SPURSTRay LOAD THE CORE ADDRESS OF THE PURE CODE 

YNX SGATX MOVE THE POINTER OVER THE OTHER CORE ADDRESS 

pac 12,X SEY THE CORE ADDRESS ~1 OF THE PURE CQDE 

AW “4 

"a0 SCATX,%X 

CMA ac IS ¢(TWO*S COMPLEMENT) LENGTH OF THE ENTIRE PHANTOM 
Fad (SPURS TR=SIMPSTR) 

bL Ye 125X SET THE (TWO'S COMPLEMENT) LENGTH OF THE PURE CODE 

JMp PHCRC$ LOOp 


SVCRCP DOSS T):E BAME THING FOR OVERLAY PROGRAMS THAT CORCPY DOES 
FOR USER PROGRAMS, THEN IT GOES THROUGH THE QVERLAY PROGRAMS AND 
SUBSTITUTES FOR THEIR NAME THEIR PHYSICAL BISK ADDRESS, WHICH 
BECOMES THER NAME AS FAR AG THE EXECUTIVE 18 CONCERNED, 


ENTER 
aX 

AG 12 LOAD THE INTCAT POINTER 

jac 3 SAVE IT FOR LATER GPERATIONS 

bac 1 

{NX 16 SET A POINTER TO TRE DISK ADDRESSES 

JMs CORCR” SEY UP THE OVERLAY PROGRAMS JN THE STANDARD MANNER 
AW OFILESeEFILESs, LOAD A GOUNT OF THE NUMBER OF OVERLAY FILES 

aac 17 sEX JT 

AC 16>X LOAD THE N@XT DISK ADDRESS 

Dac 15.% AND SGT 17 AS THE NEW OVERLAY NAME 

{82 17 COUNT THE FILE 

aK? NO? YET DONE 

RET OVCRC?,X DONE «= EXIT 

AAC 16 

fad (3) 

pac 16 UPDATE THE ADDRESS POINTER 

ac 15 

AD (3) 


INT--INT 


1 


040045 
612557 


012571 
912572 


012573 
912573 740040 
012574 113440 
912575 740040 
912576 440041 
012577 413365 
912600 200041 
812601 417500 
912602 632573 


012603 
812603 740040 
912604 413440 
912605 740040 
012606 440041 
012607 413365 
fic6s0 200081 
612641 417502 
912642 632603 


012643 
812643 
912644 
912645 
012646 
012647 
912620 
912624 


912622 632643 


012623 
912623 740040 
912624 113440 
012625 740040 
912626 220041 


05/34/72 


01904104 


“2: es & & 


TLL 


POP~9 MIN] TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 
MISCELLANEOUS SUBR@UTINES 


Dac 15 
JMP OV1i 


UPBATE THE NAMES POINTER 
DO THE NEXT FILE 


READ READS INTO CORE TWE FILE WHOSE NAME IS pASSED IN THE ac 


ENTER 

XX 

JMs CSCATL LOOK YP TWE FILE 

ML? Pata ERROR IF THE FILE CANNOT B& FOUND 
{NX SCATX MOVE THE POINTER T§ THE DEVICE ADDRESS 
wM8 CSRCOVR SET UP HARDWARE ERROR RECOVERY 

Lac $CATX LOAD THE POINTER TQ THE RARAMETERS 

Jus STAPIN READ YHE FILE 

RET R&AD,X 


WRITE WRITES FROM CORE TWE FILE WKOSE NAME 18 PASSED IN THE AC 


ENTER 

xX 

JMS CSCATL LOOK UP THE FILE 

ML? Faval ERROR [F THE FILE CANNOT BE FOUND 
{NX SCATX MOVE THE POINTER TO THE DEVICE ADDRESS 
JM8 CSRCOVR SEY UP THE HARDWARE ERROR RECOVERY 

LAC SCATX LOAD THE POINTER TQ THE PARAMETERS 

JMs STAPOT WRITE THE FILE 

RET WRITE, X 


ETUp COPJES THREE SCATLOG ENTRIES INDEXED BY AUTO-INDEX REGISTER 12 
NTO THE LOCATIONS REFERENCED BY AUTO*INDEX REGIBTER 40, 


ENTER 

XX 

Lad 12K 

Dag 10x cOoPY THE FILE'S DEVICE ADDRESS 
LAC 12,%X 

DAC 105X coPY THE FILE'S gOME ADDRESS 
LAC 12K 

Dag 10,.Xx COPY THE FILE'S LENGTH 

Ret SETUP,X 


FIND THE PHYSICAL DISK ADDRESS OF YHE FILE WHOSE NAME WAS PASSED 
IN THE aC AND ENTER IT IN THE RESJDENT CATALOG, 


CSCATL, LOOK UP THE SWAPPER PROGRAM IN TwE SYSTEM DISK CATALOG 
HLT FATAL ERROR IF THE PROGRAM CAaN!¥ BE FOUND 
SCATX,X LOAD THE SYSTEM DISK LOGICAL BLOCK NUMBER 


38 


INT-- [NT 


012627 
012630 
012631 
912632 
012633 


05/31/72 
1 


514447 
354420 
660710 
060010 
6326285 


78890 
7899 
7900 
7910 
7920 
7930 
7940 


PDP-9 MIN] TIME-SHARING SYSTEM INIFIALIZATION PROGRAM 


AND 
FAD 
ALSS 
Dac 
RET 


2 TNSRT 


MISCELLANEOUS SUBROUTINES 


(S$BLKISK) RECOVER JUST THE BLOCK NUMBER 
(SSYSEAS) CONVERT 7O A PHYSICAL BLOCK NUMBER 
8, MAKE INTO A PHYSICAL DISK ADDRESS 
10.X AND ENTER IT IN THE RESIDENT CATALOG 
FILL»> 


*DLIBFARYSPDPOLIBSFTTYNON 


PAGE 


39 


TTYNON 


05/31/72 
T 


01704504 


Se aeseaeteaeaeeseseeseezeseseest & 


ss 3 8 


PDP-9 MIN] TIME=-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 
MTSS=PDP9 NON@tNTERRUPTING TELETYPE MANDLER 
MEAD T 


PROGRAMMED BY ROBERT W, BLEAN 
LAST REVISED 24 MARCH 41972 
THIS HANDLER PERMITS NON-INTERRUPT DRIVEN INPUT FROM AND OUTPUT 


TO Te CONSOLE TELETYPR ON THE PDPe9S COMPUTER, 


THIS HANDLER ALTERS THR aG, AND MQ, JT DO#S NOT ALT@R ANY CORE 
MEMORY OUTSIDE OF ITSELF, IN PARTICULAR IT pOES NOT ALTER ANY AUTOsINDEX REGISTER, 


BATA FORMATS: 
4) OCTAL 


2) SIMBIT -~- SIMBIT 16 8-B1F ASCIT MINUS 240, THIS MAPS THE PRINTING 
CHARACTERS ONTO THE SET 0-77, ASCIE VALUE 333 (() IS USED FOR 
CARRIAGE RETURN AND 335 (}9 15 USEB FOR LINEFEED, NOTE THaT NEITHER 
333, 335, NOR ANY CONTROL CHARACTERS CAN BE RECOGNIZED IN SIXBIT. 


3) ASCIY = ONE ASCII] CHARACT@R IS STORED PER WORD, LINE INPUT 
18 STORED IN THIS FORMAT, SINCE THERE IS ONLY ONE LINE*BUPFFER 
THE EXTRA BUFFER LENGTH WASTES LESS gPACE THAN WOULD THE HANDLING 
ROUTINES NECESSARY FOR OTHER FORMS OF RACKING CHWRACTERS, 
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T (MTSS TELETYPE HANDLER) STORAGE AREA 
450 
460 
012634 470 WORDS ,BLOCK 2 ROOM TO ACCUMULATE TWO VALID WORDS 
000120 480 STD »EQy 80, STANDARD IS AN BO-EHARACTER LINE BUFFER 
012636 ago BUFFR ,BLOCK SYD 
500 ® 
540 a 
$20 * VARIABLES 
330 « 
012756 012755 540 BEND ood BND OF THe CHARACTER BUFFER 
12757 99000 550 BRTR ,D8A POINTER TO CURRENTKY ACTIVE WORD IN LINE BUFFER 
12760 0600000 860 Tt DSA TEMPORARY VARIABLE 
812761 000000 570 T2 DSA TEMPORARY VARIABLE 
012762 000000 540 CHAR 8a BTORES LATEST CHARACTER FROM FGET 
812763 000000 590 DLMTR ,DSA STORES LATEST DELIMITER THROUGH CHRID 
612764 000000 64600 COUNT ,DSA 


TTYNQN 


05/31/72 
Af 


012765 


012765 
12766 
12767 

33799 
127714 
912772 

912773 

912794 

9127975 

012776 

012777 

815000 

015001 

913002 

615003 

015004 

915005 

£15006 

915007 

913040 

615041 

615042 

915043 

9150494 

915045 


9150496 
013047 
015020 
915021 
013022 
015023 
micas 

013025 


740040 
700342 
214425 

59757 
{5 764 
452763 
430543 
612778 
554426 
615020 
554427 
613016 
652000 
212737 
552756 
744000 
452757 
6414002 
072737 
554430 
744000 
612773 
772635 
052757 
632765 


413270 
612767 
212757 
852767 
612778 
354434 
052757 
612773 


1000 
4010 
1020 
1030 
4040 
1050 


01904:04 


ees 8 8 


INLIN 
TNL 


LINE 


aCcHarR 


POPeS MIN] TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 
(MTSS TELETYPE HANDLER] LINE BUFFER INPUT 


TMB PROGRAM IS PROTECTED AGAINST WERE LON QR UNDERFLOW OF THE LINE 
BUFFER, UNDERFLOW (EXCBSS DELETIONS) 15 IGNORED, AND OVERFLOW CHARACTERS 
ARE LOST, EXCEPT FOR TWE LAST CHARACTER TYPED, 


ENTER  INLIN SUBROUTINE TO READ IN AND BUFFER A LING FROM TWE TELETYPE 
XX 

KRB ONCE, ON ENTRANCE, CLEAN UP ANY PRIOR INPUT 

Lac (BUFFR=1) LOAD & POINTER TO START OF THE BUFFER MINUS ONE 
Dac BPTR INITIALIZE THE BUFFER POINTER 

DZM COUNT INSTIAGIZE THE WORB FETCHED COUNT 

DZM DLMTR INS TIALIZ@ THE LAST BELIMIJTER STORAGE 

KSFIKRB GET THE NEXT INPUT CHARACTER 

JMP 7h 

SA (SBKARR) 

JM 1CMAR DELETE ONE CHARACTER IF IT Wag A BACKARROW 

SAD (SCONTX) 

JMP 1LINE DELETE THE ei WINE JF IT WAS A CONTROL X 
?) SAVE THE CHARACTER 

Lac BPTYR LOAD THE CURRENT BWFFER POINTER 

Sad BEND SKIP IF NO OVERFLOW 

Ke AVBID DAMAGE DUE TO OVERFLOW 

182 BPTR ADVANCE THE POINTER e- If 18 STILL WITHIN THE BUFFER 
LAGQ RELOAD THE CHARACTER 

Dag BPTR,X AND RUT IT IN THE BUFFER 

BAD (SCR) 

8KP EXIT WHEN A CARR{A@e RETURN {S FOUND 

ume INL ELSE GET THE NEXT BMARACTER 

LAW BUFFRe4 

pac BPTR RESET TMG BUFFER POINTER AT THE END OF THE LINE 
JMP INLIN,X AND RETURN TO THE GALLER 

JMs CRLF PRINT THE RESPONSE TO A LINE@DELETE 

JMP INL REREAD THE LINE 

Lad. BPTR LOAD THE BUFFER POINTER 

SA0 INL SKIP IF NO UNDERFLOW 

JUMP ING ELBE JGNORE THE COMMAND 

TAD (=4) DEGREMENT THE BUFFAR POINTER 

Dao BPTR ANB SAVE IY 

JmMP IN4 GET THE NEXT CHARACTER 
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015026 


015026 
915087 
915030 
913031 
915032 
915033 
015034 
915035 
913036 
9135037 
615040 
§15001 


£15042 
615043 
015044 
015045 


013046 
015047 
915060 
915051 
915052 
913083 
015054 


015055 


015066 
015087 
015060 
915061 
015062 
915063 
015064 
015065 
015066 
915067 
015070 
913071 


740040 
452761 
415241 
633026 
413204 
413230 
613056 
633026 
744400 
452764 
$14432 
052760 


640503 
212634 
640603 
052634 


212635 
744000 
653422 
000012 
641002 
352760 
0526353 


6130352 


§54433 
6135065 
212761 
744200 
633026 
212634 
613074 
413204 
413230 
613073 
633026 
744000 


01704404 


NYMIN 


NUM20 


NUM26 


NUM27 


PDP=9 MINI TIME-SHARING SYSTEM INITIALIZATEON PROGRAM 


OPERATIQN F RETURN L 


ee ee a 


OUTPUT 


ENTER 
XX 
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(MTSS TELETYPE HANDLER] OCTAL WORD INPUT/OUTPUT 


NYMIN 


T2 
INTIN 
NUMIN, X 
FGET 
CHRID 
NUM26 
NUMIN, X 


T2 
(47) 
T4 


3 
WORDB 
3 
WORDB 


WORDB«4 


Th 
WORDB+4 


NUM20 


(SPOINT) 
NUM27 
T2 


NUMIN,X 
WORDB 
NUM29 
FGET 
CHRID 
NUM28 
NUMIN,X 


AC MQ MEANING. 
Fs Ber awe Ce Redd del aXe e nr Pe ger mw en ee wa ewe Memes eee 
0.) CX X FORMAT ERROR DISCOVERED 
1 DELIM x FIRST NON#BLANK CHARACTER I8 A DELIMITER 


1 OCTaL BELIM SUCCESSFUL READ OF AN OCTAL NUMBER 
X x x SUCCESSFUL WRITE OF AN OCTAL NUMBER 


INITIALIZE THR DECIMAL-DIGITeRECBIVED FLAG 
INITIALIZE TH& INPWT STRING, ETC 

RETURN #4 FOR DELIMITER IS FIRS? NON@BLANK CHARACTER 
GEY THE NEXT CHARACTER 

IDENTIFY UF 

17 18 A DELIMITER, SO EXIT 

17 18 A LEFTER, SO EXIT «1 FOR A FORMAT ERROR 

SKIP IF THB CHARACTER IS AN OCTAL DIGIT 

ELSE @& SURE THE DECIMaL-DIGIT-RECEIVED FLaG IS SET 
RETAIN JUST THE DyerT 

ANB SAVE If FOR DECIMAL ACCUMULATION 


gAVE THE WOCTAL DIGIT" 

LOAD TME PREVIOUSLY GATHERED "OCTAL NUMBER® 
CONCATENATE THE "OCTAL DIGITS" 

ANB SAVE THE RESULT 


LOAD THE PREVIOUSLY GATHERED "DECIMAL NUMBERW 
BET THE LINK FOR TRE MULTIPLY 

MULTIPLY THE PREVIOUS "DECIMAL VALUE" 

By 10 FOR DECIMAL 

LOAD THE RESULT 

ADB THE CURRENT "DECIMAL DIGIY* 

AND SgVE THE TOTaL "DECIMaL NUMBERF 


Loor 


CHECK FOR A PERIOD 

1F $0, PICK YP THE DECIMAL VALUE 

ELSE LOAD THE DECI MaLeDIGITSeRECEIVED FLAG 

AND SKIP IF THERE WERE NONE 

RETURN «4, LKwsO0 FOR a FORMAT ERROR: DECIMAL DIGITS, 


LQAD THE OCTAL VALWE 


GES Tw NEXT CHARACTER 

AND {[DENTIFY [Tf 

A DELIMITER IS LEGAL, $O EXIf 

A LETTER -- EXIT #2 FOR A FORMAT ERROR 

A NUMBER == CLEAR YHE LINK FOR A FORMAT ERROR 


BUT NO PERIOD 


TTYNON 


015072 
015073 
015074 
915075 
815076 


05/34/72 
tT 


633026 
212635 
052634 
453026 
633026 


013077 


915077 
615100 
615101 
913102 
915103 
915104 
915105 
015106 
915107 
015440 


015444 
913142 
015143 
peeae 

15445 
Bisits 
015147 
915120 
§15121 


915122 


740040 
652000 
744400 
750203 
777772 
052760 
644002 
744200 
744000 
641603 


749200 
744000 
354434 
740400 
423268 

52760 
613110 
700404 
619120 
633077 


01404304 


NUM28 
NYM29 


Ocrory 
OCT42 


QCT44 


PDP-9 MINI] TIME*SHARING SYSTEM INITIALIZATION PROGRAM 
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(MTSS TELETYPE HANDLER) OCTAL WORD INPUT/OUTPUT 


NUMIN,X 
WORDBod 
WORDB 
NUMIN 
NUMIN,X 


OCTOT 


eet 
ocrTorT,*x 


AND EXIT #1 

LOAD THE DECIMAL VALUE 

SaVE THE CORRECT VALUE 

BUMP TO a RETURN #2 FOR SUCCESSFUL 


SEY YHE VALUG TO 84 OUTPUT 

SKIP IF NO LGADING ZEROES aR TO BE SUPPRESSED 

SET A FLAG TO PRINT ONE CHARACTER, ANYWAY? IF THE ac 18 ZERO 
FLGE SET THE COUNT FOR TWE STANDARD SIX CHARACTERS 

SEY THE NUMBER OF CHARACTERS TO pE OUTPUT 

RELOAD THE YVSER'G VALUE 

SKIP FOR A NON@ZBRO VALUE 

BLSE FORCE A SINGLE ZERO TO PRINT 

GEY THE NEXT OCTAL DIGIT 


IF 17 IS ZERO, DONST CHANGE PRINT-SUPPRESSION STATE 

ELSE CLEAR THE PRINT INHIBIT aT? THE FIRST NON-ZERO FOUND 
MAKE aSCI! IN ANY CASE 

BUT SKIP IF PRINT 88 INHIBITED 

ELSE PRINY THE DIGET 

DONE?2? 

NO =~ LOOP 


WAIT FOR THE YELETYPE TO SETTLE 
VEB «~ EXIT 
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013123 


915123 
915194 
913125 
915126 
015197 
015430 
015131 
919132 
915433 
915134 
915435 
915136 
915137 
615240 
Pisiay 
915442 
915443 
915444 


015445 
015446 


740040 
772634 
052760 
419241 
633123 
453123 
413147 
660744 
072760 
413147 
660706 
272760 
072760 
413147 
272760 
072760 
452760 
613134 


212634 
633123 


013147 


915447 
015150 
015181 
015452 
015153 
015154 
015455 


740040 
413204 
113230 
6139145 
740000 

54435 

33447 


013156 


015156 
915187 
015160 
015161 
015162 
915163 
915264 
915165 


740040 
052760 
233156 
652000 
4531456 
413167 
413167 
413167 


01704104 


esse 8 es & 


SPXIN 


S1X2 


S1X9 


SIX5 


S|xoT 
$1 X24 
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(MTSS TELETYPE HANDLER) SIXBIT WORB INPUT @ SIMBIT BUFFER OUTPUT 


AC 


nee wr F eee Dew Oe Fe Te Kee 


INPUT 
OUTPUT 


wORDB 
SIXIN.X 


S1X5 


FQET 
CHRID 
S1X9 


(240) 
SIX5,4 


S|XOT 


Ty 
SLXOT,Xx 


S1xoT 
S1X26 
S1X26 
S1X26 


1 DELIM 
4 S1XB] 
X x 


MQ MBANING 
a ee ca ee fe ee ee ee he eee 

X FERSY NON@BLANK CHARACTER IS A DELIMITER 
Y DELIM SUCCESSFUL READ OF A SIXBIT WORD 

x SUCCESSFUR WRITE OF A SIXBIT BUFFER 


INITIALIZE THE SIXO]T BUFFER POINTER 
INSTIALIZE THE INPUT 

RETURN +4 FOR DELIMITER IS FIRST NON-BLANK CHaRAaCTER 
ELSE BUmP FO A GOOR RETURN 

GET THE FIRST GOOD CWARACTER 

ANB PUT tY IN THE FIRST CHARACTER POSITION 
AND SAVE J? 

GET THE sh CHARACTER 

PUT JT IN FHE SEGORD CHARACTER POSITION 
CONCATENATE THE CHARACTERS 

AND SAVE THE RESULT 

GET THE THIRD CHARACTER 

CONCATENATE THE ch aRacTERS 

AND SAVE THE RESULT 

ee THE STORAGE BUFFER POINTER 

LO 


LOAD THE FIRST SIXBIF WORD 
EXIT 


SyBROYTINE TO GET FHE NEXT CHARACTER, MAKE JT SIKBIT, @XIT IF A DELIMITER 


GEF THE NEXT CHARACTER 
IDENTIFY IT 

EXIT JF JV 18 A DEKIMITER 
PERMIT LETFERS 

MAKE SJXBIT 


SEP THE NEGATIVE CAARACTER COUNT 
LOAD THE NEXT WORD OF OUTPUT 
SAVE IT FOR PRINTING 

BUMP THE POINTER 

OUTPUT THE FIRST CRARACTER 
OUTPUY THE SECOND CHARACTER 
OUTPUT THE THIRD CRAARACTER 
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t (MTSS TELETYPE HANDLER) SIXBIT wORD INPUT & SIXBIT BUFFER OUTPUT 

915166 613160 2360 JMP $1X24 LOOP 

2370 

013167 2380 ENTER SIX26 

015167 740040 S}X26 9 XX 
015170 641606 2390 LLSC 6. GET THE NEXT SIXBIT CHARACTER 
015471 354436 2400 Fad (240) MAKE JT aSCI] 
015472 554437 2410 SAD (333) CHECK FOR CARRIAGE RETURN MAPPING 
015473 760245 2420 LAW $GR 
015174 554440 2430 SAD (335) CHECK FOR LINE FEED MAPPING 
015175 760242 2440 LAW $\,F 
815176 419262 2450 JMs TTYOT PRINT THE CHARACTER 
915177 452760 2460 182 Td ALL CHARACTERS PRINTED? 
015200 633167 2470 JMP $1X26,%X NO =~ LOOP 
815201 700401 2480 SF 
£13202 613204 2490 JMP wi Wat’ FOR YHE TELETYPE TO SETTLE 
£15203 633156 sect JM SIXOT,X YEB w~ EXIT 

251 * 


2520 . 


TTYNON 
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T 


013204 


015204 
015205 
915206 
915207 
015240 


740040 
452757 
232757 
052762 
633204 


013241 


9152491 
915292 
915243 
915294 
915295 
pate 
01529 

013220 
915221 
013222 
015223 
015224 
013225 
015226 
915227 


740040 
452764 
452634 
152635 
413204 
§54436 
643245 
413230 
633213 
740000 
453241 
750003 
3527537 
052737 
633291 


2540 
2550 
2560 
2570 
2580 


2599 
2600 
2610 
2620 
2630 
2640 


2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 


01404304 


FGET 


FGETS 


INTIN 
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(MTSS TELETYPE HANDLER? MISCELLANEOUS LINE BUFFER ROUTINES 


FGET 


BRTR 
BPTR,x 
CHAR 
FGET.» 


INTIN 


COUNT 
WORDS 
WORDB«4 
FGET 
(SSPACE) 
+22 
CHRID 
INTIN, X 


INTIN 
BPTR 


BPTR 
INTIN, X 


SUBROUTINE TO GET THE FIRST REMAINING CHARACTER FROM THE LINE BUFFER 


NO -~ BUMP THE POINTER 
LOAD THE NEXT CHARACTER 
AND SAVE |* 


INITIALIZE INPYT WORD~GETTING 


COUNT THE WORDs SUCCESSFUL OR NOT 
INITIALIZE THE TWO FIRST WORDS OF THE INPUT BUFFER 


GET THE NEXT CHARACTER 
CHECK [T FOR A SPACE 
THROW AWAY SPACES 
IDENTIFY THE NON@SPACE 
RETURN +4 FOR A DELIMITER 


ELSE BUMP THE RETURN FOR A NUMBER OR A LETTER 
BACK UP THE POINTER TO POINT TO THE FIRST GOOD CHARACTER 


TTYNON 
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bf 


013230 


915230 
015231 
815232 
015233 
015234 
015235 
015236 
9132387 
015240 
0135241 
019242 
015243 
013244 
013245 
915246 
915247 
915250 
043254 
015252 


915253 
015254 
915255 


015256 
915257 
015260 
915261 


740040 
614444 
053262 
354442 
745102 
613253 
peefes 
45400 
613256 
354444 
745402 
g1 3256 
35444 
745302 
613253 
514446 
354447 
744102 
613237 


215262 
052763 
635230 


453239 
453250 
213262 
633230 


013262 


915262 
915263 
015264 
915265 
015266 
915267 


740049 
700404 
613263 
700301 
700406 
633262 


2800 
2810 
2820 
2830 
2840 
2859 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 


2940 
2950 
2960 
297 

298 

2990 
3000 
3010 
3020 
393 

3b48 
3050 
3060 
3070 
30980 
3099 
3100 
3410 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 


3250 
3260 
3270 
3280 
3290 


04904104 


seesesesessesest 8 & 


CwR OD 


DLMR 


Oras 
LETTR 


TTYOT 
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(MTSS TELETYPE HANDLER? MISCELLANEQUS CHARACTER-HANDLING SUBROUTINES 


CHRID -- SUBROUTINE TO CLASSIFY EIGHT~-BIT ASCII CHARACTERS, 
ENTER WITH TWE CMARACTAR IN THE ACI LEAVE MITH THE EILGMT~BIT CHARACTER 
IN AC(0-17) AND THE LINK AB FOLLOWS 


RETURN LINK MEANING 


aeererrre -- wr CRT FORK KS KH ete KH HOEK SE BH DEFT TMH Me _Zre—weVMe*eetae Wea Fee qe Pe He 


o1 1 

2 0 

o3 0 

3 1 
ENTER CWRID 
xX 
AND (377) 
Dac TTYOT 
TAD (#260) 
SPAISTL 
JMP DLMR 

AD (*10) 
SpAICLL 
JMP DIGIT 
Tad (#2) 
SPAISTL 

MP DIGIT 
TAD (#6) 
QSNAYSPA!STL 
JMP DLMR 
AND (777737) 
TAD (#33) 
SPA}CML 
JMP L&TTR 
LAC TTYOT 
Dac DLMTR 
JMP CHRID,X 
1$2Z CHRID 
182 CHRID 
Lac TTYQ? 
JMP CHRID,X 
ENTER TTYOT 
XX 
TSe 
JMP eet 
KSF 
TLS 
JMP TYYOT,™X 


THE CHARACTER 3S A DELIMITER (1,8, NEITHER A DIGIT NOR A LETTER 
THE CHARACTER 1S @ITHER AN UPPER CaS& OR a LOWER CASE LETTER 
THE CHARACTER IS AN OCTAL DIGIT 

THE CHARACTER 3S A DECIMAL DIGET (8 OR 9) 


SAVE THE EIGHT-BIT ASCII CHARACTER 
ac < 0 FOR DELIMITERS 


CHARACTER 18 A DELIMITER 
Ac <€ 0 FOR OcTAL piGtTs 


CHARACTER IS AN OCVaL DIGIT 
AC < 0 FOR DECIMAL DIGITS 


CHARACTER [8 A DECIMAL DIGIT 
Ac <@ 0 FOR peELIMIVERS 


CHARACTER 18 A DELEMITER 

MAP LOWER CARE INTO UPPER CASE 

AC € 0 FOR LETTERS -- Ley FOR LETTERS) Leo FOR DELIMITERS 
THR CHARACTER 1S A LETTER 


LOAD THE DELIMITER 
SAVE IT 


RELOAD THe CHARACTER 


WAIT FOR THe TELBPRINTER TO Oc FREE 
KILL“ THE-OUTPUT FEATURE 
PRINT THE CHARACTER IN TWE AC 


48 
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015270 


615270 
015271 
915272 
015273 
015274 
915295 
915276 
915297 
015300 
915301 


740040 
760215 
413262 
760245 
113262 
760212 
4113262 
700401 
613277 
633270 


3500 
3310 
3520 


3530 
33540 
3350 
3360 
3379 
3380 
3399 
3400 
3410 
3420 
3430 
3440 
3460 
79590 


01404504 


CRLF 
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(MTSS TELETYPE HANDLER) MISCELLANEOUS CHARACTER@WANDLING SUBROUTINES 


xX 
LAW 215 

JMS TTYOT 

LAW 245 

JMS TTYOT 

AW 212 

Jams TYYOT 

Sr 

JMP oot WAIT FOR THE TTY TO SBEYTLE 

JMP CRLF »X 

Head TURN OFF THE INSERT!S MEAD SYMBOL 


D 
JINSRY = sDLIBRARYSPDP9LIB:GROCAT 


GROCAT 05/34/72 04404104 PDP-9 MIN] TIME~SHARING SYSTEM INITIALIZATSON PROGRAM PAGE 5Q 


c DESCRIPTION OF TWE GROWTH SYSTEM CATALOG STRUCTURE 
140 wHEAD OC 
150 
160 
170 * 
180 * MAJOR REVISION == JAN 21, 1972 BY ROBERT W, BLEAN 
190 s 
200 * A GROWTH CATALOG FoR A FILE-ORIENTED DEVICE 1S LoCaTED IN THE 400 WORDS 
210 * OF LOGICAL BLOCK 4 OF THE LOGICAL DEVICE, WHIS PERMITS DISK AND DECTAPE 
220 * 70 BE USED INTERCHANGEABLY BY THE GROWTH SYSTEM PROGRAMS, 
230 * 
240 a THE DEVICE ADDRESS OF pz HANDLER {S THE HANBLER NUMBER IN BITS 0-2 
250 * AND THE TYPE (DISK (1) OR DECTAPE €0)) IN BIT 3, 
269 * 
270 « THE DEVICE ADDRESS OF a FILE [8 TME DEVIGE aDDRESS OF THE HANDLER IT 
280 « 1S ON PLUS IN BITS B17 ITS STARTING BLOCK NUMBER, 
290 « 
300 * ALL DEVICE ADDREgsEs IN a BECTAPE CATALOG ARE CORRECY FOR THE HANDLER 
310 * THE TAPE WAS MOUNTED ON THE LAST TIME JT WAS ALTERED, 
320 « 
330 + WHE FIRSy FOUR WORDS OF yHR CATALOG BLOCK ARE A HEADER! 
340 * 1) THE DEVICE ADDRESS OF THE FIRST FREE BLOCK ON THE DEVICE 
350 # 2) UNUSED 
360 e 3) TWOS COMPLEMENT COUNT OF THE NUMBER OF FILES caTalOGED 
370 * 4) THOS COMPLEMENT MAXIMUM BLOCK NUMBER ON THe DEVICE 
380 * 
390 « THE REMAINDER oF THE CaTaLaG CoNSISTS oF A SERIES 6F FIVE WoRD FILE~ 
400 « CONTROL BLOCKS, THE FIRST FILE CONTROL BLOCK IS FOR THE CATALOG ITSELF, 
410 # THEN THERE 18 ONE FILE CONTROL BLOCK FOR E&CW FILE ON THE DEVICE, 
420 . 
430 “ FORMAT OF THE FILE CONTROL BLOCKS: 
440 * 41) THE FIRST WORD IS THE SIXBIT ASCII (BIGHTBIT ASCII ~ 240) 
450 * FILENAME, THIS MEANS THE FILENAME &S RESTRICTED TO THREE 
460 « CHARACTERS, WITH NO EXTENSION OR PASSWORD, 
470 * 2) THE DEVICE ADDRESS OF THE FILE, 
489 * 3) THE FILE'S CORE ADBRESS 
490 « 4) THE FILE'S LENGTH ¢IN WORDS) 
500 ® 5) THE PROGRAM STAR? 
510 * 
$20 * THIS LEAVES ua none oF THE CATALOG BLOCK UNUSED, If IS SUGGESTED THaT 
530 « THE SECOND OF THESE CONTAIN THE BLOCK NUMBER OF A CONTINUATION OF THE 
540 * CATALOG, SHOULD THIS EVER BE NECESSARY) {7 WOULD BE ZERO IF THERE 
550 * 1S NO CONTINUED CATALOG BLOCK, 


GROCAT 


013302 
015303 
915304 
015305 


05/31/72 
C 


900000 
017000 
000400 
000000 


0153306 


015306 
§15397 
915340 
013391 
015342 
015343 
015344 


740040 
053302 
257000 
614450 
741200 
633306 
113354 


013345 


915345 
915346 
013347 
0153¢0 
0153e1 
§153¢2 
0153e3 


615324 
915325 
915326 


915327 


213302 
514450 
254376 
053302 
413365 
773302 
417500 


215302 
§14450 
053302 


217000 


01404104 


CTEM4L 


CATALT 


eseetekeseseseeeeeeese es 82 8 & 


zw’ 
m2 
> 
per 


RGATS 
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DSA 
CATLOG 
CATLEN 
DSA 
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GROWTH SYSTEM STANDARD CATALOG ROUTINES 


CATALOG ROUTINE'S PRIVATE TEMP 
CATALOG CORE ADDRESS 

CATALOG LENGTH 

CATALOG ALTERED FLAG 


RCAT -- THE BASIC CATALOG ROUTINE, IT READS IN CATAL QGS AND UpDaTES THEM 
FOR THE CURRENT DEVICE AND (POSSIBLY NONeSTANDARD) CATALOG LOCATION, 


A HANDLER DEVICE ADDRESS IS paSSED IN THE ac (pOSSIBLY ALONG WITH OTHER 


GARBAGE), 


IF THAT HANDLER'S CATALOG {S ALREADY IN CORE, RCAY BXITS 


IMMEDIATELY, OTHERWISE THE CURRENT CATALOG IS READ OUT IF IT HAS BEEN 
ALTERED SINCE IT WAS RBAD JN, THEN THE REQWESTED CaTaLOG I8 READ 

IN AND ALL OF THE DEVICE ADDRESSES ARE UPDATED, THE CATALOG ALTERS 
FLAG IS CLEARED IF A CATALOG JS READ IN, UNTOUCHED OTHERWISE, 


AS A RESULT, THE CATALgG IN CoRE ALWAYS WAS THE PROPER DEVICE ADDRESSES 
FOR THE DEVICE If WAS READ FROM, 


RETURN IS 4 WHEN THE DESIRED CATALOG IS IM CORE, 


IN THE EVENT OF UNRECOVERABLE ERROR, EXIT 88 TO AN ERROR ROUTINE, 


USE 
XX 


CTEM, 
CaTLOG 
(DVCMSK) 


RCGAT,X 
FORCE 


CTEMS 
(DVCMSK) 
(CATBLK) 
CTEML 
CSRCOVR 
CTEM, 
STAPIN 


Save THE DEVICE ADDRESS OF TWE DEVICE WHOSE CATALOG !S BEING REQUESTED 
COMPARE THE REQUESTED DEVICE ADDRESS WITH CURRENT CaTALOG'S DEVICE ADDRESS 
EXTRACT JUST THE DEVICE ADDRESS PORTION 

skip IF a DIFFERENT CaTALOG !§ BEING REQUESTED 

ELSE EXIT DIRECTLY 

FORCE THE OLD CATabO@ BEFORE READING A NEW ONE 


GET THE NEW HANDLER'S DEVICE ADDRESS 
ADD IN THE CATALOG BLOCK NUMBER 

SAVE THE NEW CATALOG'S DEVICE ADDRESS 
SET UP THE ERROR RECOVERY 

GET A POINTER TQ THE CATALOG PARAMETERS 
READ THE NEW CATALOG 


NOW UPDATE THE DEVICE aDDRESSES 


CTEML 
(DVCMSK; 
CTEM, 


CATLOG 


SET THE CURRENT DEVICE ADDRESS 


GROCAT 


0135330 
015331 
913332 


015333 
915334 
915335 
015336 
015337 


015340 
015341 
015342 
015343 


015344 
015345 
045346 


013347 
pieeee 
045354 
013352 
013353 


05/31/72 
Cc 


514447 
253302 
057000 


777005 
053354 
053440 
#17002 
053365 


235354 
514417 
253302 
073449 


453365 
741000 
633306 


213354 
354484 
053354 
053440 
613349 


01404404 


ROATS 
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AND 
KOR 
Dac 


Law 
Dac 
DAC 
WAC 
Dac 


LAC 
ANDO 
XOR 
pac 


1S 
3K 
JMP 
Lac 
Tad 
DAG 


Dad 
JMP 


PAGE 


GROWTH SYSTEM STANDARD CATALOG ROUTINES 


(BLKMSK ) 
CTEM4 
CaTLOG 


CATLOG#5 
FORCE 
CaTL 
CaTLOGe2 
RCOVR 


FORCE, X 
(BLKMSK ) 
CTEM4 
CATL eX 


RcOvVR 
RCAT,X 


FORCE 
(FCBLEN) 
FORCE 
CATL 
RCAT4 


UPDATE THE OLD DEVEtCE ADDRESS OF THE FIRST FREE BLOCK 


SET POINTERS TO THE FIRST OLB DEVICE ADDRESS 


SET THE COUNT OF FCB'S 

LOAD THE NEXT OLD DEVICE ADDRESS 

RECOVER THE BLOCK NUMBER 

ADB IN THE CURRENT HANDLER DEVICE ADDRESS 
SAVE THE UPDATED FELe DEVICE AppRESS 
COUNT THE FILES pOME 

ALL DONE 


LOAD THE FEB POINTER 
ADVANCE }7 TO THE WEXT FCB 


SAVE THE NEW POINTER 
LOOP 


52 


GROUAT 


C 


015354 
015355 
915356 
015357 
015360 
015361 
015362 
915363 
015364 


740040 
213305 
744200 
633354 
113365 
777005 
417502 
453305 
633354 


015365 
015366 
015367 
915370 
045374 
013372 


013373 
015373 700342 
3374 


01353 
015394 777762 
915375 4113156 
915403 453435 
915404 633365 

013405 
015405 700312 

013406 
013406 777744 
915407 41131536 

013423 
915423 pe 


740040 
777776 
053435 
214452 
057505 
633365 


05/31/72 


915432 


015433 
013434 


015435 
015436 
015437 


615366 
613405 


453305 
612000 


000000 
614756 
435756 


4340 
1350 
1360 
4370 
1380 
1390 
4400 
4410 
4420 
4430 
1440 
4450 
1460 
4470 
4480 
£4990 
4500 
1510 
4520 
4530 
1540 
1559 
4560 


4570 
1560 
1590 


1600 
4610 


4620 
4630 
1640 
4650 
1660 
4670 
4680 
4690 
4700 
4710 
4720 
1730 
1749 


01504104 


a 
FORCE 


RCOVR 


RCvRA 


RCVRS 


RCVR6 


ERCNT 
TGN 
CON 


PDP-9 MIN] YIM:-~SHARING SYSTEM INITIALIZATION PROGRAM PAGE 


GROWTH SYSTEM STANDARD CATALOG ROUTINES 
FoRCE WRITES THE CURRENT CATALOG To ITS DEVICE IF IT HAS BEEN ALTERED 


Lac CATALY 1S THE CATALOG ALTERED 
SNA SKIP IF THE CATALOG HAS BEEN aLTERED 


UMP FORCE,X ELSE DON'T BOTHER Yo WRITE ITF 

JMS RCOVR INITIALIZE THE ERROR RECOVERY 

Law CPARAM POINT TO CaTaLOG 

JMS STAPOT pORCE IT 

DZM CATALT CLEAR CATALOG ALTER FLAG 
JMP FORCE,X RETURN 

XX SUBROUTINE TO SET WP RECOVERY FROM HARDWARE ERRORS 
LAW -2 SET FOR TWO RETRIES BEFORE GIVING UP 
DAG ERCNT 

Lac (JUMP RCOYR4) 

pac SRECOV SEY UP THE ERROR JWMP TO THE ERROR MESSAGE 
JMP RCOVR,X 

MESS <DEVICE ERRORD,12. 

RB 

MESSR <DEVICE ERROR, 42, 

AW ef2,a5 

JMS TSSUXCY 

1sz ERCNY COUNT THE ERROR 

MP RCOVR,X 

ue <TYPE "IGNORE! OR #CONTINUETS 9,29, 

KR 

MESSR <TYPE "IGNORE OR 'CONTINUE'! 2,29, 

LAW $29,070 

ws TSSIXOT 

LINE GET THE USER'S aANSWER TO WHAT HE WANTS TO DO ABOUT IT 
Juma TSINLIN 

WORD READ WIS ANSWER 

JMS TSSIXIN 

JMP RCOVR5 NO INPUT JS JLLEGAL 
SAD IGN 
JMe RCVR6 IGNORE THE LAST COHMAND 
3A0 CON 

Jue RCOVR=4 SEY UP TO TRY AGAIN 
JHP RCVR5S ANY OTHER ANSWER I8 ILLEGAL 
pz CATAL” FORGET THE CATALOG waS ALTERED 
JMP SNEXTI, GET THE NEXT COMMAND LINE 

OSA 

ACT6 +] GNe 

»ACT6 *CONe 


GROMAT 


§15440 
Pis4ar 
015442 
915443 
615444 
013445 


05/31/72 
Cc 


740040 
052634 
777003 
040011 
217002 
053302 


013446 


915446 
613447 
915450 
615451 
015462 
019453 
045454 
915455 
915456 
013467 
915460 


212634 
560044 
613457 
e000%1 
354377 
4004 
258858 
613446 
633440 
453440 
633440 


1760 
4770 
1780 
1790 
4800 
4810 
1820 
1830 
1840 
4850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 


1940 
1950 
1960 
1970 
498 

1998 
2000 
2010 
2020 
2030 


01404104 


Oasenasee eo exes & 


ATL 


CATLL 


CATLD9 
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CAT. 
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GROWTH SySTEM STANDARD CATALOG ROUTINES 


CATL SEARCHES THE CATALOG IN CORE FOR THE FILENAME 
PASSED IN THE AC 


RETURN +2 WITH CATX POINTING TO THE FILE NAME IF SUCCESSFUL 


RETURN «1 WITH CATX POINTING To THE FIRST FREE Space -1 IN THE 
CATALOG IF THE FILE NAME 18 NOT FOUND 


TSWORDB 
CATLOG#3 
SCATX 
CATLOGe2 
CTEM, 


TSWORDB 
SCATX,X 
CATLO 
SCATX 
(FCBLEN-4) 
SCATX 
CTEML 
CATLL 
CATL.X 
CATL 
CATL sx 


SAVE CATALOG NAME 

SET A POINTER TO THE FIRST Fee IN THE CATALOG AUTO*INDEX REGISTER 
GEY CATALOG COUNT 

SAVE IT 

RESTORE NAME TO SEARCH FOR 


CHECK [T 
FOUND IT 


FAILED ~~ MOVE THE POINTER TO THE NEXT FILE CONTROL BLOCK 
COUNT 


LOOP 
EXHAUSTED, NO FILE FOUND -- BAD RETURN 
GOBD RETURN 


GROUAT 


C 


015461 740040 
015462 
15462 113123 
015463 740000 
013464 
015464 212763 
015465 554453 
045466 643472 
915467 113543 
913470 633461 
013471 613502 
015472 773476 
913473 053516 
013474 
015474 212634 
015475 613523 
915476 633461 
013477 4113306 


013500 
015500 413123 
015501 740000 

013502 
0145502 2127638 
013503 554454 
015594 615541 

013505 
015505 212634 
015506 744200 

013507 
915507 612000 
915540 613514 


015541 
915541 115026 
015542 
913532 612000 


05/31/72 


015543 
9135544 
013545 


052634 
453461 
633464 


2050 
2060 
2070 
2080 
2090 
2100 
2110 
2420 
2130 
2140 
2150 
2160 
2170 
2180 


2190 
2200 


2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 


2290 
2300 
2510 
2320 


2530 
2340 


2350 
2369 
2370 


2380 
2390 


2400 
2410 


2420 
2430 


2440 
2450 


01404104 


Goeeerseesses fs & 


NAME 


GNAM2 


GNAMS 


GNAMS 


GNAME6 


GNAMB 
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GNAME 


PAGE 


GROWTH SYSTEM STANDARD CATALOG ROUTINES 


GNAME GETS A FILE NAME FROM THE TTY BUFFER 


AND READS 


RETURN IS 
RETURN IS 
OTHERWISE 


IN THE CATALOG IF NECESSARY 


#1 FOR PAPER TAPE DESIRED 
*2 FOR SUCCESS ON DISK OR DECTAPS& 
EXIT IS TO FORMAT ERROR 


THE FILE NAME IS RETYRNED IN TSWORBB AND IM THE AC, 


Xx 
WORD 
JMS 


NOP 
DELIM 
LAC 
$aD 


TSSIXIN 


TSDLMTR 
(SCOLON) 
GNAM2 
PAPER 
GNAME, X 
GNAMS5 
GNAMS 
DEVCV 


TSWORDB 
DEVCS 
GNAME, X 
RCaT 


TSSIXIN 
TSDLMTR 
(SSLASH) 
GNAMEC 
TSWORTB 
FORMAT 
GNAM8 
TSNUMIN 
FORMA’ 
TSWORDS 


GNAME 
GNAME, X 


GET A WORD OF SIX BIT ASCII 


GET THE DELIMITER 

CHECK FOR COLON 

CHECK FOR PAPER TAPE 

YES ~~ PAPER TAPE 

NO «- SO WYSE CURRENT CATALOG 
RELOAD THE CATALOG NAME 
CONVERT 37 T0 A DEVICE ADDRESS 
READ IN THE CATALOG 

GET ANOTHER WORD 

GET THE DELIMITER 

CHECK FOR SLASH 

LOOK FOR OCTAL 

ELSE RECOVER THE SIXBIT NAME 
CHECK FOR ALL SPACES 

PORMAT ERROR -- ALk SPACES JS AN ILLEGAL NAME 


GET THE NUMBER 


70 BE COMPATABLE WITH SIXBIT INPUT 
GO6D RETURN 


55 
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C GROWTH SYSTEM STANDARD CATALOG ROUTINES 
2470 t 
248) ® DEVCV -- READS THE NEXT WORD, 
2499 * RETURN IS #4 WITH THE NAME IN THE AC IF YT 18 aA PAPER TAPE CALL 
2500 * 
2510 * OTHERWISE IT ATTEMPTS TO CONVERT THE NAME TO DEVICE ADDRESS FORMAT, 
2520 * {F SUCCESSFUL, IY RETURNS «2 WITH THE HANDLER NUMBER IN AC(Q-2) AND 
2530 * THE DEVICE TYPE {DISK ¢1) OR DECTAPE (0)) EN AC(3), REMAINING BITS 
2540 * AR& ZEROED, 
2550 * 
2560 * EXIT IS TQ THE FORMAT ERROR MESSAGE IF TWE DEVICE IS NEITHER PAPER TAPE 
2570 a NOR DISK NOR DECTAPE, 
2580 a 
015546 740040 2599 DEVCV Xx 
0135547 2600 WORD GEY THE DEVICE NAME 
015547 £13123 JMS TSSIXIN 
013520 2610 FORMAT 
015520 612000 JMP FORMAT 
015591 4135435 2620 JMS PAPER CHECK FOR PAPER TAPE 
013522 633516 2630 ume DEVCV,X YEB -+ PAPER TAPE 
015523 514455 2640 DEvVCS AND (777700) REMOVE DEVICE NUMBER 
013524 §54456 2659 Sad (STP,) CHECK FOR DECTAPE 
945525 643535 2660 UMP DEVCy YES 
013526 554457 2670 Sad (SDT.) CHECK FOR DECTaPE 
0145527 613535 2680 ume DEVC4 
913530 554460 2690 8aD ($DK,) CHECK FOR DISK 
015531 744900 2700 SKP 
013532 2710 FORMAT NO OTHERS ee FORMAY ERROR 
013532 612000 JMP FORMAT 
015533 650004 2720 CLO!CMO FOR DISK PWT THE SIGN BIT ON IN THE MO 
915534 744000 2730 SKP 
815535 650000 2740 DEVC4 Clo CLEAR @ FOR TAPE 
013536 2750 WORD? REBYORE NAME 
015536 212634 LAC TSWORDB 
913537 640617 2760 Lis 18.<3 SHIFT TO POSITION 
915540 5144590 2779 AND (DVCMSK) CONVERT TO HANDLER DEVICE aDDRESS FORMAT 
015544 453546 278) 182 DEVCV INCREMENT RETURN 
045542 633516 2790 MP DEVCV,X AND NOW RETURN 
2800 * 
2810 * PAPER CHECKS THE AC FOR a PAPER TAPE MNEMOMIC, IT RETURNS «3 JF IT 
2820 * FINDS ONE, ELSE RETURNS «2, THE ac IS UNCHANGED, 
2830 * 
013543 2840 PAPER ENTER 
915543 740040 XX 
0135544 2850 WORDS RECOVER THE WORD 
013544 212634 LAC TSWORDB 
015545 554461 2860 SAD ($PPT) 
915546 633543 2870 ume PAPER, X 
013547 554462 2880 Sad (SPTR) 
013550 633543 2890 JUMP PAPER, X 
045554 554463 2900 SaD (SPTP) 
913552 635543 2940 UMP PAPER, X 


015553 453543 2920 182 PAPER NQ PAPER TAPE MNEMONIC 
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015554 633543 2930 JMP PAPER. X 


GROMAT 


013555 
015556 
015557 
915560 
0135561 
015562 
045563 
015564 
§15565 


05/34/72 


C 


740040 
115440 
741000 
633555 
217002 
554464 
643573 
354434 
057002 


013566 


015566 
013567 
$15570 
$135571 
915572 


212654 
060011 
453305 
453555 
635555 


015573 


015573 


700312 


013574 


015574 
015575 
015603 


015604 
015605 
015606 
015607 
015640 
015641 
015642 
015643 
015644 
045645 
015646 
015647 


777762 
413156 
612000 


740040 
354444 
660510 
053302 
217000 
652000 
353302 
053302 
514417 
357003 
740100 
613624 


2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 


3170 
3180 
3190 
3200 
3210 
3220 


3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3510 
3320 
3330 
3340 
3350 
3560 
3370 
33580 
3390 
3400 
3410 
3420 
3430 
3449 


Mmets#es ee & & & 


reese ee 8B Oo #8 
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GROWTH SYSTEM STANDARD CATALOG ROUTINES 


SAVE CHECKS THE CATALOG FOR THE NAME FOUND IN THE AC 


RETURN IS #4 IF THE FILE 18 ALREADY SaVeEp 
A CATALOG ENTRY IS CREATED FOR THE NAME AND RETURN I8 «2 OTHERWISE 
EXITS TO AN GRROR MESSAGE IF THE CATALOG I$ FULL 


ON RETURN CaTX POINTS TO THE FILE NAME IN FHE CATALOG 


XX 

JMS 
SKP 
JMP 


CATL 


SAVE,X 
CATLOG#2 
(CATMAX) 
CFULL 
(-41) 
CATLOGe2 


TSWORDB 
SCATX,X 
CATALT 
SAVE 
SAVE.X 


LOOK yP NAME 


DON'T ALLOW DUPLICATES 

LOAD THE FCB COUNT 

CHECK FOR CATALOG ALREADY FULL 
YES ~~ EXJ]T TO AN ERROR MESSAGE 
COUNT THE NEW FILE 

UPBSOATE THE FCB COUNT 

RECOVER THE FILE NAME 


SAVE [TY 
FLAG THE CATALOG WAS BEEN ALTERED 


<CATALOG FuLl>,12, 


<CATALOG FULLO,12. 


“12,92 
TSSIXOT 
SNEXTL 


ALG RECEIVES a WORD COUNT IN THE aC AND CakcyLATES TWE LEAST INTEGER 
NUMBER OF BLOCKS THaT cAN HOLD TWAT LENGTH, IT THEN aLLOCATES THE STORAGE 
IN THe CORE CATALOG HEADER AND RETURNS WITH THE DEVICE ADDRESS OF THE 
FIRST FREE BLOCK JN HE AC, 


EX]T 1S TO AN ERROR MESSAGE IF THIS ALLOCATION WOULD RESULT IN 
OVERFLOWING THE DEVICE, IN THIS CASE TWE CATALOG IS UNALTERED, 


XX 
fad 


LRSS 


pac 
LAC 
MQ 
TaD 
pac 
AND 
TaD 
SMA 
JMP 


CTEM 
CATLOG 


CYEM4 
CYEM1 
(1777) 
CATLOG*3 


DeULL 


ROWND UP FO A BLOCK 

AC = MINIMUM INTEGER NUMBER @F BLOCKS REQUIRED 
SAVE IN az GOOD RANDOM PLACE 

GET THE POINTER TO TE FIRST FREE BLOcK 

SAVE [T 

ADB THE REQUESTED NUMBER OF BLOCKS TO FORM A NEW POINTER 
SAVE THE NEW POINTER 

EXTRACT BLOCK NUMBER 

SEG IF WE OVERFLOWED THE DEVICE 

NO IF SKP 

FULL -* HELP#?!@ 
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C GROWTR SYSTEM STANDARD CATALOG ROUTINES 
015620 213302 3450 EAC CTEM4 
015621 057000 3460 DAC CATLOG sET THE FREE FCB POINTER NOW WE KNOW IT WILL BE OK 
015622 641002 34790 LACQ RESTORE THE DEVICE aDDRESS OF THE FIRST FREE BLOCK 
915623 635604 te JMP ALC,X 
349 
013624 3500 DF yi MESS <DEVICE Fyll>,11. 
015624 700312 KRB 
0145625 MESSR <DEVICE FULL>,11. 
015625 777763 LAW wl1,9z 
§15626 115156 JMs TSS]XCT 
V15634 612000 3510 MP SNEXT| 
0135635 3520 MOND alge 
3530 MEAD 
3550 .END 


INT--INT 


05/31/72 
! 


015634 


015635 
015636 
015637 
015640 
0156414 
015642 
015643 
015644 
015645 
613646 
015647 
015650 
015651 
015652 
015653 
015654 
015655 
015666 
013687 


422027 
422030 
000000 
422025 
422026 
000000 
422022 
422025 
422024 
422122 
000000 
000000 
000000 
000000 
000000 
000000 
000100 
000000 
000000 


7970 
7980 
7990 
8000 
8010 
8920 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 


8210 


01404404 


FILES 


PRIWES 


OFILES 


EFILES 
TEMPS 
TEMP2 
TEMPS 
TEMPA 
TRARAM 


SYSDVC 
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CONSTANTS, TEMPORARY STORAGE, ETC 


» HEAD I RESTORE THE HEAD SYMBOL AFTER THE INSERTS 


LIST OF SWAPPABLE SYSTEM FILES (tINTt AND *RESt ARE NOT SWAPPABLE 
AND SQ LIVE ONLY ON THE LIBRARY DECTAPE) 


,EQYU wi START OF USER-TYPE SYSTEM FILENAMES 
SDDT 
$BAS 


0 
$MTR 
SLOR 


START OF PHANTOMeT¥PE SYSTEM FILENAMES 


AUTO-INDEX POINTER TO THE LIST OF OVERLAY FILENAMES 


0 
sSwe SWR MUST BE FIRST OVERLAY FILE, SINCE IT IS THE ONLY ONE ENTERED IN SWPCAT 


SMPL 


0 END OF THE FILES Ltstf 


»DATA 0,B8UF,0 


INT--[NT 


05/31/72 
! 


001677 
640000 


015660 


015660 


640000 
656000 


015660 
015661 
015662 
015663 


000076 
656000 
004777 
764000 


8230 
8240 
8250 
8260 
8270 
8280 
8290 
8360 
8310 
8320 
8530 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
844) 
8450 
8460 
8470 
8480 
8499 
8500 
8510 
8520 
8530 
6540 
8550 
8560 
6570 
8580 
85990 
8600 
6610 
8620 
8630 
8640 
8659 
8669 


01+04804 


SPTR 


NTCAT 


eters & & € 


VDKO 
SPTR 


VCO 
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CONSTANTS. TEMPORARY STORAGE, ETC 


CONSTANTS To SET JP THE INITIALIZATION CATALOG 


,Eay BOUNDARY= “ABLEN-¢ USER CoRE ADDRESS ~1 
.=0U $SCRSTR POINTER FO SCRATCH STORAGE 


MACRO TO SET UP A USER'S SCRATCH FILES IN INTCAT 


,DEFIN MACRO TO SET UP A SEF OF SCRATCH FILE DaTa FOR EACH USER 


,PMC SAVE,ON PRINT AT LEAST THIS MACRO! 


,bQYV SPTR 
» EQU SPTR*SDKL EN 


$US#1 USER NAME 


PAGE 


SPTR PHYSICAL DISK LOCATION ABOVE THE BASE OF THE SCRATCH AREA 


BOUNDARY~2 CORE ADDRESS -1 
*SUSLEN yWwO'S COMPLEMENT LENGTH 
,EQU SPTR*+SUSLEN 


SPHed 

SpTR 

BCUNDARY~4 

«SPILEN 

»fQy SPTRoSPHLEN 


suT #1 

geTR 

UstRt 

~STABLEN 

EGY SPTR*STABLEN 


PAC RESTORE 
/SNDM 
INITIALIZATION CATALQG 


SE? Up THE CATALGG ENTRIES FOR EACH USER 


INTUS 0 SET UP USER #0 

12S SPTR 

»Eau SPTReSDKLEN 

$USC USER NAME 

SPTR PHYSICAL DISK LOCATION ABOVE THE BASE OF THE SCRATCH AREA 
BOUNDARY=-1 CORE ADDRESS -1 

«SUSLEN YWO'S COMPLEMENT LENGTH 


61, 


InT~- {NT 
1 
672000 


015664 000077 
013665 672000 
015666 001777 
015667 776100 
673700 


015670 000075 
015671 673700 
015672 001677 
015673 777700 
674000 


015674 


674000 
712000 


013674 0004125 
013675 712000 
015676 004777 
015677 764000 
726000 


015790 6000126 
015791 726000 
015702 004777 
015703 776100 
727700 


015704 600124 
015795 727709 
015796 001677 
§15707 777700 
730000 


0157140 


730000 
746000 


015740 000154 
015741 746000 
0145742 001777 
015743 764000 
762000 


015724 000155 
015795 762000 
0157146 004777 
913717 776160 


05/31/72 


8670 


8680 


04704504 


SPTR 


UPO 


SPTR 
TABO 


SPTR 


SPTR 


POP-9 MINI TIME*SHARING SYSTEM INITIALIZATION PROGRAM PAGE 
CONSTANTS, TEMPORARY STORAGE, ETC 

,6OY SPTR*eSUSLEN 

SPHO 

SPTR 

BOUNDARY~4 

e SPHLEN 

.EQY SPTReSPHLEN 

SUTO 

SPR 

USTRT 

#STABLEN 

2EQU SPTROSTARLEN 

INTUS 1 SEY UP USER #1 

OY SPTR 

»E QU SPTReSDKLEN 

SVS1i US&R NAME 

SPTR PH¥SICAL DISK LOCATION ABOVE TWE BASE OF THE SCRATCH AREA 

BOUNDARY~-4 CORE ADDRESS -1 

#SUSLEN TwO'S COMPLEMENT LENGTH 

2 EQYU SPTReSUSLEN 

SPH1 

SPTR 

BOUNDARY~4 

# SPHLEN 

2E OY SPTR«SPHLEN 

SUT1 

SPTR 

USTRT 

oSTABLEN 

»EQY SPTReSTABLEN 

INTUS 2 SET UP USER #2 

»EQU SpiTR 

»EQY SPTReSDKLEN 

$Use2 USER NAME 

SPTR PHYSICAL DISK LOCATION ABOVE THE BASE OF THE SCRATCH AREA 

BOUNDARY~1 CORE ADDRESS -1 


@SUSLEN TWO'S COMPLEMENT LENGTH 
»EQYU SPTReSUSLEN 


SPH2 

SPTR 
BOUNDARY~4 
#$PHLEN 


62 


INT--]NT 


05/31/72 
! 


763700 


015720 
045724 
015722 
015723 


000158 
763700 
004677 
777700 


764000 


013723 
013724 
0135733 
013734 
000100 
0137563 
013754 


015774 


014374 
014375 
914376 
914377 
914400 
014401 
014492 
014403 
014404 
014405 
014406 
014407 
014440 
014441 
014442 
014443 
014444 
9144495 
014446 
0149447 
014420 
014424 
914422 
014423 
914424 
914425 
914426 
914427 
914430 
914431 
914432 


002000 
445320 
000001 
000004 
422022 
422021 
422023 
422024 
422122 
440000 
640000 
674000 
000125 
730000 
000154 
000076 
770000 
010000 
000020 
004777 
004300 
007777 
600000 
000540 
000003 
012635 
000337 
000230 
000245 
777797 
0000137 


8690 
8700 
8710 
8720 
8730 
8740 
6750 
8760 
8770 
8780 
8799 
8800 
8810 
8820 


014°04304 


POP-9 MIN] TIM=-SHARING SYSTEM INITIALIZATION PROGRAM 
CONSTANTS, TEMPORARY STORAGE, ETC 

~EQU SPTRe$ ?HLEN 

$uT2 

SPTR 

USTRT 


eSTABLEN 
»EQU SPTRe$TABLEN 


ALLOCATE CATALIG ROOM FOR ALL SYSTEM FILES 


»EQU wt START OF THE CATALOG OF USER-TYpPE SYSTEM FILES 
» BLQCK PFILES-UFILES-744 
EQU 


71 
»BLOCK OFILES@PFILES-y*#4e#2 TWO FILE ENTREES PER PHANTOM: <NAM> @ <PNAMD> 


EGY »- INTCAT 4 LENGTH OF INTCAT 
vel 
BLOCK EF ILES-OF [LES~104 


»BLQCK CATLEN 
»END START 


LIBRARY DEVICE CATALOg ROOM 


START OF THE CATALOG OF OVERLAY FILES 


PAGE 


63 


INT =~ INT 05/31/72 01404104 PDP~9 MINI TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 64 
t CONSTANTS, TEMPORARY STORAGE, ETC 


0149433 000256 
919434 000260 
014435 777540 
014436 000240 
014437 000333 
014440 000335 
014441 000377 
914442 777520 
014443 777770 
0149444 777776 
019445 777772 
0149446 777737 
014447 777745 
014450 740000 
014451 000005 
0149452 6135373 
014453 000272 
914454 000257 
0149455 777700 
014456 646000 
014457 446400 
0149460 445300 
014461 606064 
014462 606462 
014463 606460 
014464 777716 
014465 000000 


TRANSFER ADDRESS 642000 


INT--JNT 


05/31/72 


BOUNDA 


BRK 

BSLASH 
BUFFER 
BUFLEN 


4510 
3400 
3410 

770 

759 

760 
4870 
1880 
3370 
3870 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3520 
3350 
3360 
4030 
1020 

850 
4520 
4550 
1810 
4860 

430 

290 
2950 
2900 

420 
2330 

860 
3970 
4020 
3980 
$990 
4000 
4010 

240 
4030 
4040 

630 

610 

520 

449 


5550 

590 
2490 
2500 


01:04:04 


4520 


1880 
1920 


3880 
3540 
$550 
3560 
3570 
358) 
3590 
3600 
3530 


910 


4530 
4560 


41620 
1870 
4110 


8060 
2340 


3989 
4030 
3990 
4000 
4010 
4020 

800 
4040 
4050 
6260 
6660 

530 

960 
8660 


2550 
2550 


Ra 
PDP-9 MIN] TIM==SHARING SYSTEM INITIALIZATION PROG 


1040 


6350 
7000 


989 
8660 


CROSS *EFERENCE TABLE 


2640 2650 


7880 1090 1260 


3040 
1000 1630 
are 8670 8680 8680 


5089 


2260 


4470 


8280 


8410 


PAGE 


8479 


65 


INT-~ [NT 05/31/72 01504404 PDP-9 MIN] TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 66 


! CROSS REFERENCE TABLE 
13404 c ALC 3330 3080 5640 3480 
13437 C CON 4740 1650 
15456 C IGN 1730 1630 
73449 C CATL 187) 5189 5320 6610 7470 7590 7830 1150 1220 1310 2010 2020 2030 
3080 
13635 C MON9 3520 
13306 C RCAT 850 2550 900 1260 2310 
13555 C SAVE 3070 3000 5540 3100 3190 3200 
13376 C,001, 1560 
15430 C1002, 4590 
13546 C1003, 3220 
13687 C.004 3500 
13305 CATALT 610 2650 2880 1380 1440 1690 3180 
1 CATBLK 550 960 
400 CATLEN 560 2390 600 8810 
17000 CATLOG 540 599 2350 2740 2810 2820 2830 2870 590 870 1080 1110 1130 
1160 4890 1910 3110 3150 3370 3420 3460 
777736 = CATMaX 620 3120 
41 CATX 500 2859 3090 3120 3140 3160 3720 3740 5200 5340 5490 5560 5580 
5600 5620 5689 6650 6740 6740 6930 6940 6990 7060 7090 7490 
7510 7640 7630 7870 1900 1940 1960 1980 3170 
644 CBO 4050 4060 
645 CB4 4060 4070 
646 CBS 4070 4080 
647 CB7 4080 4090 
690 cBL8 4090 4100 
13457 CCATL® 2020 1950 
13446 CCATLL 1930 $220 2000 
13573 CCOFULL 3220 3130 
13302  CCTEMy 589 869 949 979 999 1040 1060 1190 1210 1920 1990 3360 3399 
3400 3450 
13535 CDEVC4 2740 2660 2680 
13523 CREVCS 2649 2520 2290 
13546 CDEVCV 2590 2499 2270 2630 2780 2790 
13624 COFULL 3500 3440 
13435 C&RENT 4720 1510 1570 
13354 CFORCE 1379 2669 3249 3329 910 1140 1190 1285 1300 1400 1450 
13472 CGNAM2 2260 2220 
13446 CGNAM3 2500 2260 
13502 CGNAMS 2340 2250 
13514 CGNAM8 2440 2400 
13464 CGNAME 2170 2240 2300 2449 2450 
6 CHRMAX 3180 3200 
2 CHRP AK 3130 3200 
90 ChAKMAX 2840 3180 4920 
60 CLKSPD 3160 3170 
1757 CLOCK 4560 4570 
42 CMDX 510 a 2979 3020 3040 3060 3150 3200 3210 5500 5510 5599 5610 
670 
45 CMPy 3490 3500 4450 
A6 CMP? 3500 3510 


6 CNTRL 3580 3390 


INI] --]NT 


212 
2053 
294 
2190 
230 
435762 
12464 
16000 
13543 
17005 
215 
13345 
13349 
13365 
13373 
13405 
13433 
A7 

44 

60 
100 
2000 
2004 
2002 
2003 
2004 
2005 
2006 
2n07 
2040 
2oat 
102 
436454 
104 
2043 
2194 
2153 
2163 
2042 
2n22 
2196 
2195 
2164 
2157 
2162 
2167 
2165 
2046 
2164 
2056 
1762 
1763 


05/31/72 
I 
COLON 370 
COMFLG 2200 
COMMA 320 
cOmSTOQ 2270 
CONTX 230 
COR 880 
CORCPY 6500 
CORMAX 919 
CPAPER 2840 
CP ARAM 599 
CR 220 
CRCATA 930 
CRCAT4 1190 
CRCOVR 1499 
CRCVR4 4560 
CRCVRS 4590 
CRCVR6 1690 
CSPL 3510 
CSwP 3480 
CTBFR 3600 
CTBIN 3649 
CTEMPQ 4630 
CYEMPY 4640 
CTEMP2 4650 
CTEMPS 4660 
CTEMP4 4679 
CYEmMPS 1680 
CTEMP6 1690 
CTEMP7 4700 
CTEMPS 41710 
CTEMP9 4720 
CTFLG 3650 
CTL 810 
CTNAM 3660 
D PC 2120 
D BCA 2370 
D DA 2360 
D FDA 2440 
dD LOC 2110 
D ACSW 4860 
D BALY 2390 
D BLEN 2380 
D BMAX 2420 
D BMIN 2400 
D BPTR 2430 
D FMAX 2489 
D FMIN 2460 
D MASK 2150 
D MFDA 2450 
DADRSW 2070 
DAPO 4590 
DAPY 4600 


01504304 


2210 
22190 


2280 
820 


3430 
960 
2250 
2790 
910 


4320 
3730 
4520 
4620 
1640 
3520 
3490 
3630 
3650 


3660 


2150 
2380 
2370 
2450 
2420 


2400 
2390 
2430 
2410 
2440 
2490 
2470 
2460 
2460 
2080 
4600 
4610 


PDP-9 MIN] TIME-SHARING SYSTEM INITIALIZATION PROGRAM 


6530 
2620 
4420 
2420 
6280 
4670 
3780 


3640 
3679 


CROSS REFERENCE TABLE 


7260 


2870 


6370 


4250 


2890 


7500 


49890 


2940 2920 2930 


7620 9689 1170 1240 


4999 


1410 


1540 


1580 


PAGE 


1660 


67 


INT--]NT 


05/31/72 


DTEMPS 
DTEMP6 


01104804 


4130 
2270 
2270 
2060 
8950 


2090 
100 
400 

4590 

4620 

2350 

2450 

2480 

2690 

2150 


4370 
4180 
2660 


3840 
4170 


4350 
4400 
2110 
2140 
2420 
2480 
41440 
4150 
41460 
2360 


2100 
2190 
2200 
2070 
2170 
4630 
2670 


POP-9 MIN] TIME-SHARING SYSTEM INITIALIZATION PROGRAM 


120 
100 


8660 
47990 
4410 


3830 


4390 


CROSS REFERENCE TABLE 


100 120 160 120 100 
120 120 580 589 2680 


8670 8680 


5860 


120 
2680 


3210 


32140 


5330 


PAGE 68 


5330 


INT-- [NT 05/31/72 01504304 PDP-9 MINI TIME-SMARING SYSTEM INIFIALIZATION PROGRAM PAGE 69 


] CROSS REFERENCE TABLE 
2007 DTEMp7 1700 
2040 pTeEmPs 4710 
2044 DYEMPI 4720 
776/04 DT MAX 640 
740000 DVCMSK 600 880 950 1050 2770 
136047 EFILES 8150 7280 8790 
275 EQUAL 29190 
244 EXCLAM 260 
5 FCBLEN 570 3190 4290 1970 
602 FGET 3950 3960 
12060 FORMAT 2040 2390 2420 2610 2710 
1704 FROA 4410 4420 
17009 FRDA 44090 4410 
1702 FRLEN 4420 4430 
1703 FRSTA 4430 4449 
2 FUDGE 3190 3200 
135$1 GNAME6 2410 2360 
276 GREAT 2930 
476257 GRO 870 
4 HDRLEN 58) 
100 1 BUF 6020 8200 
12423 1 LEN 6070 3070 3130 5630 6100 6160 6190 6200 
12597 ] Ovi 7300 7410 
13660 1 wWco 8660 4770 
13644 1 Wea 8670 4690 
13730 I ce 8680 4730 
13465 I YPO 8660 
13701 1 WPd 8670 
13715 1 WUPe 8680 
10009 ] BMAX 6030 4040 6130 6170 6260 6350 
190 I CLEN 8779 3550 
12425 1 COPL 6100 6400 
12424 1 COPY 6090 31470 5690 6120 6250 6330 
12465 | CORA 6510 6550 
12472 1 CRCP 6600 6540 6770 6889 
12623 1 FILL 7840 3610 3830 3850 3870 7920 
12424 I INDA 6050 2720 3030 5520 $220 6270 
13744 1 LOAT 8810 2450 2370 5490 5210 
13753 1 ocaT 8780 
13733 1 PCAaT 8750 
12060 1 PURL 2940 31480 3220 
12134 1 PURZ 3190 2990 
12573 1 READ 7460 3500 7530 
12354 1 Sava 5440 5700 
12390 I SAVE 5439 3290 $300 3310 5460 
7640090 1 SPTR 8680 8400 8460 8520 8660 8660 8660 8660 8660 8660 8660 8660 8670 
8670 8670 8670 8670 8670 8670 8670 8680 8680 8680 8680 8680 
8680 8680 8680 
13670 1 TABO 8660 4770 
13704 1 TABL 8670 4690 
15720 I TAB2 8680 4730 
15723 I] ucat 8730 3410 


INT--INT 05/31/72 01704304 PDP=#9 MIN] TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 70 


! CROSS REFERENCE TABLE 
640000 I UDKO 8660 4770 
674000 1 UDK4 8670 4690 
730000 I UDK2 8680 4730 
12357 1 UNS4 5290 5330 5370 
122¢4 12000. 4849 
12456 ICOPL2 6199 6150 
12449 ICOPL 4 6210 6180 
12046 TINTOO 2410 2440 
12027 TINTO4L 2530 2480 
42145 LINTOS 3260 2960 
12143 LINTOS 3570 3600 
12124 TINT1O 3399 
12151 TINT50 3680 
12172 TINT55S 4030 4230 4340 
12174 LINT56 4060 4360 
12176 IINT60 4080 4100 
12205 LINT70 4190 4380 
12220 LINT72 4320 4250 
12222 LINT74 4350 4300 
12234 LINTSO 4450 4220 
12526 ILCATL 5150 3700 5170 5470 
1700 IMPLEN 990 
3170 JMPSTR 2550 7030 7110 
40 INDEX 490 
422020 INT 320 
13660 INTCAT 8630 3530 8770 
533 1O.IN 3940 3920 
525 10.07 3920 3930 
300000 1OBLK 2830 
1769 1ORS 4570 45809 
10§2 1OTO 4900 4910 
12422 LOUTDA 6060 2730 3100 5660 6240 6310 6360 
12633 ISETUP 7710 7780 
12009 ISTART 2220 2030 2040 8820 
15699 TTEMPy 8169 2759 2949 3569 3599 4050 4090 5359 5369 5789 5800 $829 5849 
5850 
13454 ITEMP2 8170 2400 2430 3050 3110 4160 4200 4270 4280 4330 
1$h52 LTEMPS 8189 
15653 1TEMP4 8199 
12404 JUINIT 5750 4690 4730 4770 5870 
1677 JUSTRT 8280 8530 8660 8670 8680 
42603 IWRITE 7580 3620 7650 
652 JMP 4110 4120 
100 JTLEN 960 4040 
1700 JTISTRT 959 949 960 1000 4400 4060 
16 KBLEN 3610 3630 3640 3680 3690 3730 3740 
40 KBNUM 3620 3670 3720 
76 LOLOK 3630 
107 LiBFR 3670 3680 3699 
127 LiBIN 36990 3700 3720 4290 5000 5010 
154 LIFLG 3700 3710 


125 LAILOK 3680 


Int -- pT 


133 
136 
196 
160 
194 
162 
472026 
2u00 
274 
Pd2 
15744 
2022 
40 

295 
422023 
422024 
232 
1004 
1000 
1754 
2016 
2000 
2nn4 
2002 
2003 
2004 
2005 
2006 
any? 
2040 
2naa 
472025 
2000 
1/42 
580 
120090 
1771 
PAS 
623 
702 
703 
794 
795 
574696 
13642 
575600 
12587 
17/73 
700 
1090 
2033 
2054 


05/31/72 


PLOSAV 
P4L1iSAV 


3710 
3720 
3740 
3750 
3730 
3760 

39Q 
5040 
2920 

210 
2150 
4860 
3200 

330 

350 

360 
1980 
4929 
4889 
4530 
1820 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
4700 
1710 
1720 

370 
5080 
4670 
3930 
2030 
4660 

270 
3960 
4180 
4190 
4200 
4210 
2730 
8100 
2720 
7210 
4680 

940 

930 
4999 
2000 


01504504 


3730 
3750 
3760 


3770 
8090 


2440 


3610 


3820 
3840 


4890 
4540 
1830 


8980 


4689 
3940 
1700 
4670 


3970 
4190 
4200 
4210 


7280 


3450 
4690 


920 


2000 
2050 


PpP-9 MINI TIME-SHARING SYSTEM INITIALIZATION PROGRAM 


3740 
4330 


8120 
8130 


4690 


32350 
4690 


8760 


7340 
4460 


940 


CROSS REFERENCE TABLE 


5020 


4730 


3510 
4730 


8790 


4750 


3030 


4770 


4770 


4880 


4960 


PAGE 


71 


INT-~[NT 


05/31/72 


PACSAV 
PACSW 
PBFLAG 
PCSAVE 
PERJOD 
PFILES 
PFLAG 
PHO 
PH 
PHO 
PHANTO 
PHCRCA 
PHCRCP 
PHFLAG 
PHLEN 
PHSTOR 
PIDN2 
PIDON 
PINT 
PJOUT 
PLOR 
PLUS 
PMQSAV 
PMTR 
PQINT 
PPCSaV 
PPT 
PSCSAV 
PSTSAV 
PTP 
PTR 
PURLEN 
PYRNM 
PURSTR 
PUTIN 
RACS 
RCNT 
RCORE 
RDBLK 
RDTO 
RDT4 
RECOV 
RES 
RESCaT 
RESLEN 
RFLAG 
RPTP 
RPTR 
RSCO 
RSTRT 
sc 
SCOLON 


! 


1930 
1980 
3810 
1830 

340 
8070 
3770 
4260 
4300 
4340 
2780 
6850 
6840 
2280 
2640 
4920 
3850 
3840 
4890 
3860 

400 

3190 
1940 

380 

35) 
4950 

690 
4970 
4969 

710 

700 
4010 
4700 
2569 
3949 
3440 
3399 
3450 
4910 
3429 
3430 

4790 

330 
3470 

920 
3799 
3780 
3800 
3820 
47190 
4540 

380 


01304804 


1940 
1990 
3820 
1840 

350 
8740 
3780 
4270 
4310 
4350 


7430 
3440 
2330 
8480 
1930 
3860 
3850 
4900 
3870 


1950 


1460 
1960 
2860 
1980 
1970 
2900 
2880 


4710 
999 
3950 


4920 


1530 
3699 
3489 


3800 
3790 
3810 
3830 
4480 
4550 


PDP-9 MIN] TIME~SHARING SYSTEM INITIALIZATION PROGRAM 


8760 


8660 
8670 
8680 


6870 
8660 


1010 


2950 


CROSS REFERENCE FABLE 


8660 8670 8670 8680 8680 


2560 7030 7050 7110 


2950 


INT--{NT 05/31/72 01504304 PDP-9 MINI TIME-SHARING SYSTEM INITIALIZATION PROGRAM PAGE 73 


1 CROSS REFERENCE TABLE 
640100 SCRSTR 2670 4450 4170 6299 
2net gCSAVE 1850 1860 
243 SHARP 2890 
257 SLASH 360 2350 
240 SPACE 250 2690 
$47 SPCOD 5410 
422122 SPL 430 3860 8140 
1000 SPLST 4960 
777400 SPMSk 5390 
292 STAR 300 
2020 STSAVE 1840 1850 
335 SWAP 388Q 3899 
556 SWAP 1 3890 3900 
5A0 SWAPS 3900 3910 
100 SWCAT 475] 4760 3510 
1093 SWCLK 4780 4790 
1004 SWERR 4799 4800 
1007 SWMP 1 4820 4830 
1010 SWMP2 4830 4840 
1002 SWMTR 4770 4780 5070 
1011 SWOPR 4840 
422022 SWP 340 3490 3610 3800 8110 
1004 SWPPR 4760 4779 
40 SWPS 3460 3470 
1095 SWSPL 4800 4810 
1006 SXSPL 4810 4820 
1300 SYSBAS 2800 2810 6670 7010 7890 
41300 SYSDA 2810 
177385 SYSDEV 530 
445320 SyYSDSK 2130 2500 
13697 SYSDVC 8210 2540 2710 
1777 SYSMAX 2820 
12760 Y T1 569 1280 1400 1710 1810 1990 2050 2080 2090 2110 2120 2130 2290 
2460 
42764 T T2 570 1180 1260 1480 
12773 YT ING 780 930 1020 1050 
130904 Ty JN4 840 
42767 YT [Nk 740 990 4010 
120 Y STD 480 490 
12756 7 BEND 540 860 
12757 Y BPTR 559 750 850 880 900 950 1000 1040 2590 2600 2760 2770 
12762 T CHAR 580 2610 
13270 T CRLF 3320 980 3410 
13253 T DLMR 3130 2980 3070 
152704 T FGET 2580 4210 1530 2200 2620 2680 
13194 T SIxX2 2030 2440 
15147 YT S}x5 2190 2030 2060 2100 2250 
13145 Y SIXx9 2160 2220 
15020 TiCcHaR 1000 810 
13046 TALINE 980 830 
190  yABLEN 2630 2640 8280 8540 8660 8660 8670 8670 8680 8680 
17500 TAPIN 4590 3759 6300 7520 1000 


INT--[NY 


17502 
124356 
43239 
12/64 
1$256 
12763 
2090 
2001 
20k2 
2913 
2914 
2062 
ZING 
2104 
2105 
2106 
2007 
2040 
2041 
13230 
12765 
15°31 
15297 
13032 
13756 
15065 
13073 
15924 
1$0@6 
15100 
13110 
135077 
646000 
13654 
346 
345 
15160 
13167 
151¢3 
13156 
2000 
2001 
2002 
20903 
2004 
2095 
2006 
2007 
2040 
2041 
14262 
6 


05/31/72 


TAPOT 
TBUFFR 
TCHRID 
TCOUNT 
TDIGIT 
TDLMTR 
TEMPO 
TEMP 
TEMP1O 
TEMP14 
TEMP42 
TEMPo 
TEMP3 
TEMP 4 
TEMPS 
TEMP6 
TEMP7 
TEMPS 
TEMPS 
TFGET9 
TINLIN 
TINTYN 
TLETTR 
TNYyM20 
TNUM26 
TNUM27 
TNUM28 
TNUM29 


TTEMPS 
TTEMP4 
TTEMPS 
TTEMP6 
TTEMP7 
TTEMPS 
TTEMPS 
TTTYOT 
TTYCLK 


! 


01704804 


6390 

740 
1220 

760 
3010 

770 
1640 
1650 
1740 
4750 
1800 
1660 
1670 
1680 
4690 
1700 
1710 
1720 
1730 


960 
1190 
3110 
4430 
1230 
£470 
4550 
4520 
1200 


4620 
4850 
2650 
6210 


2360 
2330 
2010 
4840 


1800 
5480 


PDP-9 MINI TIME-SHARING SYSTEM INITIALIZATION PROGRAM 


7640 

940 
1540 
2650 
3040 
3140 


1240 


6230 


2340 
2020 
23500 


2450 


CROSS REFERENCE TABLE 


14350 


2210 


2200 


2720 


1500 


6290 


2350 
2170 
2320 


2959 


2710 


2340 


2740 


1360 


6340 


2470 
1610 
2500 


$130 


3150 3170 3180 


1580 1610 1620 


6380 


2180 2320 2600 
1560 1590 3220 


3190 3290 3340 


3200 


2410 


3500 


3360 


3380 
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! 


3 TTYNUM 3140 
lo TTYSPD 3150 31790 
* 246386 TWORDB 479 2510 
1980 
1774 TYPE 469) 4709 
1706 UCORE 4630 4649 
1767 YDISK 4640 4650 
15654 UFILES 8040 2600 
12336 UNSAVE 5280 2620 

3356 YPARR 2940 
46 USO 42590 4250 
125 US1 4290 4300 
154 ys2 433) 4340 

0 USER 2790 
3 USERS 2850 3200 
14000 USLEN 980 2640 
2045 USTORE 1800 1810 
75 uTo 4280 8660 
124 uta 4320 B670 
153 uT2 4360 8680 
1704 UTEMO 4440 4450 
1705 yTems 4450 4460 
1706 UTEM2 4460 4470 
1707 UTEM3 4470 4489 
17%k0 UTEM4 4489 4490 
1744 UTEMS 4499 4500 
1742 UTEM6 4500 4510 
1730 VALID 4650 4660 

47777 VFLAG 480 
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CROSS REFERENCE TABLE 


5169 5530 6630 6950 1510 1330 1350 1410 
2160 2660 2670 1889 1930 2280 2570 2430 


4690 4730 4770 
4690 4730 4770 
3270 3390 8740 
2630 2640 5310 


4280 4770 8660 


4320 4690 8670 
4360 4730 8680 


8420 8660 8660 8670 8670 8680 8680 


1510 
2750 


1590 
2850 


PAGE 


1600 
3160 
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INT--]NT 


05/31/72 


! 


5630 
5640 
5650 
5660 
5680 
1210 
1190 
17990 
8450 
514) 
8390 
8510 


014041304 


1200 


5270 
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430 


UNDEFINED SYMBOLS 


610 


PAGE 
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INT--{NT 05/31/72 
1 
CHAR 1380 
CHROT 1540 
COUNT 1460 
CRLF 1300 
DELIM 1420 
EMESS 1750 
ENTER 920 
FORMAT 1060 
INTY 4530 
INTUS 8530 
LINE 1100 
LOOP 960 
MESS 1620 
MESSR 4520 
MPOFF 5430 
NEG 4010 
NMESS 1670 
NUM 1260 
OCT 4890 
ocTz 1840 
START 1109 
SWAP 5610 
WORD 11449 
WORD1 1180 
WORD2 1220 


01:04%04 


2200 


5150 

720 
2840 
2390 
4690 
8660 
1600 


4849 
4849 


2410 


1610 
5530 
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2340 


5280 
1170 


2420 
4730 
8670 


1560 
1560 


2180 
6630 


MACRO CROSS REFERENCE TABLE 


5430 
1660 


2610 
4770 
8680 


1590 
1599 


2320 
6950 


5750 
1970 


2710 


3220 


3220 


2600 
1930 


6500 
2190 


3500 
3500 


22890 


6600 6840 7210 
2280 2380 2580 


2370 2750 2850 


7460 
2640 


3160 


7580 
2930 


7710 
3240 
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Setetatagaet#aeGerteseseetesee geese eeathans 
SHototataegeteGr Het state tseneerancceatens 


es ee 
#s PDP-9 MINI TIME-SHARING SYSTEM ae 
He RESIDENT PROGRAM ee 
pYSStRES o* 
He MTSS3B01 ae 
a4 oe 


Hotaetateges@ageteetacavesseh*etecesaetane 
HoH ataetaeg,eGeGc Hest HegsneseeGesecceetage 
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100 »TUTLe PDP-9 MIN] TIME~SHARING SYSTEM RESEDENT EXECUTIVE PROGRAM 
110 ~NAME RES--601 

120 ABS 

130 »PMC ON 

140 sINSRT DEF INS 

100 ,IFUND DEFINS 


DEF INS C5/31/72 01504808 PDP-9 MIN] TIME*SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 2 


5720 »LIST = ON 
5730 ,END 
150 
160 
470 
180 
190 
200 ® 
210 * THE PDP-9 MIN] TIMEeSHARING SYSTEM RESIDENT PRAGRAM EQNTAINS A NUMBER oF 
220 a SOMEWHAT DISJOINT ITEMS, MAINLY IT CONTAINS? 
230 ® 
240 * 1) RESIDENT STORAGES 
250 « A) TEMPORARY STORAGE USED BY THE RESIDENT PROGRAM ITSELF 
269 ® B) A SET OF RESIDENT PARAMETERS FOR EACH TELETYPE 
270 * C) A TELETYPS 170 BUFFER FOR EACH TELETYPE 
280 f D) STORAGE Yo REEORD ALLOCATION OF VaRTOUS RESOURCES 
290 * E) FLAGS GIV"NG INFORMATION ON Tee STATE OF THE SYSTEM 
300 * F) SOFTWARE*{MAGE FLAGS FOR CERTAIN HARDWARE DEVICES (E,G, PAPER TAPE PUNCH) 
ph * G) CATALOG INFORMATION TO RETRIEVE THE SWAPPER OVERLAY 
* 
336 * 2) ROUTINES TO WANDLE TELETYPE INPUT aND OUTPUT 
340 & 
350 ® 3) ROUTINES TO SERVICE OTHER PROGRAM ENTERRUPTS, INCLUDING THE CLOCK AND UNWANTED INTERRUPTS 
360 * 
uA * 4) A PHYSICAL DISK WANDLG& 
380 a 
390 * 5) a ROUTINE TO SBRVICE CaL INSTRUCTION ERRORS gND TO PREVENT Cat 
400 * CINDIRECT) FROM CRASHING TNE SYSTEM, 
410 * 
420 * ALSO IN THIS LISTING JS a COMPLETE LISTING OF THE CONTENTS OF USER JOB TABLES 
430 * AND PHANTOM JOB TABLES, 
440 * 


RES---RO4 
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000000 


000000 


600000 


000001 


000001 


600165 


450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
559 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 


024504408 


se = & 


ses eee ee # fe &€s ee 


PDP-+9 MINI TIME*SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 
INITIALIZE LOCATIONS 0°37 


eSTITK INITIALIZE LOCATIONS 0°37 
» MEAD R 


LOCATIONS 0*37 CONTAIN CUMP .> UNTIL SOMETMING ELSE [S PUT THERE, 
THIS JS PURELY AS A DEBUGGING AID TO TRAP MISCELLANEOUS TRANSFERS, 


»LOC 0 

,OET SAVE,CFF 
» OUP 1,40 

MP 


Det RESTORE 


NORMALLY WHEN A USER'S PROGRAM IS RUNNING, LOCATIONS 0 & 10°17 CONTAIN 
WHAT ME THINKS THEY DO, THIS JS 70 PERMIT WIS INDIRECT REFERENCES 
THROUGH HKHI]S AULTO-[NDEX REGISTERS 

AND LOCATION C TO WORK PROPERLY, 


LOCATJONS 1-7 @ 20°37 ARE THEREFORE AVAILABLE FOR SYSTEM USE, 


aA PROGRAM INTERRUPT HAS OCCURRED -e S30 SERVICE I? 


LOC 1 
JMP PISVC 


RES-~poa O5/31/7%2 01504408 PDP=-9 MIN] TIME=SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 4 


R RESOURCE ALLOCATION AND TEMPORARY STORAGE 
690 eSTITL RESOURCE ALLOCATION AND YEMPORARY STORAGE 
700 « 
710 * TEMPORARY VARIABLES STORAGE AND CONTROL LINE ALLOCATION RECORD 
720 « 
000002 000000 730 3124 ,DSA 
000003 Go00000 740 31M22 ,DSA 
000004 000000 750 3L0™ ,DSA 
Go0005 Go0000 760 3ac ,DSA 
000006 F00000 770 CNTRL DSA 
780 
790 * 
800 * CURRENTLY CaL!S ARE NOT pERMITTED AT ALL, TweRE 3S a SPECIAL JOT INSTRUCTION 
810 r PROVISION FOR SYSTEM SERVICES, ALL CAL'S AWTOMATIC ERROR MESSAGE PRINTOUT 
820 * (PROVIDED BY YWE USER'S MEMORY PROVECT OVERLAY), 
830 * 
840 ® EVENTUALLY USER CAL'S SHOULD BE HANDLED MUCH LIKE USR PI] ee 
850 « BASICALLY DO AN XCT OF USER LOCATION 24, SYSTEM CAL'S ARE 
860 ) AN GRROR ANYWAY «~ THE SYSTEM CURRENTLY BOBS NOT USE ANY CAL!S, 
870 r) 
000020 880 »bOC 20 
Oo09z0 000020 890 20 LOCATION 20 MUST ALWAYS CONTAIN AN ADDRESS FIELD OF 20 AS CAL,X PROTECTION 
000021 200020 900 Lac 20 LOAD THE YSER'S PC 
Oo0022 040000 910 pac 0 AND SaVe JY FOR THE ERROR MESSAGE ROUTINE 
Oo0023 760020 920 LAW 20 RELOAD THE CAL,X PROTECTION 
000024 040020 930 Dac 20 AND S@T {7 
000025 600342 pe ume ERRCAL GO PRINT THE ERROR MESSAGE 
950 % 
960 . TEMPORARY VARIABLE STORAGE 
970 . 
000026 000000 980 +310 108A 
Qo00#7 f00000 990 344 DSA 
4000 * 
4010 * LOCATIONS 3937 ARE THE DATA GHANNEL CELLS (30-34 FOR DECTAPE AND 
1020 * 36037 FOR THE DISK -- 32-35 ARE CURRENTLY WNUSED), CONSEQUENTLY 
1030 * 30-31 & 36°37 MUST BE KEPT FREE, BUT 32-35 ARE AVAILABLE FOR 
4040 « SYSTEM USE, 
4050 o) . 
000090 1060 » LOC 30 
000080 776031 1070 #20004. +1 DEGTARE WORD COUNT $@ AS NOT TO DISTURB A DECTAPE READ@JIN 
1080 * 
1090 * TABLE OF AVAILABLE RESGURCRS WHICH CAN ONLY BE ASSIGNED TO ONG 
1100 « USER aT A TIME, EACH RESOURCE'S ENTRY 3§ ZERQ IF TwG RESOURCE IS 
4110 * CURRENTLY UNASSIGNED, AND CONTAINS A POINTER TO THE USER'S RESIDENT 
1120 ® PARAMETERS IF IT 1S aSSIGNED, 
1130 « 
0000382 4140 2L0C 32 
000032 000000 1150 ROTO OSA DECTAPE HANDLER 
000033 000000 1160 ROTL DSA OTHER DECTAPE HANDLER 
000034 00000 41170 RACS DSA ACCUMULATOR SWITCHES 
180 * 
aie0 « RCORE CONTAINS THE STATYS OF NONSPROTECTED CORE, JT CONTAINS 


4200 * fHE USER NUMBER OF THE CURRENTLY ACTIVE JO@®, IF THERE IS ONE, 


RES--BUy 


000035 


05/34/72 


R 


000000 


000040 


000040 
000061 
000042 
000043 


000044 
000045 
000046 
000047 


000050 
000051 
000082 
000053 
000054 
000055 
000056 
000057 


000000 
000777 
777100 
000002 


000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000009 
000000 
0009000 


1210 
1220 
1230 
1240 
1250 
1269 
1270 
1280 
1290 
1300 
1310 
4320 
1330 
1340 
4350 
4360 
4370 
43890 
4390 
4400 
4410 
4420 
4430 
1440 
1450 
1460 
1470 
4480 
41490 
4500 
4510 
4520 
4530 


01404308 


CORE 


PDP-9 MIN] TIME~SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 5 
RESOURCE ALLOCATION AND TEMPORARY STORAGE 

ELSE IT Ig ZERO, iF RCORE !§ NONwZERO, If Is ASSUMED THERE 

{S IN CORE a MEMORY PROTECTION OVERLAY TO @0 WITH THE ACTIVE 

JOB, JIN THIS CASE THE EXEC WILL FEEL FREB TO JUMP TO THE OVERLAY 

AREA TO ACCESS ROJTINES (E.G. TO CHECK TWE NEED TO GENERATE A 

USER PROGRAM INTERRUPT, ) 


OSA NON«PROTECTED CORE STATUS -= gs NO ACTIVE USERs ELSE CONTAINS USER NUMBER 


RESIDENT GATALOG -- ALL OVERALY FILES ARE CATALOGED WERE TO MININIZE SWAPpER USAGE, 


»LOC 49 

,DSA PHYSICAL DISK ADDRESS OF THE OVERLAY 
SOVSTRT-1 OVERLAY FILE CORE ADDRESS -1 

eSOVLEN OVERLAY FILE (TWO'S COMPLEMENT) WORD COUNT 
SDKRD DISK READ COMMAND 

OSA SWAPPER PHYSICAL D&SK ADDRESS 

,O3A MEMORY PROTECTION #1 PHYSICAL DISK ADDRESS 
DSA MEMORY PROTECTION #2 PHYSICAL DISK ADDRESS 
,DSA SPECTAL [OT HANDLER PHYSICAL DISK ADDRESS 


TEMPORARY VARIABL2 SYQRAGE 


RES--BO4 
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000060 


000076 
000077 
000100 
000101 
000102 


000103 
000104 
000105 
000106 


009000 
777770 
000060 
000060 
009000 


000060 

p08 
0040 

744000 


000107 


000125 
000126 
000127 
006130 
000131 
000132 
000133 
000134 
000135 


000000 
777770 
000107 
000107 
400000 
000107 
000125 
704006 
704006 


1540 
4550 
14560 
1579 
4580 
4590 
1600 
1610 
1620 
4630 
4640 
4650 
4660 
4670 
1680 
4690 
1700 
4710 
4720 
1730 
4740 
4750 
1760 
4770 
1780 
1790 
4800 
1810 
1820 
4830 
4640 
1850 
1860 
4870 
1880 
4899 
49090 
4910 
4920 
1939 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 


01304:08 


*®eos 8 eee ee eee ee be & Se & 


CJ 
CTBFR 
LOLOK 


CYBIN 


CTFLG 


CTNAM 


LiBFR 
LildK 


LiBdINn 
biFiG 


bLNAM 


PDP-9 MIN] TIME*SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM 


PAGE 6 


TELETYPE BUFFERS AND CONSTANTS 


>STITL 


TELETYPE BUFFERS AND CONSTANTS 


KEYBOARD BUFFERS MUST BE OF A CERTAIN MINIMUM SIZE (SEE DEFINITIONS), 
WOWEVER, THE LARGER THEY CAN BE, THE BETTER, TELERPRINTER 1/0 ROADBLOCK 
OCCURS WHEN THE BUFFER IS FULL OF OUTPUT aNn JS NOY RELJEVED UNTIL THERE ARE 
ONLY ENOUGH CHARACTERS REMAINING IN THE BUFFER TO COVER THE WORST CASE 
REMAINING TIME UNTIL THE PROGRAM COULD GET BACK INTO CORE TO PUT MORE 

OUTPUT IN THE BUFFER, THUS THE TE, EPRINTER 1S KEPT CONTINUALLY BUSY PRINTING 
AS LONG AS THE PROGRAM HAS OUTPUT FO PRINT, 


@eHHGWARNINGewaees CYNAM (@ LINAM & L2NAM) SeRVE MANY FUNCTIONS, 
THEY ARE OFTEN REFERRED TO AS S3TEM4. THEY SERVE As PHE NAME 


QF THE USER'S CORE-IMAGE FILE ON THE DISK, WITH vA (4 


ADDED 10 


THEM THEY SERVE THE SAME PURPOSE FOR THEIR OWN PHANTOM PROGRAMS, 
THEY ARE POINTERS NOT ONLY TO THE END OF TAEIR TELETYPE BUFFERS 
#4, BUT ALSO FO THE START OF THE RESIDENT PARAMETER L1STo1, 

WITH ONE QF YHEM IN THE aC A <JMS SJO,IND> ENSTRUGTION WILL SET 
UP THAT USER'S 1/0 PARAMETERS IN THE TEMPORARY VARIABLES 

USED FOR EXECUTIVE RE=ENTRANCE. 


1 WOULDN'Y BE SURPRISED IF THERE ARE ALSO OTWER FUNCTIONS I aM FORGETTING, 


eBLOCK SKBLEN 
SA 


CTBFR 
vTBIN@2 
8 

8x? 
»BLOCK SKBLEN 
»DSA 

oSKBNUM 

Li BFR 

Li BFR 

100000 

LiBFR 

LIBIN~2 

FLSLT1 

TLSLTL 


CONSOLE TELETYPE MONITOR REQUEST 
NUMBER OF PARAMETERS FOLLOWING 
BI’ 0 8 COUNT ALREADY ING BIFS 5-17 = ACTIVE ADDRESS 
BIT 0 8 CQUNT ALREADY OUTS BITS 5-17 # ACTIVE ADDRESS 
SOFTWARE TELETYPE {7/0 FLAG, BITS 
Ot OUFPUT"IN-PROGRESS FLAG 
1! TELEPRINTER 1/0 ROADBLOCKED FLAG 
2} KEYBOARD J70 ROADBLOGKED FLAG 
3t KEYBOARD FLaa 
4t TELEPRINTER FLAG 
51 PI INTERRUPT PENDING 
6 KEYBOARD CRARACTER GCHOED FLAG (O8YES 
7t 170 BUFFER TYPE ¢€ OSTNPUT 20UTPUT) 
10-17} KEYBOARD BUFFER 
(CONSTANT) START OF CONTROL FELETYPE BUFFER 
(CONSTANT) END OF CONSOLE TELETYPE BUFFER ef -~ aLSO SERVES aS USER IDENTITY 
(CONSTANT) PRINT [WSTRUCTION FOR CONSOLE TELETYPE 
CONSOLE TELETYPE WELL NO? NEED TO ECHO ANY CHARACTERS BY SOFTWARE 


12NEEDS AN ECHO) 


PARAMETER LIST SAMB® aS FOR CT ABOVE 
START IN KEYBOARD £70 ROADBLOCK CONDITION 


RES--B04 


05/31/72 
R 


000186 


000154 
000155 
000156 
000157 
000160 
000161 
000162 
000163 
000164 


000000 
777779 
000136 
000136 
400000 
000136 
000154 
704026 
704026 


2060 
2070 
2080 
2090 
2100 
21190 
2120 
214350 
2140 
21590 
2160 


01304408 


LesrR 
WeLOK 


L2BIN 
L@FuG 


W2Nam 
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TELETYPE BLFFERS AND CONSTANTS 


»B8LOCK SKBLEN 
,OSA 

a $K—ONUM 

28FR 

L2Srer 

100000 

2BFR 

W2BIN=2 

FLSLT2 

TLSLT2 
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RES--B04 05/31/72 
R 
000165 
000165 0640005 
000166 2000140 
000167 040026 
000479 200043 
000171 0640027 
000172 200665 
000273 040303 
000174 704713 
000175 741000 
000176 601000 
000177 700001 
000290 7414000 
000201 600347 
000202 700403 
000263 741000 
000204 600347 


2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2500 
2519 
2320 
23530 
2540 
2350 
2360 
2379 
23580 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 


0197041508 


wees & 


Sve 
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PDP-9 MINI TIME-SHARING SYSTEM RESIDENT EXECUTIVE pROGRAM pAGE 8 
PROGRAM INTERRUPT SYSTEm ENTRANCE ROUTINE 

STITL PROGRAM INTERRUPT SYSTEM ENTRANCE ROUTINE 

WHEN A PROGRAM INTERRUPT QECURS, CONTROL JS ALWAYS TRANSFERRED TO HERE, 

SAVE REGISTERS AC, 10. AND 141 ON [INTERRUPTS ROUTINES USING MQ OR SC MUST SaVE THEIR OWN, 


Dac SAC 
LAC 10 
Dac 310 
Lace 14 
Dac 311 


WHEN EXIT FROM SERVICING THIS PROGRAM INTERRUPT FINALLY OCCURS, 
17? WILL BE WITH THE SEQUENCE} 

D8K 

JMP CUSER CORE> 
UNLESS THE [NTERRUPT WaS CAUSED BY THE USER TRYING TO DO a DBR 
INSTRUCTION, IF WE HAS DONE A LEGAL OBR INSTRUCTION fHE EXIT 
SEQUENCE WILL HAVE THE pBK REPLACER BY A DBR, SO THAT THe RESTORE 
EFFECT WILL OCCUR WHEN TwE YSER EXPECTS {ty Fo, 
IN GITHER CaS& THE STATE OF THE MACHINE WILL BE RESORED BY 
BXECUTIVE SOFTWARE IMMEDIATELY PRIOR TO EXET, 


IF TWe USER TRIED TO DO A DBR INSTRUCTION, TWE MEMORY PROTECT 
ROUTINES WILL GIVir AN ERROR MESSAGE IF IT CAN HURT Twe SYSTEM, 
(CURRENTLY TWEY REQUIRE a BBR TO BE FOLLOWED BY A UMP (INDIRECT) 
THROUGH A WORD WITH THE MEMORY PROTECT BIT ON.) 


THE GFFECT oF ALL OF THIS 38 To PERMIT A REASONABLE AMQUNT oF 
TRANSPARENCY YO BG PRESERVED FOR YSER PROGRAMS RUNNING WITH 

THE PROGRAM INTERRUPT SYSTEM ON, WHILE NOY ALLOWING AN UNWANTED 
RESTORE FUNCTION TO BE LEFY HANGING AROUND, IF ONE WERE LEFT, 

A NOT*VERY=CLEVER USER COULD CRASH THE SYSTEM, 


LAG DOK 
Dat PyOUT SET THE STANDARD EXIT -- PROGRAM WILL RESTORE THE LINK 


NOW FIND QUT WHAT CAUSED TWE INTERRUPT 

IF THE INTERRUPT WAS CAUSED BY A WARDWARE ENTERRUPY FLAG SETTING, 
CLEAR IT AND TRANSFER ¥0 A ROUTING TO SEY THE CORRESPONDING SOFTWARE 
PLAG AND TEST FOR A USER PROGRAM INTERRUPT, 


MPSKIMPCVe10 

SKP 

JMP SMPST MEMORY PROTECTION VIGLATION 
CLSF 

SKP 

JMP CLK SERVICE a CLOCK {NVERRUPT 
TSFITCF 

SKP 

JMP CTOUT CONSOLE TELEPRINTER 


RES --B04 


000205 
000206 
000207 
000240 
000241 
00022 
000243 
0002a4 
000245 
000296 
000247 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000297 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000240 
000241 
000242 
00900243 
000244 
000245 


05/31/72 
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7003143 
744000 
600346 
704143 
741000 
600354 
704433 
744000 
600354 
704003 
744000 
600352 
704023 
744000 
600355 
700208 
600234 
400246 
000000 
000000 
700103 
600236 
100246 
000000 
000000 
704408 
0024 
0024 
000000 
000000 
707004 
600267 
600253 


000246 


900246 


000247 
000250 
000251 
000252 


740040 


460246 
440246 
220246 
600414 


2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2779 
2780 
2790 
2800 
2610 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2oee 
2960 
2970 
2989 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 


3080 
3090 
3100 
3110 


01404708 


PFLAG 
ReTP 


RFL AG 
RPTR 


PaF.G 
RSCO 


sess 8s 


FLAG 
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PROGRAM IVTERRUPT SYSTEM ENTRANCE ROUTINE 


KSFIKRB 

SKP 

yMP CYKBD 
KSFLTIIKRBLT1 
SKP 

JMP LakBp 
KSPLT2IKRBLT2 
SKP 

JMP LakeDd 
FSFLTAITCRLTI 
SKA 

whP LqaOurT 
FSFLT2:TCFLT2 
SKP 

JmMP L20uT 
PSFIPCF 

JMR 104 
Ms FLAG 
OSA 

DSA 

RSFYRCF 

UMP 24 
JMS FLAG 
t DSA 

, DSA 

SPB}CRB 

JMP 1o4 
JMs FLAG 
, OSA 

DSA 

DSSF 

JMP PISV2 
JMP DKSVC 


CONSOLE KEYBOARD 


LT#1 KEYBOARD 


LT#2 KEYBOARD 


LT#4 TELEPRINTER 


LT#@2 TELEPRINTER 


SERVICE THE PAPER TAPE PUNCH INTERRUPT 
SOFTWARE PAPER TAPE RUNCH FLAG 
PAPER TAPE PUNGH ALLOCATION WORD 


SERVICE THE PAPER TaPE READER INTERRUPT 
SOFTWARE PAPER TAPE READER FLAG 
PAPER TAPE READER ALLOCATION WORD 


SERVICE GRAPHICS [TE PUSHBUTTONS INTERRUPT 
SOFTWARE @PUSHBUTTONS FLAG 
GRAPHICS If ALLOCATION WORD 


1T JS AN UNKNOWN [WTERRUPT 
SERVICE a DISK INTERRUPT 


RECORD THE HARDWARE FLaG IN FHE CORRESPONDING SOFTWARE FLAG, 


THE SKIP CHAIN WILL HAVE 


ALREADY CLEARED THE HARDWARE FLAG, 


THEN TEST FOR A USER PROGRAM INTERRUPT, 


ENTER FLAG 


PMC SAVE,QN 


XX 

PMC RESTORE 
1 NX FLAG.X 
{NX FLAG 
LAG FLAG.X 
JMP PTS? 


SAVE YHE yYPE OF INTERRUPT MERE 


SEF THE SONTWARE FLAG 

BUMP THE TABLE POIRATER 

LOAD THE ALLOCATION WORD 

SEE WHETHER OR NOT TO GENERATE A USER PROGRAM INTERRUPT 


RES--BO04d 


R 


000253 140266 
000254 707272 
000255 044765 
000256 4414764 
000257 707923 
000260 044762 
000261 707242 


000262 200316 
000263 744200 
000264 600270 
000265 600327 


000266 600000 


000267 
000267 703302 


000270 200026 
000271 040010 
000272 200027 
000273 040041 


000274 200000 
000275 500663 
000276 340664 
000277 040304 
OoU300 400305 
000301 703742 
OoUSH2 700042 
OoU303 740040 
000304 740040 
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3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3500 
3310 
3320 
3330 
3340 
3550 
3360 
3570 
33580 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3499 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 


01504508 


KSVG 
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PDP-9 MINI TIME=SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 10 
PROGRAM INTERRUPT SYSTEM ENTRANCE ROUTINE 
,EJECT 


AN JNTERRUPT FROM A USER DISk OPERATION waS BEEN RECEIVED, 
SAVE ALL QF HIS INFORMATION, AND CLEAR THE DISK FOR POSSIBLE SYSTEM 


DISK USE, 

oP DKLOK CLEAR THE VSER-USING=DISK FLAG 

DSRS+10 

Dac DSTaT SAVE THE USER!S pISK STATUS REGISTER 

{NX DFLAG SET THE USER'S DISK FLAG 

DSCCYDRaL DISaBLE POSSIBLE DISK FREEZE TWROWN IN ON GENERgL PRINCIPLES 
Bac DaPo SAVE THE USER'S DISK REGISTER APO 

DSCD CLEAR THE STATYS RAGISTER AND DISK FLAG 


WE MAVE HAD THE DISK K@CKEB OUT FoR A WHILE, NOW, Sq SEE IF A Clack 
INTERRUPT OCCURRED IN PHE MEANTIME, 


LAC CLKLOK LOAD THE CLOCK INTERRUPT RECORD 

SNA SKIP JF THERE SAS BEEN ONE 

RET PIDON IF NONE, EXIT NORMALLY 

JMP CLKST IF THERE HAS BEEN ONG, DELIVER IY NOW 

DSA MINUS (SYSTEM-USING-DISK)s PLUS (USER@USING-DISK)} OR ZERO (DISK FREE) 


AN VNKNOWN INTERRUPT OCCURRED -- CLEAR REMAINING FLAGS AND IGNORE [7 


sre 
CaP GET A CLEAN START 


WE ARG DONE SERVICING THE LATEST PROGRAM INTERRUPT, NOW FIX THINGS Up 
AND R&TURN TO THE USER, 


RESTORE THE REGISTERS ON EXIT 


Lac 310 
Bac 10 
Lac 314 
pac 14 


SET Up THE ADDRESS, LINK AND MEMORY PROTECY FOR THE RETURN 


Ae 0 

AND ADRSS 

TaD JUMP 

DAC PIGO SEY UP RETURN (DIRECT) 

JmMs 3REST RESTORE LINK, USER LOCATION 0, AC, AND MEMORY PROTECT 
MPEV RETURN HERE IF MEMORY PROTECT BIT (BIT 2) WAS ON 

ION RETURN HERE Jr MEMORY PROTECT BIT (BIT 2) WAS O¢¢ 

xX DBK (UNLESS MEM PRO DAR INTERRUPT -- THEN DBR) 

xXx RETURN (DIRECT) 


RES--BO0y 05/31/72 01404308 POPe9 MIN] TIME=*SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 


R PROGRAM INTERRUPT SYSTEM ENTRANCE ROUTINE 

3640 * 

3650 * SUBROUTINE TO RES’ORE THE USER'S LINK, AC, AND LOCATION 9, 

3660 ® THE SUBROUTINE RETURNS To THE ENABLE USER MODE (MPEU) INSTRUCTION 

3670 ® ONLY IF USER MODE WAS ENABLED WHEN THE INTBRRUPT OCCURRED, 

3680 & OTHERWISE THAT INSTRUCTION IS SKIPPED, THIS SUBROUTINE IS 

3690 * NECESSARY TO CORRECTLY ACCOMPLISH THE EXIT BY THE SEQUENCE! 

3700 * D8K 

3710 * JMP “USER CORED 

3720 * 

000305 3739 SREST ENTER 
, PMC SAVE,ON 
Oo0305 740040 XX 
, PMC RESTORE 

000306 200000 3749 Lac 0 LOAD THE STATE OF THE MACHINE WHEN INTERRUPTED 
000307 742010 3750 RTL MOVE THE MEMORY PROTECT BIT FO AC(0) 
000340 740420 3760 SMA}RAR RESTORE THE CORRECT LINK FOR RETURN 
090341 440305 3770 1NX 3REST SET THE RETURN TO e2 FOR NO MEMORY PROTECTION ON 
000342 201713 3780 Lac 0 LOAD THE YSER'S LOCATION 0 
000343 040009 3790 Dac 0 RES7ORE fHE YSERtS LOCATION ZERO BEFORE RETURN 7O HIM 
000344 200005 3800 LAC SAC RESTORE THE USERIS ac 
000345 620305 3810 JMP SREST,X 


RES--BO04 05/31/72 014504108 PDP-9 MIN] TIME-SWARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 142 


R DEVICE INTERRUPT SERVICE ROUTINES 
3820 SSTITL DEVICE INTERRUPT SERVICE ROUTINES 
3830 
3840 e 
3850 = 
3860 * CLOCK SERVICE -~ WHEN THE CLOCK RUNS OUT, 
3870 & 1) SET CLKLOK TO RECORD THE FACT WE HAVE RECEIVED AN INTERRUPT 
3880 % 2) RESET THE CLOCK, THIS GUARANTEES AMOTWER CLOCK INTERRUPT, NO MATTER WHAT, 
3890 * 3) CHECK TO SEE IF THE DISK JS AVAILABLE. IF NOY, EXIT, 
3900 * 4) IF THE DISK IS AVAILABLE, FIND THE NEXT USER WHO IS FREE TO RUN 
394 ry (J.-E. IS NOT 170 ROADBLOCKED), 
3920 * 5) IF THIS 1S THE CURRENT USER, EXIT NORMALLY, 
3930 * 6) OTHERWISE CALL IN THE SWAPPER TO SWaP OUT THE CURRENT USER AND 
3949 « TQ SWAP IN THE NEXT USER DUE TO RUN, 
3950 ° »* 
000316 000000 3960 CLKLOK ,DSA 
000347 440316 3979 CLK {NX CLKLOK RECORD WE HAVE RECEIVED ANOTWER CLOCK INTERRUPT 
OnU320 «6740000 3980 NQP GENERAL PRINCIPLES -~ IN CaSE I? EVER DOES SKIP 
000321 700044 3999 CLON NEED THIS FO CLEAR THE FLAG, EVEN THOUGH THE CLOCK 1S NEVER TURNED OFF 
Gou3s22 777730 40090 LAW ~CLKMAX 
000323 040007 4010 pac 7 IN ANY CASE, RESET THE CLOCK 
000324 200266 4020 ac DKLOK 
000325 740200 4030 ZA SKIP IF THE SOPTWARE FLAG SAYS THE DISK I§ FREE 
000326 600270 4040 Re’ PJDON ELSE EXIT «= CAN'T pO ANYTHING ELSE HERE UNTIL THE DISK 1S FREE 
4050 
000327 121003 4060 CLXST yMS SRDBLK +X SE& WHO 1S THE NEXT NON-ROADBLOCKED USER 
000330 200055 4070 Lac 3TEM4 LoAD HIS USER NUMBER 
000331 341774 4080 TAD TYPE CONVERT TO A FILENAME 
000332 541772 4090 SaD NAME SKIP IF HE IS NOF ALREADY RUNNING 
800333 600270 4100 Ret PIDON SaME USER, SO JUST RESTART HIM 
000334 761003 4110 LAW $SWCLK THERE IS ANOTHER FREE USER, SO REQUEST a CLOCK SWaP 
4120 # 
arse * GET THE SWAPPER AND ENTER IT aT THE ADDRESS PASSED IN THE AC 
414 ® 
000335 040666 4150 SWAP pac DQ SET THE RETURN ADDRESS 
000336 200044 4160 SWAPS LAC CSWP 
000337 040040 4170 bac SWPS SET THE SWAPPER'S PHYSICAL DISK ADDRESS 
000340 760037 4180 SWAPZ LAW SWPS=4 SET A POINFER TQ THE CATALOG DATA FOR THE SWAPPER 
000341 600667 4190 JMP DO+4 GET THE SwaPPER 
4200 * 
4210 * CAL MUST BE A RESIDENT ERROR MESSAGE 
4220 * 
000342 760014 4230 ERRCAL LAW 12, 
000343 041706 4249 pac UTEM2 PaSS THE ERROR MESSAGE NUMBER TO THE ERROR ROYTINE 
00U344 764004 4250 LAW SSWERR 


000345 600335 4260 JMP SWAP CALL THE ERROR MESSAGE PROGRAM 


RES--BUy4 


05/31/72 
R 
000346 
000346 100357 
0003467 
000347 760076 
000350 600444 
000351 
000351 4100357 
00U352 760125 
000353 600444 
000354 
000354 400357 
000355 760154 
000356 600441 


4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4449 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
45869 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 


01404308 


zseeeseetse &8®et ee ee 8 & B&B SG 


PDP-9 MIN] TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM paGE 


KEYBOARD :NPUT ROUTINES 


»STTTL KEYBOARD -NPUT ROUTYNES 


THE FOLLOWING THREE LINES OF CODE FOR EACH TELETYPE 
WHICH ARE UNIQUE “O THEIR RESPECTIVE TELETYPES. THESE INSTRUCTIONS 
PERMIT aL, INPUT AND OUTPUT TO BE CARRIED ON BY COMMON ROUTINES, 


ON JNPUT, A JMS KHBDIN PROVIDES THE JNPUT ROUTINE WITH A POINTER TO 
THE TELETYPE'S OWN RESIDENT STORAGE, KBDIN RETRIEVES THIS BY AN 
XCT KBDINeX. KBDIN DOES NOT RETURN TO HERE -- THE JMS 139 MERELY 

TO PROVIDE a POINTER To THE CALLING TELETYPE, 


ON OUTPUT KBpOT IS ENTERED WITH THE TELETYpE'S UNIQUE POINTER TO 
1TS RESIDENT STORAGE ALREADY IN TWE ACCUMULATOR, 


NOTE THAT <--KBD> IS THE ENTRANCE FOR AN INTERRUPT FROM A TELETYPE 


KEYBOARD, WHILE €--OUT> 1S THE ENTRANCE FOR AN INTERRUPT FROM A 
TELETYPE TELEPRINIER, 


CONSOLE TELETYPE 
SERVICE INTERRUPTS FROM CONSOLE KEYBOARD 


JMS KBDIN PROCESS THE JNPUT 

Pak SERVICE INTERRUPTS FROM CONSOLE TELEPRIN’ER 
LAW CTBIN#2 IDENTIFY YOURSELF 

JMP KgeDOT PRINT THE NEXT CHARACTER, IF aNY 


FELETYPE #4 


oe | 


JMS KBDIN PROCESS THE JNPUT 
LAW LiBIN«2 USED AS SYSTEM JOB NUMBER 
JMP KBDOT 


TELETYPE #2 


JMS KBDIN 
AW L2BINw2 
JMP KBDOT 
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RES~--BOL 05/31/72 01304408 PDP-9 MIN] TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 144 


R ROTARY BUFFER CHARACTER INPUT/OUTPYT ROUTINES 
4700 »“STITL ROTARY BUFFER CHARACTER INPUT/OUTPHWT ROUTINES 
4720 
4730 * KBDIN HANDLES INPUT FROM ANY KEYBOARD, 
000357 4950 KADIN ENTER 


PMC SAVE,ON 
000357 740040 XX 
PMC RESTORE 


4760 * 
4770 * INITIALIZE THE KEYBOARD INPUT ROUTINE 
4780 « 
Oo0360 640002 4799 pac 3TM24 SAVE THE CHARACTER 
000361 420357 4800 xcT KBDIN,X LOAD THE CALLER'S IDENTITY 
000362 400526 4810 JMS 10,.IN SET UP THE REENTRART TEMPS 
000363 @00002 4820 Lac 3TM24 RESTORE THE CHARACTER 
4830 6 
4840 + CHECK FOR SPECIAL CHARACTERS 
4850 * . 
4860 ® A NULL (BREAK OR CONTROL SHIFT ‘pt) WILL STOp YHE USER'S CURRENT u0B 
4870 * CANCEL ANY INCOMPLETE 1/0, AND RESTART THE MONITOR, 
4880 * 
4890 ® IF THE DELETE OPTION IS ON, A CONTROL 'X* WILL KILL THE REST OF THE 
py. « CURRENT OUTPUT BUFFER WITHOUT AFFECTING THE INPUT STATUS, 
491 * 
000364 500654 4920 AND BL7 KERP ONLY THE LAST 7 BITS -- NECESSARY 7O CHECK FOR &A NULL 
000365 741200 4930 SNA CHECK FOR NULL (= CONTROL SHIFT P) ON INPUT 
000366 690425 494% ume KBDg IF NULL» CANCEL JOB AND RESTART MONITOR 
4950 * 
4960 s BEGIN TO PROCESS NORMAL INPUT, CLEAR THE FOLLOWING BITS? 
4970 a BIT2t KEYBOARD 1/0 ROADBLOCK FLAG 
4980 « BIT3$ SOFTWARE KEYBOARD FLAG 
4990 # BIT6t CHARACTER ECHO FLAG ( 0 8 CHARACTER HAS BEEN ECHOED ) 
5000 * BITS 10°47: ONE CHARACTER KEYBOARD BUFFER 
5010 “ 
5020 * THEN SET THE FOLLOWING BITS: 
5030 ® BIT3: SOFTWARE KEYBOARD FLAG 
5040 « BIT6$ CHARACTER ECHO FLAG ( 1 = CHARACTER HAS NOT YET BEEN ECHOED ) 
5050 * BITS 107173 SAVE THE CHARACTER JUST T¥PED 
5060 * 
000367 200053 5079 Lac 3TEM2 LOAD THE TELETYPE SOFTWARE FLAGS 
000370 500720 5080 AND (633400) CLEAR KEYBOARD @ KEYBOARD 1/0 ROADBLOCK FLAGS, & KEYBOARD SOFTWARE BUFFER 
P0U371 240647 5099 KOR BIT36 BET THE KEYBOARD AND CWARACTER-NOT-ECHOED FLAGS 
Uo0372 240002 5100 KOR 3TM24 PUT THE LATEST CHARACTER IN THE SOFTWARE KEYBOARD BUFFER 
000373 040053 5110 Dac STEM2 SAVE THE SOFTWARE FLAGS 
5120 a 
5130 * CHECK FOR AN INPUT BUFFER, IF NOY, THE CHARACTER CANNOT YET BE PACKED 
5140 # 
000374 500652 5159 AND BUY7 RECOVER YHE BUFFER TYPE 
00U375 740200 5160 SZA SKIP JF IT [S AN INPUT BUFFER 
000376 600401 5170 JMP KBDO5 ELSE GO DIRECTLY TO THE OUTPUT~IN-PROGRESS TEST 


000377 4100561 5180 JMS PUTIN INPUT BUFFER -- TRY TO PACK THE CHARACTER 


RES--puy 


00v400 
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R 


400056 


000401 


0n04o1 
UnU402 
000403 


000404 
090405 
000406 


200058 


744100 


600447 


240651 
400057 
240646 


000407 


000407 


000440 
000444 
000442 
900493 
000444 
000445 
000446 
000447 
000420 


000421 
090492 
000423 
000424 


040053 


200055 
544771 
600421 
200053 
500660 
240650 
040983 
400540 
600270 


200035 
744200 
600413 
604001 


5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
53530 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
§520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
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PDP-9 MIN] TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 


XCT 


ROTARY BUFFER CHARACTER INPUT/OUTPWT ROUTINES 


3TEMS 


ECHO A GARBAGE CHARACTER IF IT IS FULL 


CHECK FOR OUTPUT~-‘N-pROGRESS. JF SO, THE INpUT CHARACTER CANNOT BE 
ECHOED UNTIL THE NEXT TELEPRINTER INTERRUPT, 


eet 


LAC 
SPA 
JMP 


STEM2 


KBD4 


RELOAD THE SOFTWARE FLAGS 
SKIP JF NO OUTPUT §S IN PROGRESS 
ELSE DON'T ECHO {7 


OUTPUT IS NOT IN PROGRESS, 
TURN ON BIT 03 THE OUTPUT-IN-PROGRESS FLAG (IF THE TERMINAL REQUIRES A SOFTWARE ECHO) 


TURN OFF BIT 63 


THE CMARACTER-NOT-ECHOED FLAG ¢ OFOFF } 


ECHO THE CHARACTE? IF FHIg IS A TERMINAL REQUIRING A SOFTWARE ECHO 


BIT6 
3TEM6 
BITO 


3TEM2 


TURN OFF THE CHARACTER~NOT-~ECHOED FLAG 
ECHO THE CHARACTER IF SOFTWARE ECHO TERMINALs ELSE SKIP 
SET THE OUFPUT-[N-PROGRESS FLAG (FOR SOFTWARE ECHO TERMINALS) 


SAVE THE YPDATED TELETYPE FLAGS 


RESIDENT EXECUTIVE ROUTINE TO GENERATE A SIMULATED PROGRAM 
INTERRUPT FOR THE USER IF APPROPRIATE, IF THE USER IS CURRENTLY 
RUNNING, TRANSFER TO WIS MEMORY PROTECTION OVERLAY TO SEE aBouT 
GIVING HIM THE SIMULATED INTERRUPT, OTHERWISE JUST SET THE 
PROGRAM INTERRUPT BIT ON IN HIS 17/0 FLAGS WORD, AND THE SWAPPER 
WILL SEE ABOUT GENERATING THE SIMULATED INTERRUPT (JF NECESSARY) 
THE NEXT TIME HE [S SWAPPED IN, 


LAC 
Sad 
JMP 
Lac 
AND 
KOR 
DAC 
JMS 
RET 


Lac 
SNA 
MP 
JMP 


STEM4 
NUMBR 
KBD7 
3TEM2 
CBS 
BITS 
STEM2 
10,07 
P}DON 


RCORE 


KBD5 
SPINT 


LOAD THE ySER NuMBER OF THE INTERRUPTING YSER 

SKIP IF THE INTERRWPT DID NO? BELONG TO THE LaST CORE USER 
IT pip -- SEE IF TRE USER 18 STILL RUNNING 

LOAD THE SOFTWARE FLAGS 


SET THE P] INTERRUPT REQUEST (SWAPPER WILL CHECK IT) 
UPDATE THE FLAGS 


SKIP IF THERE IS A USER RUNNING 
NO 
YES 


15 
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000425 
000426 
000427 
000430 
0004314 
00U432 
000433 
0004834 
000435 
000436 
000437 
U00440 


05/31/72 


R 


10%55¢ 
409540 
200055 
060055 
544771 
744000 
6O0273 
200766 
740200 
600270 
764002 
600355 


5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
8799 


014041408 
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MTRIL 


PpP-~9 MIN] TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 
ROTARY BUFFER CHARACTER INPUT/OUTPWT ROUTINES 
»sEVJECT 


THE USER TYPED A NULL, STOP HIS CURRENT JOB, KILL ALL INCOMPLETE 
1/0, AND SET UP A MONITOR REQUEST FOR HIM, 


JMS NEWBR NULL KILLS ALL OLD 170 

JMS 10.07 CLEAN UP THIS USER 

Lac 3TEM4 LOAD IDENTITY OF ONE WHO PRINTED A NULL 
pac 3TEM4,X AND SET IY AS A MONTTOR REQUEST 

SAD NUMBR SEE IF HE IS TWE CYRRENT USER 

SKP 

RET P}DON NO -- EXIT 

LAC DKLOK 

SZA SEG IF THE DISK IS AVAILABLE TO GET THE SWAPPER 
RET PI DON NO -~ EXIT 

Law $SSWMTR 

JMP SWAP VES ~~ GET THE MONITOR 
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RES-~BUL 05/31/72 01404108 PpP-9 MINI TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 


R ROTARY BUFFER CHARACTER INPUT/OUTPWT ROUTINES 
5800 ,EVECT 
5810 “ 
5820 % KBDOT HANDLES OUTPUT To aNY TELETYPE FROM JTS ROTARY LINE BUFFER. 
5830 SUFFICIENT OUTPUT CLEARS THE YELEPRINTER [70 ROADBLOCKED CONDITION, EMPTYING THE 
5840 ® BUFFER CLEARS THE OUTPUT-IN-PROGRESS CONDITION. 
5850 8 THE OUTPUT BUFFER IS FILLED BY THE MEMORY PROTECTION ROUTINES, THEY aLSO 
5860 r SET THE OUTPUTeIN-PROGRESS FLAG, 
5870 e 
5880 ® INI TIALIZE,,..,CHECK FOR OUTPUT IN PROGRESS,...IF NONE, ASSUME THE INTERRUPT 
5890 * WaS GENERATED BY ‘HE LaSf CHARACTER OF THE PRECEEDING MESSAGE AND EXIT IMMEDIATELY, 
5900 * 
000441 5910 KBD0T vate 
000441 100526 5920 JM 10.1N 
O0Uu442 200053 5930 Lac 3TEM2 LOAD THE TELETYPE SOFTWARE FLAGS 
000443 740100 5940 SMA SKIP IF OUFPUT IS IN PROGRESS 
000444 600410 oat JMP KBD9 ELSE EXIT THROUGH THE SIMULATED PI ROUTINE 
596 ° 
5970 ® SEE wHETHER OR NO! TQ ECHO A CHARACTER 
pret * ECHO IT IF NECESSARY, AND EXITs ELSE CONTINUE. 
599 ® 
000445 500654 6000 AND BIT6 RECOVER THE CHARACTER-NOT-ECHOED FLAG 
000446 744200 6010 SNA SKIP IF THERE IS UN-ECHOED INPUT 
000447 600454 6020 JMP KBDO1 NO ECHO NEEDED -e PROCEED TO NORMAL OUTPUT 
000459 240053 6030 XOR 3TEM2 TURN Off THE CHARACTER-NOT-ECHOED FLAG 
000451 400057 6040 xcT 3TEM6 ECHO THE CHARACTER FOR SOFTWARE ECHO TERMINALS; ELSE SKIP 
000452 6004416 6050 MP KBD44 SOFTWARE ECHO TERMINALS EXIT HERE 
000453 040058 he Dac 3TEM2 HARDWARE ECHO TERMINALS GET WERE 
607 « 
6080 « CHECK TO SEE WHETHER THE QUFFER IS aN INPUT BUFFER OR AN OUTPUT 
6090 . BUFFER CURRENTLY, IF IT 1S aN OUTRUT BUFFER, CONTINUE WITH 
6100 * OUTPUT, IF IY IS AN INPUY BUFFER, BRANCH TO THE OUTPUT DONE ROUTINE, 
000454 6110 KBDO% wee 
000454 200053 6120 Lag 3TEM2 LOAD THE SOFTWARE FLAGS 
000455 §00652 6130 AND BIT7 RECOVER THE BUFFER TYPE 
000456 740200 6140 SZA SKIP IF THE 1/0 BUFFER IS AN INPUT BUFFER 
000457 600463 6150 JMP KBDO2 ELSE CONTINUE WITW NORMAL OUTPUT 
000460 200053 6160 Lac 3TEM2 LOAD THE SOFTWARE FLAGS 
000461 500656 6170 AND CBO CLEAR THE OUTPUT IN PROGRESS FLAG 
000462 600416 6180 Jum? KeD41 EXIT 
6190 * 
6200 * CHECK FOR 170 ROADBLOCK REMOVAL =- REMOVE WHEN BARELY ENOUGH 
6210 * CHARACTERS aRE LEFT TO COVER OTHER USERS! MaXIMUmM CPU TIMES 
6220 * 
000463 777777 6230 KBD02 LAW “4 
000464 340052 6240 FAD 3TEM1 
000465 500663 6250 AND ADRSS 
000466 740001 6260 CMA 
000467 040002 6270 Dac 31M24 SET THE (TWO'S COMPLEMENT) START-OF-OUTPUT ADDRESS 
000470 200051 6280 LAC 3TEMD LOAD YHE END-OF-OUTPUT ADDRESS 
000471 500663 6290 AND ADRSS 
000472 340002 63500 TaD 3TM21 SUBTRACT THE START 
000473 741100 6310 SPA SKIP IF 0,K, (AC = AMOUNT OF OUTPUT STILL TO GO) 


ReES--pBuL 05/31/72 01504108 PDP-9 MIN] TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 18 


R ROTARY BUFFER CHARACTER INPUT/OUTPYT ROUTINES 
000474 340721 6320 TAD (SKBLEN) ELSE MAKE AC = AMOWNT OF OUTPUT TO GO 
000475 $40722 63530 TaD (*MINBUFF) SUBTRACT THE MINIMUM NEEDED YO SUSTAIN THE 170 ROADBLOCK 
U0U476 740300 6340 SmMAtSZa SKIP IF THE 1/0 ROADBLOCK NEEDS cLEARING 
U0U477 600503 6350 JMP KBDB ELSE CARRY ON 
6360 o 
6370 * REMOVE THE TELEpRINTER 170 ROADBLOCK 
6380 « 
000500 200053 6399 Lac 3TEM2 LOAD THE SOFTWARE FLAGS 
U00501 500657 6400 AND CB1 CLEAR THE FELEPRINFER 1/0 ROADBLOCK FLAG 
U00502 040053 ote Dac STEM2 SAVE THE UPDATED SOFTWARE FLAGS 
642 
6430 & NOW PRINT THE CHARACTER IF THERE JS ONE 
6440 * 
On0503 100614 6450 KBD8 JMS FGET OUTPUT ONGOING ~» GET THE NEXT CHARACTER 
000504 600507 6460 JMP KBD6 OUTPUT=IN-PROGRESS 1S DONE WHEN AN EMPTY BUFFER IS FOUND, 
000505 400056 6479 XCT STEMS PRINT THE CHARACTER 
000506 600410 ot JMP KBD9 EXIT THROUGH THE Pt SIMULATION ROUTINE 
649 & 
6500 ® THERE IS NO CHARACTER,,,,CLEAR THE OUTPUT FLAGS,...LOAD THE LAST 
6510 * INPUT CHARACTER IF THE KEYBOARD FLAG IS SET, 
6520 « 
000507 200053 6530 KBD6 Lac 3TEM2 LOAD THE TELETYPE SOFTWARE FLAGS 
000530 500723 6540 AND (375777) CLEAR BITS Q (OUTPWT-IN-~PROGRESS) AND 7 (Q®INPUT BUFFER) 
000541 040002 6550 DAC 3TM24 SAVE THE LAST INPUT CHARACTER 
000542 040002 6560 DAC 3TM24 PASS T0 THE PACKING ROUTINE 
000543 040053 6570 Dac 3TEM2 SAVE THE FLAGS 
000544 500652 6580 AND BIT7 RECOVER THE BUFFER TYPE 
000545 744200 6590 SNA SKIP JF TY WAS AN OUTPUT BUFFER 
000546 600410 6600 JMP KBD9 ELSE EXIT 
000547 240053 6610 KOR 3STEM2 MAKE IT AN INPUT BUFFER 
000590 040053 6620 Dac 3TEM2 SAVE THE CORRECTED SOFTWARE FLAGS 
000521 500647 6630 AND BI136 GET YHE SOFTWARE KEYBOARD FLAG (BIT 6 IS ALREADY CLEARED) 
000592 744200 6640 SNA SKIP IF IT IS SET 
U90523 600410 6650 JMP KBD9 ELSE DONE NOW ~~ EXIF THROUGH THE SIMULATED PI ROUTINE 
000524 200053 6660 Lac 3TEmM2 1F SET, LOAD THE INPUT CHARACTER 


Uy9525 600407 6679 MP KBD2 GO PACK THE CHARACTER AND SIMULATE a USER PROGRAM INTERRUPT 


RES---BUYL 05/31/72 
R 
000526 
000526 740040 
000527 040010 
000530 940004 
000531 760047 
000532 040011 
000533 220040 
000534 060011 
000535 440050 
000536 600533 
000537 620526 
000540 
000540 740040 
000541 200004 
U005a2 040041 
000543 220011 
000544 040050 
000545 440050 
900546 760080 
900547 040010 
000550 200540 
000551 040526 
00U552 600533 


6680 
6690 
6700 
6710 
6720 
6730 
6740 
6759 
6760 
6770 
6780 
6790 


6800 
6610 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 


6930 
6949 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 


01504303 


—s © ee & Ge Gee eS 


0,I1N 


10.1 


10,07 


PDP-9 MINI] TIME=SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 
ROTARY BUFFER CHARACTER INPUT/OUTPUT ROUTINES 

»EWECT 

DUE To THE LACK 0° INDEX REGISTER CAPABILITY oN THE PDP-9, IT IS NECESSARY To 

COPY A TELETYPE'S PARAMETERS INTO A SET OF TEMPORARY VARIABLES WHENEVER 

WE GET AN INYERRU?T THT WILL REQUIRE US TO USE THEM, WHEN WE ARE BONE 

SERVICING TWAT INTERRUPT IY IS NECESSARY TO cCO?Y THEM BACK OUT TO PRESERVE 

ANY CHANGES WE MAY HAVE MADE, 


ROUTINE TO PRESERVE RE-ENTRANT VARIABLES ON ENFRANCE 


ENTER TRANSFER PARAMETERS TO TEMPS ON ENTRANCE 
PMC SAVE,ON 

Xx 

, PMC RESTORE 

Dac 10 AC s PTR YO 1 BEFORE FIRST PARAMETER 
pac 310TM 

LAW STM20-14 

pac 11 

Lac 10+X 

Dac 11>X YRANSFER THE PARAMETER 

1Sz STM20 

JMP A) DO THE NEX® ONE 

RET 10,1N.X DONE, EXIT 


ROUTINE TQ PRESERVE RE-ENTRANT yARIABLES OW EXIT 


ENTER TRANSFER TEMPS TO PARAMETERS ON EXIT 
sPMC SAVE,ON 

XX 

PMC RESTORE 

Lac 3107M 

Dac 11 

Lac 14>X 

pac 31M20 218 COMPLEMENT OF PARAMETER COUNT 
INX 3TM20 CORRECT THE TRANSFER COUNT 

AW 3TEMO-1 

DAC 10 

Lac 10,07 

Dac 10,1N 

JMP 10-4 
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Rt.S--B01 05/31/72 01504108 POP~9 MIN] TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 20 


R 1/0 BUFFER HANDLING ROUTINES 
7030 ~STITL 170 BUFFER HANDLING ROUTINES 
7040 * 
7050 * THESE ROUTINES ARE TO HANDLE EIGHT-BIYT ASCII INPUT TO AND OUTPUT FROM 
7060 a ANY TELETYPE'S ROTARY ENPUT/OUTPUT BUFFER, BUFFER FORMAY IS TWO EIGHT. 
7070 ° BIT CHARACTERS PER WORD, CHARACTER #1 IN BITS o-9 AND CHARACTER #5 IN 
7080 « BITS 10-17, 
7090 * 3TEM3 HOLDS THE (CONSTANT) ADDRESS OF THE START OF THE BUFFER, 
7100 « STEM4@ HOLDS THE (CONSTANT) MAXIMUMs4 ADDRESS OF THE ROTARY BUFFER, 
7110 * STEMO JS THE BUFFER INPUT POINTER, BIT 0 © O IF THE NEXT CHARACTER 
7120 * 1S TO BE THE FIRST CHARACTER STORED IN TWAT WORD. BIT 0 © 41 IF THE NEXT 
7130 * CHaRaCTER I§ TO BE THE SECOND CHARACTER STORED IN THaT WORD. 
7140 & STEMy IS THE BUFFER OUTPUT POINTER, BET 9 = O IF THE NEXT CHARACTER 
7150 ® 1S TO BE THE FIRST CHARACTER SUPPLIED FROM THAT WORD, BIT 9 = 4 IF THE 
7160 ® CHARACTER IS TO BE THE SECOND CHARACTER SUPPLIED FROM THAT WORD, 
7170 Ld 
ye « NEWBR 1S A SUBROUTINE 7O RE-INITIALIZE PHE BUFFER AND yO ZERO ALL SOFTWARE yELETYPE FLAGS, 
e 
72090 * 
000553 7210 NEWBR ENTER ROUTINE TO CLEAR THE I/0 BUFFER 
, PMC SAVE,QN 
000553 740040 XX 
»PMC RESTORE 
000554 200054 7220 LAC STEMS LOAD THE START OF FHE BUFFER 
000555 040051 7230 Dac 3TEMO RESET THE IN-POINTER 
000556 040052 7240 Dac STEMS RESET THE OUT-POINTER 
000557 4140053 7250 DZM STEM2 KILL ALL SOFTWARE TELETYPE FLAGS 
000560 620553 7260 RET NEWBR, X 
7270 ® 
7280 ® PUTIN PACKS THE EJGHT-BIT ASCIE CHARACTER FROM 3TMoq INTO THE PROPER ROTARY LING BUFFER, 
ue * {Tf RETURNS #2 IF SUCCESSFUL, #4 ON OVERFLOW, 
7300 * 
000561 7310 PYTIN ENTER 
000561 740040 xX 
.PMC RESTORE 
000562 200002 7320 LAC STM24 LOAD THE ALLEGED CWARACTER 
000563 500655 7330 AND BL8 MASK TO JUST ASCII TO PROTECT OURSELVES 
000564 040002 7340 Dac 3YM24 RESTORE THE CHARACTER 
000565 2000514 73550 LAC 3TEMO LOAD YHE ACTIVE ADBRESS 
000566 100635 7360 JMS NXPTR ADVANCE THE POINTER TQ TWE NEXT CHARACTER LOCATION 
000567 540052 7370 SAD STEMY SKIP IF NO OVERFLOW 
000570 620561 7380 RET PUTIN,X RETURN *4 FOR OVERFLOW 
000571 440561 7390 TNX PUTIN RETURN #2 FOR SUCCESSFUL 
000572 040051 7400 DAC 3TEMO SAVE THE UPDATED POINTER 
000573 740100 7410 SMA SKIP JF IT IS THE FIRST CHARACTER IN THIS WORD 
000574 600610 7420 JMP PUT2 
7430 
000575 7440 PUTS ene PUT FIRST CHARACTER IN BITS 2-9 
000575 220003 7450 Lac S$TM22,%X LOAD THE BUFFER WORD 
000576 500655 7460 AND BL8 CLEAR ROOM FOR TwIS CHARACTER 
000577 9600038 7479 BaC STM22,X 


Gol600 200002 7489 Lac 3TM24 LOAD THE CHARACTER -- BIT go MUST BE ZERO 


RES--RUY 


Ou0601 
Luvb6g2 
004603 
U0U0604 
000605 
000606 
000607 


05/31/72 


R 


742010 
742010 
742010 
742010 
260003 
060003 
620561 


000610 


000610 
000614 
U0U642 
000643 


220003 
500662 
240002 
600606 


000644 


0006144 


000645 
000646 
000647 
000620 
000621 
000622 
Vo0623 
000624 
000625 
000626 
000627 
000630 
000631 
000632 
000633 
000634 


740040 


200052 
540051 
620614 
440614 
400635 
040052 
740010 
220008 
744400 
600633 
742020 
742020 
742020 
742020 
200655 
620644 


000635 


000635 


000636 
000637 
000640 
000641 
000642 
000643 


740040 


0400035 
240646 
742100 
620635 
340653 
240055 


7490 
7500 
7510 
7520 
7530 
7540 
755) 
7560 
7570 
758y 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 


7670 
7680 
7690 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7889 


7890 
7900 
7910 
7920 
7930 
7940 


01+04308 


FGET 


PDP-9 MINI] TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 
1/0 BUFFER HANDLING ROUTINES 
atl POSITION THE CHARACTER 
RTL 
RTL, 
RTL 
KOR 3TM22,X PACK THE CHARACTER 
Dac 3™M22,X STORE THE CHARACTER 
RET PUTIN,X 
ve PUT SECOND CHARACTER INTO BITS 11-17 
Lac 3TM22,X LOAD THE STORAGE waRD 
AND C8L8 CLEAR ROOM FOR THIS CHARACTER 
XOR 3TM24 AND INSERT THE NEW CHARACTER 
UMP PUT4 EXIT 
FGET REMOVES THE FIRST REMAINING CMARACTER FROM THE 170 BUFFER, 
IT RETURNS IY AS 7-BIT ASCII IN THE AC. 
ENTER 
PMC SAVE,QN 
XX 
, PMC RESTORE 
Lac STEM4 LOAD THE aCTIVE aDDRESS 
SAD 3TEMO 
RET FGET,X RETURN +9 FOR NO CHARACTER 
tNX FGET RETURN +2 FOR SUCCESSFUL 
Jus NXPTR ADVANCE THE POINTER TO TwE NEXT CHARACTER LOCATION 
pac 3TEMY AND SAVE THE NEw POINTER 
RA 
LA 3TM22.X LOAD YHE CHARACTER 
SNL ICKL 
JMP FGET2 
RTR 
RTR 
RTR 
RTR 
AND BL8& MASK YO EIJGHT-BIT aSCI! 
RET FGET,X 
NXPTR INCREMENTS THE POINTER PASSED IN THE aC, AND RETURNS THE RESULT IN 
THB aC, THE LINK WILL alLWa¥S BE FLIPPED, THE ADDRESS INCREMENTED OR WRaPPED 
ONLY AS APPROPRIATE, 
ENTER 
, PMC SAVE,ON 
XX 
,PMC RESTORE 
Dae 37M22 SaVE THE OLD POINTER -- THE ROUTINES STILL NEED IT 
XOR BI To FLIP BIT 0 
SPA 
RET NXPTR,X NO NEED 70 INCREMENT THE ADDRESS 
TaD 81717 ELSE ADVANCE THE POINTER 
SAD 3TEM4 END OF THE BUFFER?® 
yO 
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RES-~-pl1 05/31/72 04304308 PDP=-9 MIN] TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 22 


R 1/0 BUFFER HANDLING ROUTINES 
900644 200054 7950 Lac STEMS VES, SC WRAP YHE POINTER 
000645 620635 7960 RET NXPTR,X EXIT 
7970 i 
7980 * RESIDENT CONSTANTS ARE USED INSTEAD OF LEITERALS TO PERMIT THEM TO BE ACCESSED By OyERLAYS, 
7990 = 


000646 400000 8000 BI TO 400000 
000647 044000 8010 BI 136 144000 
000650 010000 8020 BTS 610000 
000651 004000 8030 BI T6 004000 
000652 002000 8040 B17 002000 
000653 000001 8050 BI T17 600001 


000654 900177 8060 8.7 477 LAST SEVEN BITS 

000655 000377 8070 88 000377 LAST EIGHT BITS 

000656 377777 8080 cB0 377777 MASK YO CLEAR BIT 06 

090657 577777 68090 CB1 577777 MASK TO CLEAR BI? ¢ 

00U660 767777 8100 CB5 767777 MASK TO CLEAR BIT § 

000661 775777 8119 C87 775777 

000662 777400 8120 CB8L8 777400 MASK TO CLEAR LAST EIGHT BITS 

000663 017777 8130 ADRSS 47777 MASK TO RETAIN JUST THE ADDRESS BITS 
000664 600000 8140 JMP JMP : CONSTANT 


000665 703304 8150 DaK DBK CONSTANT 


Ri:$--Bby 05/31/72 
R 
000666 
000666 740040 
000667 040040 
000670 707074 
000671 707212 
VoU6E72 751101 
000673 600671 
000674 040266 
000675 2200140 
V0U676 707024 
000677 220040 
000700 040037 
000701 #220010 
000702 040036 
000703 220010 
000704 707047 
000705 707004 
000706 600705 
000707 707272 
000749 707242 
000741 741100 
900712 740040 
0007¢3 620666 
000744 0900000 
000715 000000 
000746 000000 
000747 000000 
000720 633400 
000721 000016 
000722 777770 


8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 


8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 


01:04:08 


oe @aseneeese & & & & 


DQ2 
DOS 


PpP-9 MIN] TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 
RESIDENT DISK ROUTINES 
~STITL RESIDENT DISK ROUTINES 


THE RESIDENT DISK ROUTINE IS STRICTLY A MIMIMUM SIZE PHYSICAL 
DISK HANDLER, 


CALLING SEQUENCE: LAW PNTR 
JMS pO 


PNTRei: PHYSICAL DISK aDDRESS ¢ = BLOCK NUMBER # 400 ) 
PNTR#2: CORE ADDRESS -1 

PNTR+3: TWO'S COMPLEMENT WORD COUNT 

PNTR#4: DISK READ (3) OR DISK WRITE (5) 


ENTER 

,PMC SAVE,.ON 

XX 

.PMC RESTORE 

DAC 10 SET THE PARAMETER POINTER 

DLAN*10 BE SURE WE ARE SET FOR DISK ZERO 
NL OK+20 FIND OUT WHETHER OR NOF THE DISK IS IN USE 
SPAyCLA:CMA SKIP IF IT IS FREE 

MP 72 ELSE WAIT FOR IT 

pac DKLOK FLAG THE SYSTEM 1S USING THE DISK 
Lac 10+X GET THE ADDRESS 

DLAL PLACE JT INTO THE ADDRESS REGISTER 
Lac 10+X LOAD THE STARTING ADDRESS 

pac SDKCA SEY TNE CORE ADDRESS POINTER 

Ae 10x 

pac SDKWC SEY TWE DISK WORD COUNT 

ac 1Q>x 

OSCF IDSFX}DSCN ISSUE THE READ COMMAND 

ossr WAIT FOR THE OPERATION TO COMPLETE 
JMP Ft 


CHECK THE oRGRA’ION AND RETURN To THE APPROPRIATE PLACE 


DSRS+10 CLEAR THE AC AND GET TWE STATUS OF THE CPERATION 
DSC0 CLEAR THE FLAGS 

SPA SEk IF OK 

Hf 

RET DQ»x 


OVERLAY CQMMON CONTROL AND COMMUNICATION WORDS 


,DSA 
DSA 
,DSA 
,DSA 
Ltt COLLECT LIVERALS TEMPORARILY BEFORE USER TABLE 
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RES--BO4 05/31/72 01404108 PDP-9 MIN] TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 24 
R RESIDENT DISK ROUTINES 
090723 375777 


RF¢S--g04 


05/31/72 
R 


004700 


001700 
901701 
001702 
001703 


001704 
001705 
901706 
901707 
901740 
gni74a1 
001742 


000000 
vovood 
000000 
000000 


000000 
000000 
000000 
000000 
000900 
000000 
000000 


004743 


001753 
001754 
001755 
001756 


001757 
001760 
001761 
001762 
001763 
001764 
901765 


001766 
901767 
001770 
Qol771 


§01772 
001773 
901774 
901775 
901776 


000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 


004777 
TRANSFER ADDRESS 


01704108 
8630 
8640 
8650 FRDA 
8660 FRCA 
8670 FRLEN 
8680 FRSTA 
8690 
8700 UTEMO 
8710 UTEMY 
8720 YTEM2 
8730 UTEMS 
8740 UTEM4 
8750 UTEMS 
8760 UPEM6 
8770 
8780 0 
8790 
8800 AC 
8810 4Q 
8820 S¢ 
8830 acs 
8840 
8850 CLOCK 
8860 LORS 
8870 DF LAG 
8880 DaPo 
8890 DAPL 
8900 DFN 
8910 OSTaT 
8920 
8930 yCORE 
8940 YpISK 
8950 VALID 
8960 NUMgR 
8970 
8980 NAME 
8990 OVER 
9000 TYPE 
9010 PURNM 
9020 RSTRT 
9030 
9040 

600004 


PDP-9 MINI TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 25 
FORMAT OF THE USER JOB TABLE 


»STITL FORMAT OF THE USER YOB TABLE 
»LOC S$JTSTRT 


DSA DEVICE ADDRESS OF THE USER'S CURRENTLY OPEN FILE 

DSA CORE ADDRESS OF TWE USER'S CURRENTLYU OPEW FILE 

+DSA LENGTH OF THE USER'S CURRENTLY OPEN FILE 

~DSA START ADDRESS OF TAE USER'S CURRENTLY OPEN FILE 

,DSA USED FOR PASS;NG PARAMETERS YO OR BETWEEN EXECUT; VE PROGRAMS 

,DSA 

,DSA 

»DSA 

,DSA USED FOR PASSING PARAMETERS TO OR BETWEEN USER OR PHANTOM PROGRAMS 
DSA 

,DSA 

»BLOCK 40 USER IMAGE OF FIRST 40 LOCATIONS 

,DSA USER AC SAVED 

DSA USER MQ SAVED 

,DSA USER STEP COUNTER SAVED 

DSA SOFTWARE aACCUMULATIOR SWITCHES REGISTER 

,DSA STORE YSER*S CLOCK WERE 

DSA STORE USER'S PI STATUS 

DSA SOFTWARE IMAGE OF THE DISK FLAG 

DSA SOFTWARE IMAGE OF PISK REGISTER APO 

DSA SOFTWARE IMAGE OF BISK REGISTER AP1 

,DSA SOFTWARE IMAGE OF DISK FUNCTION REGISTER 

DSA SOFTWARE [MAGE OF DISK STATUS REGISTER 

,OSA PHYSICAL DEVICE ADDRESS OF yWE YSER PROGRAM CORE IMAGE 

DSA PHYSICAL DEVICE aDBRESS OF YWE sPHYSICaL USER PHYSIcalL DEVICE, FILE 
,DSA STORE THE USER'S VALIDATION BITS HERE 

DSA TELETYPE NUMBER #2 POINTER TO RESIDENT TELETYPE PaRaMETERS (USO, USL OR USp} 
DSA NUMBER#TYPE 

DSA NAME OF USER'S CURRENT QVERLAY PROGRAM 

,0SA USER PROGRAM 8 03 PHANTOM PROGRAM & -% 

DSA NAME FOR PURE CODE PORTION OF USER'S CURRENT PHaNTOM PROGRAM (@ 0 IF NONE) 
DSA RESTART PC (CONTROLS aDDRESS.,LINK,» MEMORY PROTECT) 

»&NQ i 


RFS-~BO4 05/31/72 01404108 PpP~9 MINI TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM PAGE 26 


R CROSS REFERENCE TABLE 
1743 .0 4510 4520 
26 510 3400 
<7 .31h 3410 
4464 .OT 570 
6460 .TP 550 
2ne23 1OSAVE 4870 1889 
2024 LISAVE 18890 1920 
5 3AC 3370 
305 SREST 3870 3880 
74 3TEMO 3530 3540 
52 3TEMi 3540 3550 
53 3TEM2 3550 3560 
54 3TEM3 3560 3570 
55 3TEM4 3570 3580 
56 3TEMS5 3580 3590 
57 3TEM6 3590 3600 
70 3TM20 3520 3530 
2 3TM21 3350 
3 3TM22 3360 
14000 7K 4030 
160090 8K 4020 910 1010 2640 2650 
1753 ac 4520 4530 
1756 ACS 4550 4560 
2045 ACSAVE 4810 1820 
20¢2 ACSW 4869 18706 
694 ADRSS 4100 4110 
390 aT 2950 
300 ATSGN 2900 
422030 BAS 420 
2194 BCONTRL 2330 2340 
654 BITO 3970 3980 
644 BIT47 4020 4030 
635 BIT36 3980 3990 
636 BITS 3990 4900 
637 BIT6 4000 4010 
640 B1T7 4010 4020 
642 BL7 4030 4040 
443 BL8 4040 4050 
2000 BOUNDA 970 960 980 990 1000 1630 5040 5080 
547 BRK 5550 
2170 BUFFER 2490 2550 
1090 BUFLEN 2500 2550 
644 cBo 4050 4060 
6€5 cBL 4060 4070 
6A6 CB5 4070 4080 
647 CB7 4080 4090 
490 CBL8 4090 41400 
6 CHRMAX 3180 3200 
2 CHRP AK 3130 3200 
$16 CLKLOK 3960 3290 3979 
90 ChKMAX 2840 3180 4000 


60 ChKSPD 3160 3470 


RES --BUd 


05/31/72 


CLOCK 
CMP4 
CMP2 
CNTRL 
COMFLG 
cOmMSTO 
CORMAX 
CSPL 
CSwP 
CTBFR 
CTBIN 
CTEMPO 
CTEMPY 
CTEMP2 
CTEMPS 
CTEMPA 
CTEMPS 
CTEMP6 
CTEMP?7 
CTEMPB 


R 


4560 
3490 
3500 
3358) 
2200 
2270 

919 
3510 
3480 
3600 
3640 
1630 
1640 
1650 
1660 
4670 
1680 
1690 
1700 
41710 
4720 
3650 
3660 
2120 
2579 
2360 
2440 
22410 
1860 
2390 
2580 
2420 
2400 
2430 
2480 
2460 
2150 
2450 
2070 
4590 
4600 
4120 
2220 
2210 
2050 

410 
5000 
2080 
4580 
4610 
2340 
2140 


91:04:08 


4570 
3500 
3510 
3390 
2210 
2280 

980 
3520 
3490 
3630 
3650 


3660 


2450 
2380 
2370 
2450 
2420 


2400 
2390 
2430 
2410 
2440 
2490 
2470 
2160 
2460 
2080 
4600 
4610 
41430 
2270 
2270 
2060 


2090 
4590 
4620 
2350 
2150 


PDP-9 MINI TIME=SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM 


3640 
3670 


CROSS REFERENCE YABLE 


4250 


PAGE 


27 


RES--BO4 


05/31/72 


DINDIR 
DKO 


R 


21790 
4270 
4310 
4350 
2750 
4170 
2650 
2660 
3830 
4160 
2760 
2740 
2770 
2100 
2130 
24410 
2470 
4130 
4140 
4150 
23550 
4980 
2090 
2180 
2190 
2060 
2160 
4620 

560 
4630 
1640 
1650 
1660 
1670 
4680 
1690 
1700 
4710 
4720 


01404108 


2480 


8390 
4180 
2660 


3840 
4170 
1360 
8410 


2110 
2140 
2420 
2480 
4140 
4450 
4160 
2360 


2400 
2190 
2200 
2070 
2170 
4630 


940 
53960 
4420 
4410 
4430 
4440 
3200 


3920 


PDP-9 MINI] TIME*SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM 


CROSS REFERENCE TABLE 


PAGE 


28 


RES--BuL 


05/31/72 
R 
10.07 3920 
1OBLK 2830 
TORS 4570 
10TO 4900 
JMP 4110 
JTLEN 960 
JYSTRT 950 
KBLEN 3610 
KBNUM 3620 
LOLOK 3630 
LiBFR 3670 
LiBIN 3699 
LAFLG 3700 
L4LoK 3680 
LANAM 3710 
L2BFR 3720 
L2BIN 3740 
L2FLG 3750 
L@LOK 3730 
L2NAM 3760 
LOR 390 
LDRST 5040 
Less 2920 
M aCSw 4860 
MINBUF 3200 
MP4 350 
MP2 360 
MPACSW 4980 
MPOPR 4920 
MPST 4860 
MQ 4530 
MQSAVE 4820 
MTEMPO 1630 
MTEMPS 1640 
MTEMP2 1650 
MTEMPS 4660 
MTEMP4 4670 
MTEMPS 4680 
MTEMPO 4490 
MTEMP7 4700 
MTEMPS 4710 
MTEMP9 4720 
MTR 370 
MTRST 5080 
NAME 4670 
NEWBR 3930 
NUMBR 4660 
NXPTR 3960 
oco 4180 
OC1 4190 
0G2 4200 
C3 4210 


01504108 


3930 


4580 
4910 
4120 


940 
3630 
3670 


3680 
3700 
37140 


3730 
3750 


3760 
3779 


3610 


4890 
4540 
1630 


4680 
3949 
4670 
3970 
4190 
4200 
4210 


PDP-9 MINI TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM 


960 
3649 
3720 


3690 
3720 


3740 
4330 


6330 


2620 


CROSS REFERENCE 


1000 
3689 
1780 


4290 


4400 
3699 
4980 


FABLE 


8640 
3730 3740 4760 1960 2070 
2090 


6320 


PAGE 


29 


RES--Bu41 


574646 
575600 
17¢3 
700 
1000 
2033 
2054 
2025 
2052 
241 
2047 
227 

77 

126 
195 


1 

2190 
1790 
2025 
214 
249 
1904 
383 
602026 
2026 
602025 
2027 
606064 
2051 
2050 
606460 
606462 
12100 
1775 
3790 
546 
1713 
1753 
666 
1754 
1755 

5 

1756 
694 
655 
696 
657 
660 
AOL 
347 
665 
1764 


DBDDDDDBDDADUVDADABDAUDDAD 


05/31/72 


01504508 


4690 
1350 

920 
2000 
2050 
1940 
1990 
3820 
1840 
3780 
4270 
4310 
4350 


2330 


4930 
3860 
3850 
4900 
3870 


1950 
4960 


1980 
4970 


4710 

990 
3950 
3780 


4150 


2240 


4920 
7330 
6170 
6400 
5530 


2650 
2520 


PpP~9 MINI TIME-SHARING SYSTEM RESIDENT EXECUTIVE PROGRAM 


940 


5620 


1010 


4199 


3800 


7460 


CROSS REFERENCE TABLE 


4750 


2560 


8530 


7810 


4880 


4960 


1340 
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Doz 
Do3 
wMP 
Oco 
OC4 
0C2 
0C3 
»310 
314 
BITO 
BITS 
BI T6 
BUT7 
CBL8 
CMP4 
CMP2 
CSPL 
CSwP 
DAPO 
DAPY 
FGET 
FLAG 
FRCA 
FRDA 
10.4 
TORS 
KBDQ 
KBD2 
KBD4 
KBDS 
KBD6 
KBD? 
KBD8 
KBD9 
MTR 
NAME 
OVER 
P1G0 
PUTS 
PUT2 
PUT4 
Racs 
RDTO 
RDT 
RPTP 
RPTR 
R&CO 
SWAP 
SWPS 
TYPE 


DDD Dw DDD DBD wWBsIDwBwDBBIBDDBBDBDBDwBDBVBBDBBBDBBDBDBDDABADBAAAAwABDBIAADADA 


z 
Gi 
rary 
= 
— 
 < 


R3REST 


R 


8350 
8360 
8140 
8580 
85990 
8600 
8610 

980 

990 
8000 
8020 
8030 
8040 
6120 
1599 
1400 
1410 
43580 
8880 
6890 
7660 
3070 
8660 
8650 
6840 
8860 
5680 
8380 
5560 
5520 
6530 
5590 
6450 
§499 
5780 
8980 
8999 
3630 
7440 
7570 
7540 
1170 
1150 
1160 
2880 
2930 
2980 
4150 
1330 
9000 

750 
3730 


01404308 


3570 


2260 
2280 
5370 
5540 
5350 
5150 
7990 


4160 
3230 


6450 
2860 


7020 


4940 
6679 
5270 
5610 
6460 
5510 
6350 
5950 


4990 
3580 


7420 
7610 


4260 
4170 
4080 
6810 
3590 
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3480 
3500 
7900 


6000 
6130 


7690 
2910 


6480 


3790 
4180 


6930 
3770 
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6580 


7700 7820 
2960 3080 3090 3100 


6600 6650 


3810 
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RSTEMO 
RSTEMY 
RSTEM2 


RSTEMS 
RSTEM4 
R3TEMS 
RSTEM6 
RSTM20 
RSTM24 
RSTM22 
RACS 

RADRSS 


RLiIBFR 


R 


1470 
1480 
1490 


4500 
1510 
4520 
4530 
4460 

730 

740 
3440 
8139 
8050 
8010 
4060 
8850 
3390 

770 
3450 
1760 
1790 
1610 
4500 
4920 
4520 
4940 
8870 
8499 
3340 
8430 
3180 
8910 
3420 
3439 

330 
3470 

920 
7810 
3790 
8679 
8680 
6799 
6929 
6110 
8240 
§559 
4750 
6230 
5910 
17790 
1960 


01404308 


6280 
6240 
5970 
6410 
7220 
4070 
5190 
5360 
6820 
4799 
7450 


3560 
7930 
5090 
3320 


1790 
4920 


2710 


2680 
4920 
3210 


3180 


3010 
3200 


3480 


7760 
3800 


4810 
5560 
6020 
3170 
6050 
4510 
6150 
4540 


1999 


: RAM 
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5920 
5690 


6180 
4590 
4640 


2000 


CROSS REFERENCE TABLE 


7230 
7370 
5250 
6570 
5700 
6960 
5100 
7530 


6290 


1910 


5750 


6889 
7000 


4660 
4680 


2020 


7350 
7670 
5390 
6610 
5710 
6970 


6270 
7540 


8350 


7010 


4800 


7400 
7720 
5520 
6620 


7940 


6300 
7580 


7680 


5550 
6660 


6550 
7740 


5930 
7250 


6560 
7890 


6030 


7320 


6060 6120 


7340 7480 


6160 


7600 
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127 
151 
394 
125 
153 
352 
136 
156 
1.69 
$54 
154 
162 
395 
553 
1/71 
635 
2ht 
287 
244 
270 
303 
267 
165 
431 
230 
235 
1725 
564 
35 
234 
1776 
282 
1746 
336 
340 
1766 
1767 
1704 
1705 
1706 
1707 
1710 
17114 
1712 
1740 
1755 
6400090 
2024 
243 
397 
422122 
1090 


05/31/72 
R 
RLiBIN 1990 
RLAIFLG 2010 
RLikBD 4589 
RLiiOK 1970 
RLANAM 2030 
RLiOQUT 4600 
RL2BFR 2070 
RL2BIN 2100 
RL2FLG 2120 
Rk 2KBD 4650 
RL2LOK 2080 
RL2NAM 2140 
Ri, 20uUT 4670 
RNEWBR 7210 
RNUMBR 8960 
RNXPTR 7880 
RPBFLG 2970 
RPFLAG 2870 
RPIDN2 3559 
RPTDON 34890 
RPyOUT 3620 
RPIS$Ve 3390 
RPIS$vC 2230 
RPITST 5500 
RPTP 3780 
RPTR 3800 
RRYRNM 90140 
RPUTIN 7310 
RRCORE 1270 
RRFLAG 2920 
RRSTRT 9020 
RScQ 3820 
RSTRT 4710 
RQWAP 4160 
RSWAP 4180 
RUCORE 8930 
RUDISK 8940 
RUTEMQ 8700 
RUTEMS 8710 
RUTRM2 8720 
RVTEMS 8730 
RUTEM4 8740 
RUTEMS 8750 
RUTEM6 8760 
RVALID 8959 
s¢ 4540 
SCRSTR 2670 
SCSAVE 1850 
SHARP 2890 
SPCOD 5410 
SPL 430 
SPLST 4960 


014504408 


2030 
2740 


2800 
2100 
2140 


2770 


2830 
5680 


5500 
7360 


3310 
2530 
3900 

680 
3410 
3790 
5410 


5180 
5590 


3830 


4240 


45950 
1660 
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4600 


2110 2130 
4670 


7260 
3720 
7740 7920 7960 


4040 41400 5570 5740 3770 


7380 7390 7550 
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777400 
20en 
$35 
336 
349 
1000 


1003 
1004 
1007 
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1700 
1710 
1720 
3170 


3150 
4690 
4630 


0170408 


4850 
3890 
3900 
3910 
4760 


4790 
4800 
4830 
4840 
4780 


4770 
3470 
4810 
4820 
2810 


2640 
1640 
1650 
1740 
1750 
4800 
4660 
1470 
4680 
1690 
4700 
4710 
1720 
1730 


3180 


$170 
4700 
4640 
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CROSS REFERENCE FABLE 


4110 
4250 


5780 
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R 

1767 UDISK 

356 UPARR 
26 uso 
1¢5 US4 
194 8«ySe2 

0 USER 
3 USERS 


14000 USLEN 
2045 YSTORE 


75 UTo 
124 ult 
193 yt2 


1704 YTEMo 
1795 = =yTEM1 
1706 UTEM2 
1707 UTEMS 
1710 UTEM4 
1711 UTEMS5 
1742 UTEM6 
1770)0=—Ss VALID 


4640 
2940 
4250 
4290 
4330 
2790 
2850 

980 
1600 
4280 
4320 
4360 
4449 
4450 
4460 
4470 
4480 
4490 
4500 
4650 


01$04:08 


4650 


4260 
4300 
4340 


3200 
2640 
1810 


4450 
4460 
4479 
4480 
4490 
4500 
4510 
4660 
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CROSS REFERENCE TABLE 


4280 
4320 
4360 
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R 


5630 
5640 
5650 
5660 
5680 

100 
5140 


01%04:08 


100 
5270 
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120 


UNDEFINED SYMBOLS 


120 


580 


580 


2689 


2680 


3210 


3210 


5330 


5330 
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R 
ENTER 5280 3070 3730 
MPOFF 5430 
SWAP 5610 


MACRO CROSS REFERENCE TABLE 


4750 


6790 


6920 


7210 


7310 


7660 
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7880 


8290 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
2350 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
870 
580 
590 
600 
610 


04-0424 
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SWAPPING OVERLAY PAGE 


»>TITLE SWAPPING OVERLAY 
eNAME SWP--B802 


A SWApPpER CaLl CAN BE INITIATED BY EITHER THE RESIDENT PROGRAM OR A 

RUNNING PROGRAM, IN GITHER CASE, THE ACTUAL SWAPPER FETCH IS ACCOMPLISHED BY 
USING THE RESIDENT DISK 

MANDLER TO READ IN THE SWARPER AND TRANSFEM TO IT, THIS MEANS THAT 

NO MATTER WHO INITIATES THE SWAPPER CALL, IT IS ENTERED WITH THE 
SYSTEM-USING-*THE-DISK FLAG (DKLOK) SET, DKEOK BEING SET PREVENTS 

FURTHER INTERRUPTS FROM TRYING TO CALL THE SWAPPER PREMATURELY, THEIR 
OCCYRENCE IS MERELY NOTED. 


tf THE RESIDENT PROGRAM INSTIATES A SWAppER CALL, IT IS THE RESULT 
OF A PROGRAM INTERRUPT? 


1) A USER HAS TYPED a NULL (CONTROL SHIFT Pd, THIS KILLS HIS OUTPUT AND 
RUNNING PROGRAM AND SETS a FLAG THAT HE NEEDS THE MONITOR, 
IF NO OTHER USER IS CURRENTLY RUNNING, IT ALSO CAUSES TKE SWAPPER 
TO BE CALLED To LOAD THE MONITOR FOR HIM. 


2) THE CLOCK HAS RUN OUT AND THERE IS ANOTHER USER WHO IS READY 
TO RUN (!,&. NOT 1/0 ROADBLOCKED), THIS CAUSES THE SWAPPER 
TO BE CALLED To SWAP THE YSERS. 


A RUNNING PROGRAM: MAY INITIATE A SWAPPER CALL AS THE RESULT OF a PROGRAMMING 
ERROR, A SPECIAL JOT INSTRUCTION, OR A DECESION, 


1) WHEN A MEMORY PROTECT ROUTINE DETECTS A PROGRAMMING ERROR IT CALLS THE 
SWAPPER "OQ TRANSFER TWE USER TO THE MONITOR/SYSTEM MESSAGES PROGRAM, 


2) WHEN THE USER PROGRAM EXECUTES a SPECIAL JOT INSTRUCTION a MEMORY PROTECT 
ROUTINE DISCOVERS IT AND CALLS THE SWAPPER TO GET THE SPECIAL 
1OT INSTRUCTION HANDLER OVERLAY AND TRANSFER TO IT, 


3) A RUNNING PROGRAM MAY DECIDE TO CAEL THE SwAPPER ITSELF (E&,G. 
MONJ TOR WISHES TO GALL DDT), 


BaACM OF THESE TYPES OF SWARPPER CALMS, EXCEPT TwE LaS?, HAS ITS 

OWN SPECIAL ENTRY TO THE SWAPPER (2,G, SWMTR @ SWSPL) TO LET THE 

SWAPPER SET UP THE SWAPPING PARAMETERS AND TO MINIMIZE THE AMOUNT 

OF REQUIRED RESIDENT OR OVERLAY CODE. THIS glSO KEEPS THE SETTING OF 

THE SWAPPER CONTROL WORD WITHIN THE SWAPPER, FACILITATING FUTURE CHANGES IN THE 
SWAPPER, 


THE INTERRUPT SYSTEM MySY BE TURNED ON FOR aS MUCH OF THE SWAPPER 
OPERATING TIME AS POSSIBLE, OR ELSE TELETYPE OUTPUT CANNOT BE GUARANTEED 
TO BE CONTINUOUS. BEFORE THE INTERRUPT SYSTEM CAN BE TURNED ON, THE 
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O1F04si4 


620 
650 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
4940 
1020 
1030 
1040 
100 
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SAVED USER REGISTERS MUST BE COPIED TO PREVENT TWETR DESTRUCTION, 
ALSO THE CURRENT CORE USER STATUS MUST BE SAVED SQ Twat SRCORE CAN 

BE SET TO ZERQ TO SIGNAL THE RESIDENT PROGMAM THAT THERE IS NO MEMORY 
PROTECT PROGRAM IN CORE, OTHERWISE THE RESIDENT PROGRAM WILL ATTEMPT 
TO TRANSFER TO NON-EXISTANYT ROUTINES. 


THE SWAPPING OVERLAY IS CONTROLLED BY FOUR PARAMETERS PASSED TO IT 
(SUTEMO-SUTEM3), IT WILL PASS TO THE CALLED PROGRAM THE CALLING 
PROGRAM'S NAME (IN SUTEM4), THE CALLING PROGRAM'S OVERLAY (IN SUTEMS), 
AND THE PASSED PARAMETERS {SUTEM6 = SUTEM7) 

THIS IS TO ALLOW SOME INTER-PROGRAM COMMUNICATIONS, 


SUTEMO: SWAPPER PARAMETER #9 *- BIT CODED WORD TO CONTROL THE SWAPPER ORERATION 
SWAPPER PASSES CALLING PROGRAM'S NAME 

SUTEM1: SWAPPER PARAMETER #2 -- NAMB OF PHANTOM OR S-USER PROGRAM BEING SWAPPED 
SWAPPER PASSES CALLING PROGRAM'S EXTENDED PC 

SUTEM2t SWAPPER PARAMETER #3 ~~ RESTARY ADDRESS OVERRIDE 
(INTERNALLY) DIRECT RESTART 


SUTEM4: PASSED PARAMETER #1 
SUTEMS: PASSED PARAMETER #2 
SUTEM6! PASSED PARAMETER #3 


THE "CURRENT CORE USERY (CCU) Is THE JOB WAOSE PROGRAM NAME Is IN SRCORE, 
INITIALLY THIS 18 THE JOB MHICH THE SWAPPER INTERRUPTED, 


THE "NEXT CORE USER" (NCU) IS THE ONE wHOSE USER NUMBER IS PASSED IN 
S3TEM4. 


THE GENERAL SWAPPRER PROCEDURE IS} 
1) SET UP ANY OF THE PARAMETERS THAT STILL NEED TO BE SET UP, 
(SPECJAL ENTRANCES ONLY), 
2) SaVE EVERYTHING THE INTERRUPT SYSTEM WOULD CLOBBER IF ALLQWED TO, 
3) SAVE THE SWAPPER CONTROL PARAMETERS, THE PASSED PARAMETERS, THE CCU 
AND NCU STATUS; FLAG THE SYSTEM !S USING THE DISK AND THERE 
18 NO MEMORY PROTECT OVERLAY JN CORE CURRENTLY, 
4) INITIALIZE THE EXIT TO BE THROUGH SPIDON AND TyRN ON THE INTERRYPTS, 
5) SET UP A COPY OF THE MONITOR FOR EACH USER WHO HAS REQUESTED IT, 
6) RESTORE THE SWAPPER CONTROL PARAMETERS, 
7) DQ TRE REQUESTED SWaPPER aCTIViTy, 


eINSRT DEFINS 
»IFUND DEFINS 
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5720 »LIST ON 
5730 »END 
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001000 


901000 
001001 
901002 
901003 
001004 
901005 
901006 
001007 
Pol04a0 
§oloai 


004426 
604054 
6014015 
601042 
6014016 
604031 
604043 
6040355 
601037 
601047 


00102 


901042 
901043 
001044 


201577 
040702 
601054 


001045 


001045 


441706 


004016 


Polons6 
p01047 
901020 
volo2i 
901022 
po1023 
001024 
901025 
y01026 
901027 
901030 


201600 
040702 
201604 
040705 
477777 
340000 
500651 
041704 
221704 
0414705 
604054 


1050 
4060 
1070 
4080 
1090 
4100 
1110 
1120 
4130 
4140 
1150 
1160 
4170 
1180 
4190 
41200 
1210 
1220 
4230 
1240 
4250 
1260 
4270 
4280 
1290 
4300 
1510 
1320 
1330 
1340 
1350 
4360 
13790 
4380 
1390 
1400 
1410 
1420 
4430 
1440 
1450 
1460 
1479 
4480 
41490 
1500 
4510 
1520 
4530 
4540 


01704311 


Mi 


WAP4 
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eSTITL 
»NEAD 


SWAPPER CONSTANTS, 


SWAPPER CONSTANTS, 


$ 


ENTRANCE VECTOR 


»40C 
CATLG=1 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 


OVSTRT 


SWAPO 
SWAPS 
SWAP4 
SWAP 4 
SWP1i0 
SWP13 
SwP14 
SWP42 
SWP14 


START OF 


ENTRANCES, 


PAGE 4 
a loge 


ENTRANCES. ETC, 


THE OVERLAY AREA 


GENERAL ENTRANCE TQ) THE SWAPPER 


ENTRANCE 
ENTRANCE 
ENTRANCE 
ENTRANCE 
ENTRANCE 


TO CALL TAME MONITOR 

TO EFFECT a CLOCK SWaP (SAVES RESIDENT CODE) 

TO OUTPUT « STANDARD SYSTEM ERROR MESSAGE 

WHEN MEMORY PROTECT ROUTINES DETECT g SPECIal I0T 

FROM SPECyAL [OT WANDLING TO GET THE USER BACK TO NORMAL 


GET MEMORY PROTECTION OVERLAY #1 
GET MEMORY PROTECTION OVERLAY #2 


MP#2 FOR 


AN OPERATE INSTRUCTION 


ENTRANCES FROM THE RESIDENT PROGRAM 


CLOCK SWAP ENTRANCE 


$e 
Lac 
bac 
JMP 


MONITOR ENTRANCE 


rot 
DZM 


(662000) 
$QCQ 
SWAPO 


$SUTEMQ 


SET THE SWAPPER CONTROL WORD 


CALL THE 


MONITOR INSTEAD OF AN ERROR MESSAGE 


STANDARD SYSTEM ERROR MESSAGE PRINTQUTS 
ENTER WITH THE MESSAGE NUMBER ALREADY SET IN $UTEM2 


eee 
Lac 
Dac 
LAC 
Dac 
LAW 
Tad 
AND 
pac 
Lac 
Dac 
JMP 


(652000) 
$0CQ 
CSMTR) 
$0Cq 

~1 

0 

SADRSS 
SUTEMQ 
SUTEMO+X 
SUTEML 
SWAPO 


SET THE SWAPPER CONTROL WORD 


SET THE SYSTEM PROGRAM NAME! MONI TOR/MESSAGES 


SET THE PROGRAM COUNTER TO PRINT 


SaVE THE 


INSTRUCTION GENERATING THE ERROR 
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S 


004031 
001031 200047 
Polos2 040040 
901033 761000 
001034 601052 


0040855 
G01035 200045 
001036 741000 


004037 
001037 200046 
001040 040040 
Dol0a1 764002 
Poloa2 604052 


004043 
Bol043 200045 
Pol0a4 040040 
§01045 760270 
001046 6013382 


004047 
fol0a47 200046 
Bol050 040040 
001051 761004 


004052 
901052 040654 
001053 601354 
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01504811 
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WP10 


mes 8s & 


WP14 


WP12 


WP13 
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OVERLAY EXCHANGES 


»STITL OVERLAY EXCHANGES 


ENTRANCES Tg SWITCH QVERLAYS ARQUND, MOST oF THEM ARE MORE 

ABRUPT THAN THE THER ENTRANCES, THEY DO NOT NECESSARILY FOLLOW 

THE NORMAL SEQUENCE OF SWARPER OPERATIONS, THIS IS BECAUSE IT 

1S ASSUMED THAT THEY ARE IN-AND-OUT SQ FAST, THIS APPROACH SIMPLIFIES 
CODING a GOOD DEAL AND ALSO LETS THE SYSTEM RUN MORE EFFICIENTLY, 


BRING IN THE SPECIAL IOT HANDLER OVERLAY 


oe? 


LAC $CSPL LOAD ITS PHYSICAL ADDRESS FROM THE CORE CATALOG 

Dac SSWPS SET IT IN THE PaRaMETERS LIST FOR THE RESIDENT DISK HANDLER 
Law $SPLST GET a POINTER TO ITS ENTRANCE 

JMP SWP19 


SWITCH FROM MEMORY pROTECTION OVERLAY #2 TO MEMORY pROTECTION OVERLAY #14 


ere 
LAC 
SKP 


SCMPL LOAD ITS PHYSICAL BISK ADDRESS FROM THE CORE CATALOG 


SWITCH FROM MEMORY PROTECTION OVERLAY #1 TO MEMORY PROTECTION OVERLAY #2 


LAC SCMPQ LOAD ITS PHYSICAL DISK ADDRESS FROM THE CORE CATALOG 

DAC SSWPS SET IT IN FHE PARAMETERS LIS? FOR THE RESIDENT DISK HANDLER 
Law $JOTO LOAD THE RESTART ADDRESS 

JMP SWP19 


SWITCH FROM THR SPECIAL YO HANDLER OVERLAY TO MEMORY PROTECTION g4 OVERLAY 


Lac SCMP4 LOAD ITS PMYSICAL DISK ADDRESS FROM THE CORE CATALOG 
Bac SSWPS SET IT IN THE PARASETERS LIST FOR THE RESIDENT DISK WANDLER 
Law SPIDON LOAD THE RESTART ADDRESS 
IMP SW124 
GET MEMORY PROTECTION OVERLAY #2 -» THE OPERATE INSTRUCTION ROUTINE 
tac SCMP2 LOAD ITS PNYSICAL DISK ADDRESS FROM TNE CORE CATALOG 
Dac SSWPS SE? IT IN THE PARAMETERS LIST FOR THE RESIDENT DISK WANDLER 
Law SMPOPR 
of 
DAL $D0 SET THE RESTART ADDRESS 
JMP SW120 SWAP IN THE CORRECT OVERLAY 
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901054 
601055 
001056 
001057 
001060 
001061 
001062 
001063 


001064 
§01065 
901066 
901067 
001070 


01074 
Qo1072 
901073 


901074 
801075 
901076 
601077 
901100 
Gol101 
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Ss 


200000 
044776 
200005 
044753 
200026 
041723 
200027 
044724 


204772 
041575 
440035 
200055 
041576 


700042 
760270 
041575 


7600141 
040010 
761724 
040011 
404337 
200702 


2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
23500 
2510 
2520 
2330 
2340 
2350 
2360 
2370 
2380 
2590 
2400 
2410 
2420 
2430 
2440 


O1+04811 
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SETUP AND INITIALIZATION 
»STITL SETUP AND INITIALIZATION 


ALL ENTRANCES MERGE WERE 
SAVE THE USER'S REGISTERS BEFORE TRAE INTERRUPT SYSTEM CLOBBERS THEM 


LAC 0 

DAC SRSTRT 
Lac SSAC 
Bac SAC 
LAC $,310 
Dac $,0410 
LAG $,311 
Dae $,0011 


SAVE THE CURRENT CORE USER (CCV) AND NEXT CORE USER ¢NCU) NAMES 


LAC SNAME 

Dac CCU 

DZM $RCORE SET NO CCU SO RESIDENT PROGRAM DOESN'T aSSUME MEMORY PROTECT OVERLAYS 
Lac S3TEM4 

Bac NCU 


NOW THE SYSTEM JS SECURE, 3T IS OK TO ALLOW INTERRUPTS AGAIN 


ION 
LAW SPIDON 
Dag STRTWD SET THE STANDARD EXIT, INITIALLY 


NOW SAVE TWE CCU'S LOW CORE -~ 12-17 (THE REST I8 ALREADY SAVED) 


LAW 14 

BAC 10 SET THE SAVE TO START AT LOCATION 42 

Law $,0¢11 

Dac 14 SET THE STORE TO START AT THE IMAGE OF 12 
jms SwW200 DO THE CORE SAVE 


Lac $OCO LOAD THE SWAPPER CONTROL WORD 


SwP--BU2 


§01102 
901103 
001104 
§01105 
001106 
001107 
0011490 
01141 
001142 
091143 
001194 
001145 
001116 
901147 
901120 
Polie1 
0011292 
901123 
§ol124 
001125 


901126 
001127 
901130 
901131 
901132 
901133 
091134 


901135 
001136 
901137 
601140 
Ool141 
091142 
001143 
001144 
001145 
901146 
901147 


901150 


05/31/72 
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744110 
601126 
744110 
601135 
744110 
601150 
741110 
601155 
601166 
741110 
6014203 
744110 
601224 
744110 
604234 
744110 
601261 
744110 
601270 
604275 


040702 
201575 
041361 
7641135 
601360 
200702 
604104 


040702 
201576 
§44575 
601146 
777777 
344774 
044361 
7614146 
601360 
200702 
601106 


040702 


2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 

600 

610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2839 
2840 
2650 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 


01:04¢11 


SWAPPING QVERLAY 


»STITL 
GENERAL 


SPA!RAL 

JMP 

SPAYRAL 

MP 

SPATRAL 
) 


JMP 
SPAIRAL 
JMP 
SPATRAL 
JMP 
SPALRAL 
JMP 
SPATRAL 


MAIN QPERATING ROUTINES 


MAIN OPERATING ROUTINES 


SWAP ROUTINE, 


SWO0 
SW10 
SW20 


SW30 
SW4Q 


SwW50 
SW60 
SW70 
SW80 


SwW100 
SW110 


PAGE 7 


ACTIVATE SUBROUTINES CALLED FOR BY THE SWaPPER CONTROL WORD IN $$0CO 


SWAP OUT THE CURRENT USER'S CORE 


SWAP OUT THE CURRENT USER'S JOB TABLE ¢;F NOT ALSO NCU) 


SET NCU 


READ JN 
NOW SEE 


READ IN 
READ IN 


READ IN 


tz CCU (NUMBER) 


THE NCU'S JOB TABLE ¢IF NOT ALSO ccU) 
IF WE NEED TO OVERRIDE THIS SWAP-IN WITH A MONITOR CALL 


TRE NCU'S CORE 
THE NCU*S PHANTOM PROGRAM NAMED IN $0Ci OVER THE OLD PHANTOM CORE 


THE NCY'S S-USER PROGRAM NAMED IN $0C1 OVER THE OLD USER CORE 


RECORD THE NEW CCU 


RESEY THE RESTART ADDRESS YO THE ONE PASSED IN $0C2 


RESTORE 


SWAP OUT TWE CURRENT CORE USER 


DAC 
Lac 
Nae 
LAW 
JMP 
LAC 
RET 


$0CQ 
ccu 
OUT1 
»e2 
ouT 
$O0CO 
SWO09 


THE USER'S LOW CORE, PASSED PARAMETERS, OVERLAY! AND GO 


FIRST SAVE THE SWAPPER CONTROL WORD 
LOAD THE CURRENT CORE USER'S NAME 
SET IT FOR SWAPPING 

SET THIS ROUTINEtS RESTART 

gsWAP QUT THE USER 

RELOAD THE SWAPPER CONTROL WORD 


SWAP OUT THE CURRENT CORE USER'S JOB TABLE ¢uNLESS ALSO NCy) 


pac 
LAC 
$aD 
UMP 
LAW 
TAD 
Dac 
LAW 
JMP 
LAC 
RET 


SET NCU 


Bac 


$QCO 
NCU 


3 CCU (NUMBER) 
$0CO 


FIRST SAVE THE SWAPPER CONTROL WORD 
LOAD THE NEXT CORE USER'S 1,D. 
CHECK FOR DIFFERENT FROM CCU 


SAME ~~ 


DON'T BOTHER 


FORM THE JOg TABLE FILENAME 


SET FOR 


THE WRITE 


LOAD THE STANDARD RESTART 
WRITE OUT THE JOB TABLE 
RELOAD THE SWAPPER CONTROL WORD 


FIRST SET THE SWAPPER CONTROL WORD 


SWP--BO02 


001151 
001162 
901153 
901154 


901155 
901156 
001157 
001160 
901161 
001162 
001163 
001164 
901165 


05/31/72 
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204771 
044576 
200702 
601110 


040702 
201576 
544575 
$04165 
341602 
044364 
761165 
604363 
200702 


004166 


901166 
901167 
001170 
901171 
901172 
001173 
001174 
001175 
001176 
001177 
901200 
§01201 
001202 


901203 
001204 
001205 
601206 
001207 
_- 901240 
Dol2a1 
§01242 
901243 
901244 
501245 
_p01296 
001247 
901220 


040702 
224771 
744200 
604201 
164771 
201601 
040703 
200702 
504603 
241604 
040702 
200702 
604115 


040702 
204576 
404347 
221423 
041364 
761212 
6043635 
204775 
744200 
6014222 
543700 
604222 
041364 
764222 


2979 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3069 
3070 
3080 
3090 
3109 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
33559 
3560 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 


01404511 


W30 


3048 


Qe es ee 


W50 


SWAPPING QVERLAY 


Lac 
Dac 
Lac 
MP 


READ IN 


Dac 
LAC 
SAD 
JMP 
TaD 
Dac 
Law 
JMP 
Lac 


PAGE 


MAIN OPERATING ROUTINES 


S$ NyUMBR 
NCU 
$QC0 
SW29 


LOAD THE CURRENT CORE USER'S \UMBER 
SEY IT ALSO AS THE NEXY CORE USER 
RELOAD THE SWAPPER CONTROL WORD 


THE JOB TABLE OF THE USER WHOSE NUMBER IS pASSED IN NCU 


$O0CO 
NCU 


FIRST SAVE THE SWABPER CONTROL WORD 
LOAD THE NEXT CORE USER'S 1.5, 
CHECK FOR BIFFEREN? FROM CCU 

SaME -- DON'T BOTHER 

FoRm THE NAME OF TAE NCU JoB TABLE 
SET FOR READ-[N 

LOAD THE STANDARD RESTART ADDRESS 
READ IN TWE JOB TABLE 

RELOAD THE SWAPPER CONTROL WORD 


SEE IF THERE JS A MONITOR CALL OYTSTANDING FOR TWIS USER 


Dac 
Lac 
SNA 
JMP 
DZM 
Lac 
Dac 
Lae 
AND 
XOR 
Dac 

eT 


READ IN 


Dac 
Lac 
JMS 
LAG 
Dac 
LAW 
JMP 
Lac 
SNA 
JMP 
Sad 
JMP 
DAC 
AW 


$OCQ 
SNUMBR,X 


SW48 
SNUMBR» X 
(SMTR) 
$0C1 
$0CO 
(077777) 
(200000) 
$QCO 
$QCO 
SW49 


FIRST SAVE THE SWAPPER CONTROL WORD 
LOAD THE MONITOR CALL FLAG 

SKIP IF THERE IS AM OUTSTANDING FLAG 
NO -- EXT 

CLEAR THE REQUEST 


SET THE MONITOR PROGRAM NAME 

LOAD THE GIVEN SWAPPER CONTROL WORD 

GET RID OF THE GIVEN LOAD CALL 

SET A CALL TO LOAD &A PWANTOM PROGRAM (MONITOR) 
RESTORE THE CORRECTED SWAPPER CONTROL WORD 
LOAD THE SWAPPER CONTROL WORD 


THE NEXT CORE USER, ALLOWING FOR THE PURE CODE PORTION OF PHANTOM PROGRAMS 


$0CO0 
NCU 
SW210 
USER» X 
IN1 
2 


IN 
$PURNM 


SW58 
SPURSTR 


SW58 
IN1 
+%2 


FIRST SAVE THE SWAPpPER CONTROL WORD 
LOAD THE NCU'S NUMBER 

LOCATE HIM IN THE SWAPPER TABLE 
LOAD THE NCU'S NAME 

AND SET JT FOR SWAPPING 


SWAP IN YHE USER 
SEG IF THERE IS & PURE CODE PORTION TO LOaD 


NO -~ CLEAN YP_AND EXIT 

YES -~ SEE IF THE PURE CODE IS ALREADY IN 
YES, SO DON'T REwREAD IT 

YES -- SET THE PURE CODE DaTa FOR SWAP-IN 
LOAD THE STANDARD RESTART 


SwP--B02 05/31/72 01504:11 SWAPPING OVERLAY PAGE 


S MAIN OPERATING ROUTINES 
001221 601363 3490 JMP IN AND READ IN THE REST OF THE PHANTOM 
§o1222 200702 3500 SW58 Lac $0CO RESTORE THE SWAPPER CONTROL WORD 
901223 601115 3510 ref SW59 
3520 e 
3530 « 
3540 * READ JN THE PHANTOM PROGRAM NAMED IN $OCq SVER TWE OLD PHANTOM COMMON 
3550 « 
001224 3560 SW60 = 
001224 740010 3570 Ral, BYPASS TH& S-USER OPTION 
901225 040702 3580 pac $OCO NOW SAVE THE SWAPPER CONTROL WORD 
901226 763701 3590 Law SPURSTR*? 
901227 041776 3600 pac SRSTRT SE® THE STANDARD PHANTOM PROGRAM START ADDRESS 
001280 201605 3610 Lac (PHANTOM) 
0012314 043774 3620 DAC $TYPE SET THE TYPE TO BE a PHANTOM PROGRAM 
901232 341576 3630 Tad NCU 
9012833 604241 3640 JMP SU72 READ THE NCU'S OLD PwANTOM CORE 
3650 s 
3660 ° 
3670 e READ IN THE SeUSER PROGRAM NAMED IN $0Cq OVER THE OLD USER CORE 
3680 sd 
fo01234 040702 3690 SH79 Dac $0CO FIRST SAVE THE SWAppER CONTROL WORD 
901235 7753777 3700 Law SOK-4 LOAD THE MAXIMUM ADDRESS 
001236 041776 3710 pac SRSTRT SET IT AS THE S-USER PROGRAM START 
901237 4414774 3720 DZM $TYPE SET A USERWTYPE PROGRAM 
001240 201576 3730 Lac NCU LOAD THE NCU'S TELETYPE NUMBER 
901241 044772 3740 SwW72 Dag SNAME ANB SET IT ALSO aS THE SCRATCH FILE NAME 
001242 041364 3750 Dac ING SEY IT FOR SWAP~IN 
901243 761245 3760 Law .02 LOAD THE STANDARD RESTART 
001244 601363 3770 JMP IN READ THE OLD USER CORE 
001245 200045 3780 Lae SCMP4 LOAD A POINTER TO ¥HE MEMORY PROTECTION OVERLAY #4 LOCATION 
001246 0414773 3790 Dae SOVER SET IT AS YHE STANDARD SYSTEM PROGRAM OVERLAY 
§01247 200703 3800 Lac $QCi 
0012B0 044364 3810 Dac ING SET THE FILENAME DESIRED FOR SWAP IN 
901254 764253 3820 LAW +42 SET THE ROUTINE RESTARY 
901252 604363 3830 Jme IN DO THE SWAP 
001283 201774 3840 Lac STYPE LOAD TME PROGRAM TYPE 
001284 740200 3850 $ZA SKIP FOR USER PROGRAMS 
901265 203700 3860 Lac SPURSTR ELSE LOAD FHE PURE~CcOpE PORTION'S NAME 
01266 041775 3870 Dac SPURNM SEY THE PURE-CODG PORTION NAME (IF ANY) 
01267 200702 3880 Lac $0Co RESTORE YH@ SWAPPER CONTROL WORD 
901260 601121 3890 re? SW79 
3900 * 
3910 bd 
$920 @ THE FILE HAS BEEN SWAppED IN ~~ NOW SET [78 TABLE ENTRY 
393 * 
901261 0940702 3328 $W80 Dac $OQCO FIRST SAVE THE SWAPPER CONTROL WORD 
001262 201771 3950 Lac SNUMBR LOAD THE YSER NUMBER 
001263 104347 3960 JMS SW210 FIND HES G@NTRY IN FHE SWAPPER TABLE 
901264 201772 3970 LAC SNAME RELOAD HIS WYSER NUMBER 
901265 064423 3980 pac USER, X ANB UPDATE THIS USER'S PROGRAM NAME IN SWAPPER'S TagLle 
901266 200702 3990 Lac $OCo RESTORE THE SWAPPER CONTROL WORD 
901267 601123 4000 RET SwW89 ANB EXIT 


SwP--B02 


05/31/72 
S 


004270 


901270 
901274 
Oo1292 


901273 
001274 
001275 
001276 
9012977 


001300 
001301 
001302 
901303 
901304 
001305 
901306 
901307 


901340 
901341 
901342 
901343 
901344 
901345 
901346 
901347 
901320 
901321 
901322 
901323 
901324 
901325 
001326 
901327 
901330 
901331 


001 
901332 
001333 

004 


200704 
740200 
0414776 


760041 
0400414 
7641724 
040010 
1014337 


204755 
q421598 

44607 
504610 
044305 
740040 
204754 
652000 


204778 
040040 
200044 
044361 
764316 
604360 
700002 
204771 
040035 
204753 
940005 
#01725 
040026 
204724 
040027 
204776 
040000 
201573 


332 
040654 
Pa 

344 


4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4499 
4500 
4510 
4520 


04504811 


“eee & 


W100 


SwWw124 


Swi2d 


SWAPPING OVERLAY PAGE 


MAIN OPERATING ROUTINES 


OVERRIDE THE RESTART ADDRESS 


Lac 
SZA 
DAC 


RESTORE 


LAW 
DAC 
Law 
Bac 
JMS 


RESTORE 


Lac 
XOR 
Tad 
AND 
DAC 
XX 

Lac 
LMQ 


READ IN 


FIRST SaVeE THE SWApPpPER CONTROL WORD 


$0C2 LOAD THE NEW RESTARY ADDRESS 
SKIP IF NONE 
SRSTRT AND SET IT 


THE CURRENT CORE USER'S LOW CORE 


11 

14 SET THE RESTORATION TO START aT LOCATION 12 
$044 

10 SE? THE LOAD TO START AT THE IMAGE OF LOCATION 42 
SW200 DO THE RESTORATION 


THE ySER'S MQ AND SC 


$SC RELOAD THE OLD STEP COUNT 

(77) COMPLEMENT THE STEP COUNT 

(640402) DEVELOP A PSEUDQeNORMALIZE INSTRUCTION 

(640477) DELETE POSSIBLE STEP COUNT OVERFLOW 

ot PLACE THE NORMAL{ZE INSTRUCTION IN SEQUENCE 
STEP COUNT TO THE 8C 

$MQ RELOAD THE OLD MQ 
AND SET [rf 


THE OVERLAY AND GO 


SOVER LOAD THE QVERLAY NAMB 
SSWPS SET THE NAME OF THE OVERLAY "0 READ 
SCSWP 
OUTL SET TO COPY THE SWaAPPER OUY TO UPDATE CURRENT FILENAMES 
.*2 
our READ OUT YHE SWAPPER 
INHIBIT INTERRUPTS TO REwENTER TWE RESIDENT ENVIRONMENT 
SNUMBR 


S$RCQRE 
SAC 
$SAC 
$,0+10 
$.310 
$,0411 
$,311 
SRSTRT 


0 
STRTWD SET THE ADDRESS AT WHICH TO RESTART 


$D0 
$DKLOK FLAG THE SYSTEM JS NONE WITH THE DISK 


10 


SwP--BO2 


001334 
001335 
901336 


05/31/72 O01°04s11 
) 
760037 4530 


040010 4540 
600663 4550 


SWAPPING QVERLAY 


Law 
pac 
JMP 


MAIN OPERATING ROUTINES 


SSYPS-1 
10 
$D03 


READ IN A NEW OVERLAY 


PAGE 
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Ss MISCELLANEOUS SUBROUTINES 
4560 »STITL MISCELLANEOUS SUBROUTINES 
4570 
4580 # 
4590 & SUBROUTINE TO TRANSFER 12-17 TO OR FROM USER CORE IMAGE 
4600 * 
001337 4610 SW200 ENTER 
,PMC SAVE,ON 
901337 740040 XX 
901340 777772 4620 LAW -6 
001341 041347 4630 DAC SW210 SEY THE NUMBER OF LOCATIONS TO BE TRANSFERRED 
001342 220010 4640 Sw2035 Lac 10.X 
901343 060011 4650 DAC 14,X TRANSFER ONE MORE LOCATION 
901344 441347 4660 {$2 $W210 AND TEST FOR DONE 
001345 604342 4670 JUMP SW203 NOY DONE ~«# TRANSFER NEXT LOCATION 
901346 621337 4680 RE? SW200,X YES ~- RETURN 
4690 * 
4700 * 
4710 * SUBROUTINE TO LOCATE A USER'S ENTRY IN THE SWAppER TABLE 
4720 * 
001347 4730 $W210 ENTER 
,PMC SAVE,ON 
901347 740040 XX 
901350 541611 4740 SAD ($US0) CHECK FOR USER #0 
001354 764424 4759 LAW UNO 
001352 34146142 4760 Sad ($US1) CHECK FOR USER #4 
001353 761425 4770 LAW UN4 
001354 541613 4780 SAD ($US2) CHECK FOR USER #2 
901355 761426 4790 LAW UN2 
£01356 044423 4800 pac USER BEY TWE POINTER 


901357 621347 4810 RET SW210.X 


SwWP--BO02 


901360 
001361 
001362 


901363 
901364 
901365 


05/31/72 
Ss 


101366 
000000 
000004 


101366 
000000 
000002 


001366 


901366 
001367 
001370 
001371 
901372 
001373 
001374 
9013975 
001376 
001377 
001400 


901401 
901492 
001403 
001404 
901405 
901406 
001407 
901440 
901441 


740040 
040654 
221366 
744200 
620654 
441366 
043337 
777747 
044347 
764426 
040010 


220010 
544337 
604413 
444347 

44000 

40040 
440010 
440010 
440010 


4820 
4830 
4849 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
3030 
5040 
5050 
3060 
5070 
5080 
5090 


5100 
5110 
5120 
$130 
5140 
$150 
$160 
5170 
5180 
$190 
§200 
$210 
5220 
§230 
5240 
5250 
5260 
5270 
8280 
8290 
5300 
§310 


01504811 


Zzaz 
Ne 


aQe see ce © & &SE BF 1 see EF EE 


P ad 
a 


CATO’ 


SWAPPING QVERLAY PAGE 
DISK ROUTINES 
,STITL DISK ROUTINES 


ROUTINE TQ SWAP &A FILE QUT TO THE DISK 


JMS Cat CALL THE DISK ROUTINE 
.DSA TO SWAP THIS FILENAME OUT 
SDKWRT DISK WRITE COMMAND 


ROUTINE TO SWAP & FILE IN FROM THE DISK 


JMS Cat CALL THE DISK ROUTINE 
DSA TO SWAP THIS FILENAME IN 
SDKRD DISK READ COMMAND 


SWAPPER CATALOG RQUTINE 


CALLING FORMATS 
LAW <RETURN ADDRESS> 
JMS CAT 
<SIXBIT (AC'6) ASCII FILENAME? 
SCOMMAND! READ # 33 WRITE = 52 
BRROR MESSAGE WILL BE PRINTED IF THE FILE CaNNOT BE FOUND 


ROUTINE INITIALIZATION 


ENTER 

~PMC SAVE,ON 

KX 

Dac $po SEY UP THE RESTART aFTER THE DISK OPERATION 
Lac CaT,X LOAD THE FILENAME 

SNA 

Re’ $p0,x IGNORE A NULL FILENAME 

INX CaT 

pac SW200 SAVE THE FELENAME FOR THE SEARCH 

Law “SWPCAT 

pac SW210 Save YHE NUMBER OF FILES IN FHIS CATALOG 
LAW CATLG+4 

pac 10 SET THE POINTER T0 YWE CATALOG 


INITIALIZATION DONE ~~ NOW FIND THE FILENASE 


Lac 10+*X LOAD TNE NEXT FILENAME FROM THE CATALOG 

SAD SW200 1S IT THE ONE WE WANT? 

JMP CaTo9 YES ~~ CARRY ON 

1S2 SW210 NO -- WAVE WE TRIED ALL OF TWE POSSIBLE FILENAMES? 
SKP 

HLT yes, AND JT WAS NOT FOUND 

INX 10 NO, SQ YPDATE YHB FILENAME POINTER 

1NX 10 

NX 10 
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SwP-~B02 


001412 


05/31/72 


Ss 


601401 


004413 


901443 
901444 
901445 
0014146 
001447 
901420 
901421 
901422 


220010 
707024 
220010 
040037 
220010 
040036 
221366 
600672 


01904011 


SWAPPING OVERLAY 


IMP 


FILENAME MATCH HAS BEEN 


[ae | 
Lac 
DLAL 
Lac 
BAC 
Lac 
DAC 
Lac 
JMp 


DISK ROUTINES 


CaTOL 


10% 


10,X 
SDKCA 
10x 
S$DKWC 
CAT +X 
$DKOVR 


PAGE 


CHECK THE NEXT FILENAME 


FOUND ~- 10 POINTS Tq IT 


SET THE TRUE PHYSICAL DISK ADDRESS 
SET THE CORE ADDRE§S ~1 
SET THE TWO'S COMPLEMEMT WORD COUNT 


LOAD YHE COMMAND 
AND DQ THE DISK OPERATION 


14 


SwP--B02 


901423 
901424 
001425 
001426 


05/31/72 
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000000 
000076 
000125 
000154 


000031 
004427 


901573 
001574 
901575 
901576 
001577 
901600 
801601 
901602 
901603 
901604 
901605 
901606 
901607 
901640 
Pol6ai 
901642 
001643 


000000 
000000 
000000 
000000 
662000 
652000 
422025 
777777 
077777 
200000 
000001 
000077 
640402 
640477 
000076 
000125 
000154 


TRANSFGR ADDRESS 


5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
53629 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5709 
5710 
5720 
5730 
5740 
5750 
5760 


01504511 


SWPCAT 


601000 


SWAPPING OVERLAY PAGE 
MISCELLANEOUS STORAGE 


+STITL MISCELLANEOUS STORAGE 


CONSTANTS AND POINTERS 


»DSA POINTER TO THE TABLE ENTRY ASSOCIATED WITH THE CURRENT USER 
SUSO CURRENT FILENAME FOR USER #0 
SUSL CURRENT FILENAME FOR USER #1 
suS2 CURRENT FIWENAME FOR USER #2 


SWAPPER CATALOG FORMAT? 
SIXBIT ¢aCI6) ASCII NAME 
PHYSJCAL DISK ADDRESS 
CORE ADDRESS - 14 
TWO'S COMPLEMENT FILE LENGTH 
(TRANSFER CARD OMITTED) 


QU 34342020261 SCRATCH « PHANTOM + S-USBR + SWAPPER 
»BLOCK SWPCAT#4 


TEMPORARY STORAGE: IN THE COURSE OF ITS OpERATIONS THE SWaAppER MAY 
OVER WRITE THE USER JOB TABLE TEMPORARY STORAGE LOCATIONS (SUTEMO-SUTEM6), 
THEREFORE SWAPPER FIRST COPIES THEM INTO $0C0-~TEMP6, 


.DSA 
»DSA 
»DSA 
» DSA 
sEND OVSTRT 
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05/31/72 


01¢04911 


4320 
2170 
2190 


1889 
1920 
21450 
5880 
3540 
3550 
3360 
3570 
3580 
3590 
3600 
3330 


910 
4530 
4560 
1820 
14870 
4410 


2340 
3980 
4030 
3990 
4900 
4010 
4020 
4040 
4050 

960 


2550 
2550 
4060 
4070 
40980 
4090 
41400 
3200 
3200 
3189 
3170 
4570 


SWAPPING OVERLAY 


2180 


4430 
4450 


4410 


2270 


1500 


980 
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2200 2410 4140 4420 


2640 2650 3700 
4400 


990 1000 1630 5040 


4440 


3080 
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S CROSS REFERENCE TABLE 
45 CMP4 3490 3500 4740 1900 3780 
fo  CMP2 3500 3510 1810 1990 
6  CNTRL 3380 3390 
2093 COMFLG 2200 2210 
2190  cOmsTO 2270 2280 
16000 CORMAX 910 960 
47 cSPL 3510 3520 1650 
44  CSwP 3480 3490 4330 
60 8 CTBFR 3600 3630 3640 
100 CTBIN 3640 3450 3670 4250 
2000 CTEMPO 1630 
2004 cCTEMPY 1640 
2002 CTEMP2 1650 
2003 cTEMPS 1660 
2004 cCTEMP4 4670 
2005 cCTEMPS 1680 
2n06  CTEMP6 1690 
2007 CTEMP? 4700 
2040 CTEMPS 4710 
2041 CTYEMP9 4720 
192 CTFLG 3650 3660 
194 CTNAM 3660 
2043 i) PC 2120 2130 
2154 D BCA 2370 2380 
2193 D BDA 2360 2370 
2163 D FDA 2440 2450 
2042 D LOG 2410 2420 
2022 D ACSW 4860 
2156 D BALT 2390 2400 
2195 D BLEN 2380 2390 
2164 D BMAX 2420 2430 
2157 D BMIN 2400 2410 
2162 D BPTR 2430 2440 
2167 D FMAX 2480 2490 
2165 p FMIN 2460 2470 
2046 D MASK 2150 2160 
2164 D MFDA 2450 2469 
2056 DADRSW 2070 2080 
1762 DAPO 4590 4600 
1763 DAPY 4600 4610 
653 DBK 4120 4430 
<4 =©DBKNUM 2220 2270 
2054 DBKTAB 2210 2270 
2035  DBSTOR 2050 2060 
422027 DDT 410 
12080 DOTST 5000 
20357 pDYMSW 2080 2090 
17614 DFLAG 4580 4590 
1764 DFN 4610 4620 
2191 DFTYPE 2340 2350 
2085  DHIEOR 2140 2150 
2090 DINDIR 2170 2180 
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S CROSS REFERENCE TABLE 
100 DKO 4270 
127 DK4 4310 
156 oK2 4359 
37 DKCA 2750 5400 
645 DKDON 4170 4180 
16000 DKLEN 2650 2660 
34 DKLENB 2660 
266 DKLOK 3830 3849 4540 
642 DKOVR 4160 4470 $440 
2 DKRD 2760 4960 
36 DKwe 27490 5420 
4 DKWRT 2770 4900 
2n41 DLIMIT 2100 2110 
2044 DLOCOR 2130 2440 
21690 DMBMIN 2410 2420 
2166 DMF MIN 2479 2480 
654 pd 4130 4140 2050 4500 5100 5130 
662 DQ2 4140 4150 
663 DQ3 4150 4460 4559 
2152 DQFTYP 2350 2360 
2032 DPAGSW 1980 
2040 DPATSW 2090 2400 
2054 DPCMSK 2180 2490 
2052 DREGBR 2190 2200 
2035 DREGSW 2060 2070 
2047 DRELOC 2160 2470 
1765 DSTAT 4620 4630 
446490 DY, 560 
2000 DTEMPO 4630 
2004 DTEMPL 1649 
2002 DTEMP2 1650 
2003 DYEMPS 1660 
2004 DTEMP4 1670 
2005 DTEMPS 1680 
2006 DTEMP6 1690 
2097 DYEMP7 4700 
2010 DYEMPS 4710 
20%1 DTEMP9 4720 
275 EQUAL 2910 
692 FGET 3950 3960 
1704 FRCOA 4410 4420 
1700 FRDA 4400 4410 
1702 FRLEN 4420 4430 
1703 FRSTA 4430 4440 
2 FUDGE 3190 3200 
276 GREAT 2930 
1790 IMPLEN 999 
3170 IMPSTR 2550 
422020 INT 320 
543 IO.IN 3910 3920 
525 10,0T 3920 3930 


300000 1QOBLK 2830 
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1760 
inte 
452 
190 
1700 
16 
40 
76 
107 
127 
154 
125 
133 
136 
196 
169 
154 
162 
422026 
2090 
204 
2022 
$0 
422023 
422024 
2052 
1094 
1090 
1794 
2036 
2090 
2091 
2002 
2093 
2094 
2095 
2096 
2097 
2030 
2041 
422025 
2000 
17¥2 
549 
17¥1 
683 
702 


703 
704 
705 
574686 
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4570 
4900 
4110 

960 

950 
3610 
3620 
3630 
3670 
3690 
3700 
3680 
3710 
3720 
3749 
3750 
3730 
3760 

390 
5040 
2920 
1860 
3200 

350 

360 
4980 
4920 
4880 
4530 
4820 
1630 
1640 
1650 
1660 
4670 
1680 
1690 
4700 
4710 
4720 

370 
5080 
4670 
3930 
4660 
3960 
4180 


4190 
4200 
4210 
2730 


01704811 


4580 
4910 
4120 


940 
36430 
3670 


3680 
3700 
3710 


3730 
3750 
3760 


3779 


3610 


2010 
4890 
4540 
1830 


1460 


4680 
3949 
4670 
3970 
4190 
3180 
4200 
4210 
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CRoSS REFERENCE TABLE 


1830 
960 1000 4400 
3640 3680 3690 3730 3740 
3720 
3699 


3720 4290 


3740 

4330 

4260 

3230 

2240 3740 3970 

2870 2970 3190 3220 3950 
‘ 2770 

3 1459 2449 2720 

Os) 3280 3290 3350 3500 

1470 3240 3800 

4060 


4380 


2820 
3580 


2910 
3699 


2960 
3880 


2990 
3940 


3050 
3999 


PAGE 


3139 


19 


SWP--B02 


575600 
1773 
790 
1090 
2063 
2034 
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014904411 


4690 


920 
2000 
2050 
1949 
1990 
3820 
1840 
3780 
4270 
4310 
4350 
3610 
2330 


1930 
3860 
3650 
4900 
3870 


1950 
1960 


1960 
1970 


4710 
990 
3950 


2260 
4920 


34890 


3800 
37990 
3810 
38390 
2440 
3120 


4889 


SWAPPING OVERLAY 


3790 


1920 


3420 
1010 


4390 


3600 
3410 


4940 


CROSS REFERENCE TARLE 


4310 


4759 4880 4960 1120 


2339 


3870 
2560 3450 3590 3860 


3710 4080 4460 
3490 3770 3830 


5110 5140 5430 


5760 


PAGE 


20 


SwP--BU2 


1575 
1364 
1.465 
1576 
1360 
1424 
1425 
1426 
13641 
1126 
1104 
1155 
1146 
1196 
1150 
1110 
1195 
1165 
1142 
1166 
1201 
1113 
1203 
1222 
1115 
1224 
1117 
1234 
1241 
1124 
1261 
1123 
1423 
1795 
1404 
14%3 
1427 
640000 
2021 
243 
15%4 
347 
422122 
1090 
777400 
1230 
1273 
1354 
1332 
1337 
1342 
1347 
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CCY 
INQ 
INe 
NCU 
QuT 
VNO 
UNA 
WNe 
ouTd 
SwWO0 
SwW09 
sw1i0 
$W18 
SW19 
sW20 
Sw29 
SW30 
SW38 
SW39 
SW40 
Sw48 
SW49 
SW50 
SwW58 
Sw59 
SW60 
SW69 
S$W70 
SW72 
sw79 
SW80 
Swag 
USER 
s¢ 


SCaTod 
SCATO9 
SCATLG 
SCRSTR 
SCSAVE 
SHARP 
SOVOLD 
SPCOD 
SPL 
SPLST 
SPMBK 
SSwio0 
SSwi10 
S$wi20 
sSwi2d 
SSw200 
SSW205 
§Sw210 


ANAYAADN MHD HINA DNBADGAAAAAANAYUAGPNIAIDANAYNHMYUW WH 


i) 


5740 
4950 
4960 
5750 
4880 
5510 
5520 
5530 
48990 
2720 
2510 
2820 
2910 
2530 
2960 
2550 
3050 
3130 
2570 
3170 
3290 
2580 
3350 
3500 
2600 
3560 
2620 
3690 
3740 
2640 
3940 
2660 
5500 
4540 
5230 
5360 
8650 
2670 
4850 
2890 
5730 
5410 

430 
4960 
5390 
4050 
4120 
4520 
4490 
4610 
4640 
4730 


O1L1FO4511 


2250 
3100 


2280 
2760 
4750 
4770 
4790 
2740 
2500 
2780 
2520 
2850 
2920 
2540 
3000 
2560 
3080 


2570 
3210 
3300 
2590 
3449 
3510 
2610 


2630 
3640 
3890 
2650 
40900 
3380 
4550 
3320 
5250 
11350 


1860 


1670 


2670 
2680 
2060 
1930 
2430 
4670 
3370 
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2730 
3390 


2830 
2900 


2680 


3460 


3980 
4200 


3180 


4160 
3960 


CROSS REFERENCE TABLE 


2840 3070 

3470 3750 3810 

2980 5060 3360 3630 
4360 

4340 

4800 


4680 5150 5240 
4630 669 48140 5170 


3730 


3260 
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SSWAPO 
SSWAP4 
SSWAPS 
SSWAP4 
SSWCAT 
SSWCLK 
SSWERR 
SSWMP4 
SSWMP2 
SSWMTR 
SSWOPR 
SSwWP10 
SSwPi4 
SSwPi2 
SSwP13 
SSwP1i4 
SSwP19 
SSWPPR 
SSWSPL 
SSXSPI, 
STRTWD 
STSAVE 
SWAP 
SWAP 1 
SWAPS 
SWCAT 
SWCLK 
SWERR 
SWMP4 
SWMP2 
SWMTR 
SWOPR 
SWP 
SWPCAT 
SMPPR 
SWPS 
SWSPL 
SXSPL 
SYSBAS 
SYSDA 
SYSMAX 
TABLEN 
TEMPO 
TEMP1 
TEMP10 
TEMP14 
TEMP12 
TEMP2 
TEMPS 
TEMP4 
TEMPS5 
TEMP6 


S 


014904311 


1140 
1470 
1150 
1160 


1180 
1200 
1210 
1190 
4220 
1680 


2340 
1850 
3890 
3900 
3919 
4760 
47990 
4800 
4830 
4840 
4780 


3460 
4770 
3479 
4810 
4820 
2610 


2640 
1640 
1650 
1740 
1750 
1800 
1660 
1670 
1680 
1690 
1700 


SWAPPING QVERLAY 
CROSS REFERENCE TABLE 
1320 1540 


1840 


4480 


5650 


1660 1820 1910 2000 4320 


4530 
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TTEMP7 
TTEMPS 
TYTEMPS 
TTYCLK 
TTYNUM 
TTYSPD 
TYPE 
YCORE 
yDISK 
YPARR 
ySo 


1700 
4710 
1720 

540 
5540 
5530 
1630 
1640 
1650 
1660 
1670 
1680 
4690 
4700 
41710 
4720 
3170 
3140 
3150 
4690 
4630 
4640 
2940 
4250 
4290 
4330 
2790 
2850 

980 
1800 
4280 
4320 
4360 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4659 


01904311 


1710 
1720 
1730 


3180 


3470 
4700 
4640 
4650 


4260 
4300 
4340 


3200 
2640 
1610 


4450 
4460 
4470 
4480 
4490 
4500 
4510 
4660 
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3620 


4280 
43520 
4360 


1510 
1530 
1370 


CROSS REFERENCE TABLE 


3720 


4740 
4760 
4780 


1520 


3840 


5510 
5520 
5530 
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DEF INS 
PYRCOD 


S 


5630 
5640 
5650 
5660 
5680 

100 
5140 


01704811 


100 
5270 


SWAPPING QVERLAY 


120 


UNDEFINED SYMBOLS 


120 


580 


580 


2680 


2680 


3210 


3210 


5330 


5330 
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S 
ENTER 5280 4610 
MPOFF 5430 
SWAP 5610 


SWAPPING QVERLAY 


4730 


MACRO CROSS REFERENCE TABLE 
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‘TITLE 
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ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS 


M 
DEF INS 
DEF INS 


PAGE 


1 


DEF INS 05/31/72 01704115 ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS 


PAGE 2 
5720 wktST ON 

5730 ,END 

150 HEAD OM 


MP0 
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M 


004000 
000702 
000702 
000703 
000703 
000704 
000705 


Pol000 
901001 
001002 
§01003 
901004 
901005 


001006 
901007 
po1040 
801081 
001042 
901043 
001044 
901045 
001046 
001047 
901020 
001021 
00102 
801023 
001024 
001025 
001026 


604027 


6014006 


604214 
004265 
604631 
000000 


104162 
400525 

01760 

40120 
600270 
744020 
0414760 
200000 
$01633 
044715 
500634 
341634 
040000 
2014714 
440704 
440705 
601042 


001087 


001027 
901030 
@01031 


104162 
440704 
440705 


04904815 


TABLE 


INSTR 
TEMP2 
OPcoD 
TEMPS 
TEMP4 
TEMPS 
MPSTRT 


MPST 
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PAGE 3 


MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 


MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 


JSTITL 

»OEFIN 

+ PMC SAVE,OFF 
#1/16.+740000 
PMC RESTORE 
»ENQM 

+LOC OVSTRT 
,eOU $0CO 
»EQU $QCO 
»EQU $OC1 
,EQY $OC1 

2 EQY $0C2 
»&OV $QC3 
JMP MPST 
JmMP PINTet 
JMP 10TO 
RDBLK 

MP -OPR, 
DSA 


107 TABLE ENTRY 


OVERLAY ENTRANCE VECTOR 
ENTRANCE FOR PROGRAM INTERRUPT SIMULATION 


POINTER TO THE ROABBLOCK ROUTINE 
POINTER TO OPERATE HANDLING 
PERMANENT INSTRUCTEON SAVE IN CASE IT IS & GRAPHICS f1 INSTRUCTION 


AN LOT INTERRUPT HAS OCCURRED ~- GENERATE a USER PI INTERRUPT IF THE PI SYSTEM IS ON 
TREAT AS YF LOCATION 4 CONTAINED AN XCT OF TWE USER'S LOCATION 2 ~-= ONE XCT 1S STILL LOGAL 


JMS 
JMS 
ac 
MATRAL 
RE? 


CLELYRAR 
pac 


eee 
JMS 
Dz” 
DZ 


REGSAVE 
$30,0T 
$JORS 


$PIDON 
$JORS 


0 
(677777) 
$,0 
SBITO 
aa 


$, 004 
TEMp4 
TEMPS 
MP1iie64 


REGSAVE 
TEMP 4 
TEMPS 


SAVE USER TEMPS 
LOAD THE YSER'tS JORS WORD 


EXIT JF PI SYSTEM IS NOT ENaaLED 
ELSE TURN OFF THE PY SYSTEM 


REMOVE THE MEMORY PROTECT BIT 
SET THE USER PC IN HIS LOCATION 0 
SAME THE LINK STATOS 


Fake THE NEXT INSTRUCTION CAME FROM LOCATION 4 WITH MEMORY PROTECT ON 
LOAD THE USER'S LOCATION 1 INSTRUCTION 

INITIALIZE THE COUNT OF MEMORY OVERLAY EXCHANGES 

INITIALIZE THE XCT COUNT 

AND CHECK FHE INSTRUCTION 


SAVE THE MQ AND SC 
INITIALIZ& THE COUNT OF MEMORY OVERLAY EXCHANGES 
INITIALIZE THE XET COUNT (CHECK FOR XCT LOOPS) 


CHECK To SEE IF THE VIOLATION WAS CAYSED BY AN ATTEMPT TO TRANSFER TO PROTECTED MEMORY 


05/31/72 01504415 ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 4 


M MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 
Polo032 200000 660 LAG 0 LOAD THE USER PC 
901033 500651 670 AND SADRSS GEr RID OF NON@ADDRESS BITS 
901034 344635 660 TaD (-BOUNDARY) 
Q01035 75540, 690 SPAICLAICMAICLE SKIP UNLESS A TRANSFER TO PROTECTED MEMORY WAS REQUESTED 
901036 601240 700 JMP ERR4 YES -~ VIOLATION WaS a TRANSFER TO PROTECTED MEMORY w= ILLEGAL 
740 * 
720 * THE VIQLATIQN WAS NoT CAUSSD BY AN ATTEMPT Tq TRANSFER To PRoTECTRHD MEMRY 
730 « NOW GET THE VIOLATING INSTRUCTION AND SEPARATE OUT ITS OP CODE 
740 « 
901037 340000 750 TaD 0 YIELDS LOCATION OF THE OFFENDING INSTRUCTION AND SETS THE LINK 
901040 940702 760 Dac INSTR 
901041 220702 770 MP114 La INSTR,X 
Pol042 040702 780 DaG INSTR INSTR CONTAINS THE BAD INSTRUCTION 
901043 044005 790 pac PINST SANE THE INSTRUCTION IN CASE IY IS A GRAPHICS II INSTRUCTION 
901044 504636 800 AND (NOP) 
Oo1045 744200 810 SNA 
001046 401236 820 JMP ERRZ CAL IS AN ILLEGAL sNSTRUCTION 
801047 040703 : Dac OPCOD SAVE THE OP CODE OF THE yVIOLATING INSTRYCTION 
840 . 
850 * NOW CHECK FOR A MICRO*GODED INSTRUCTION: OPERATE Op !0F 
860 . 
9013050 544637 870 SAD (EAE) 
fol051 604115 880 JMP 0,K, EAR INSTRUCTIONS ARE INNOCENT 
901052 541636 890 SAD COPR) 
901053 604634 900 OPRST JMP .OPR, OPERATE INSTRUCTION VIOLATION 
901054 544640 910 SAD (107) 


801055 604202 920 JMP JOT, SERVICE 10T VIOLATION 


MPO 


001056 
001057 
001060 
001061 
001062 
001063 
001064 
001065 
001066 
901067 
001070 
001071 
901092 


901073 
801074 
901075 
901076 
901077 
901100 
901101 
901102 
901103 
901104 
901105 
001106 
001107 
polis0 
Oo1141 


Qo1142 
601143 
901144 
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M 


200702 
501641 
741200 
601073 
200702 
301642 
5341643 
460702 
740000 
220702 
500651 
240703 
040702 


200702 
500651 
341644 
744100 
604112 
341644 
741300 
604115 
341645 
741100 
601112 
see 

54100 
604241 
604115 


201647 
340702 
040702 


004145 


930 
940 
950 
960 
970 
980 
990 
1000 
1010 
4020 
1030 
4040 
1050 
1060 
1070 
1080 
4099 


it?§ 
11420 
1130 
4140 
1450 
1160 
1170 
1180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
1290 
4300 
4310 
4320 
4330 
4340 
1350 
4360 
4370 
1380 
4390 
4400 
4410 
4420 
1430 
4440 


01504815 


Zeee2#+ &s 
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MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 

.EJECT 

NOT A MICROCODED INSTUCTION, SO ESTABLISH THE EFFECTIVE INSTRUCTION 


LAC INSTR 

AND (020000) 

SNA SKIP IF THE VIOLATING INSTRUGTION Had THE INDIRECT BIT ON 
JMP MPBAYL ELSE CARRY ON NORMALLY 

LAC INSTR LOAD THE ORIGINAL INSTRUCTION 

AND (47770) RETAIN THE ADDRESS ONLY ~~ DBLETING THE LOW ORDER THREE BITS 
SAD (40) SKIP JF aDDRESSED LOCATION WaS NOT AUTO~INDGX REGISTER 
NX INSTR, X ELSE INCREMENT THE LOCATION 

NOP IT JUST MIGHT SKIP 

Lac INSTR,X 

AND SADRSS RECOVER TMG EFFECTEVE ADDRESS 

yor OPCOD AND ADD THE OP CODE BACK IN 

DAC INSTR SAVE THE (CONSTRUCTED) EFFECTIVE INSTRUCTION 


VIOLATION WaS A MEMORY REFERENCE INSTRUCTION (OTHER THAN CAL, JMP, JMS, OR XCT) 

WHICH ATTEMPTED *O REFERENCE A LOCATION BEKOW THE BOUNDARY, 

OR THE VIOLATION WAS AN XCF OR Pf ENTERRUP? AND THE REFERENCE MaY NOT BE TO PROTECTED MEMORY 
REFERENCES TO 0-7 & 21-27 MUST BB FAKED) REFERENCES TO 10-20 8 30037 ARE CARRIED OUT LITERALLY 


Lac INSTR LOAD THE OFFENDING INSTRUCTION 
AND SADRSS RETAIN JUS® THE ADBRESS BITS 
TaD (#490) 

SPA 

Th FAKIT : REFERENCE FO 0-7 

TAD (#40) 

SPA 

Jme 0,K, REFERENCE TO 10-47 

TAD (*20) 

SPA 

ume FAKIT REFERENCE ¥0 24-37 

fad (=BOUNDARY +49) 

BPASCLA 

JMP ERR2 THE REFERENCE 18 TO 40-BOUNDARY 
Jue 0,«, THE REFERENCE 3S ABOVE THE BAUNDARY 


CONVERT THE LEGAL PROTECTED MGMORY REFERENCE TO A REFERENCE TO THE USER TABLE 


LAG ($.0) 

fad INSTR CONVERT REFERENCE TO ROINY TO USER TABLE IMAGE 

DAG INSTR 

NOW DQ THE USER INSTRUCTION 

eae NOTE THE USER Mg, SC, 10+ 8 11 ARE STILL O.K. AT THIS POINT 


UNLESS ARRIVED AS A PI INTERRUPT, IN THAT CASE 16 @ 11 
MAY BE OFF» BUT THE USER'S LOCATION 1 CANIT LEGALLY BE A 
MEMORY REFERENCE INSPRUCTION, ANYWAY, 


MPO 


001145 
0011496 
001147 
901120 
001121 
001122 
901123 


801124 


901125 
901126 
01127 
01130 
001131 
901132 
901433 
601134 
01135 
01136 
901137 
901140 
Ooisas 


901142 
091143 
001144 
901145 


Qo01146 
901147 
001150 
901154 
901452 
901153 
001154 


601155 
901156 
001157 
901160 
001161 


05/31/72 
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200703 
540634 
601155 
541650 
601142 
$416514 
401146 
200000 
740040 
200005 
400702 
741000 
440000 
040005 
200000 
§00644 
741400 
240634 
040000 
404170 
600274 


200000 
5016353 
060702 
440702 


200000 
301640 
040000 
#00702 
500651 
840000 
604137 


200705 
750200 
601235 
440703 
601041 


004162 


001162 
001163 
901164 
901165 
901166 


740040 
641002 
044754 
643001 
0414755 


01504315 


* 
MP12 


oJdMP, 


XCT, 
XCT1 


REGSAVE 


ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 6 


SPECIAL 


Lac 
Sad 
JMP 
SAD 


SPECIAL 


Lac 
AND 


ENTER 
.PMC 
XX 
Laca 
Bac 


LACS 
DAC 


MEMORY PROTECT ROUTINES COMMON TO SOTH OVERLAYS 


CASE OP CODES 


OPCOD 
$BIT0 
XCT, 
(JMS) 
JMS, 
(IMP) 
UMP, 
0 


SIAC 
INSTR 


0 
$3AC 
0 
$080 


SBITO 
0 


REGRES 
SPIDN2 


RELOAD THE OP CODE 
VIOLATION WAS AN XCT INSTRUCTION 
VIQLATION WAS CAUSED BY & JMS INSTRUCTION 


RESTORE THE USER'S LINK FOR PHIS OPERATION 

ANB ALSO HIS aC 

EXECUTE THE USER+S INSTRUCTION 

AVOID INCREMENTING TWe RETURN IF THE YSER'S INSTRUCTION DID NOT SKIP 
BUT BUMP THE RETURN IF THE USER'S INSTRUCTION DID SKIP 
ANB SAVE THE USER'§ ac 

INITIATE SAVING FHE CURRENT USER LINK 

CLEAR THE OLD LINK 

1S THE LINK ON? 

VES, SO SAVE JT 

RESAVE THe CURRENT USER RETURN, WITH LINK 

RESTORE HIS REGISTERS THAT WON'T GET OTHERWISE RESTORED 


MEMORY REFERENCE INSTRUCTIONS 


0 
(677777) 
INSTR, X 
INSTR 


0 
(700000) 
0 

INSTR 
SADRESS 

0 

MP415 
TEMPS 
ERR4 


TEMPS 
MP1i1 


SAVE,ON 


SMQ 
$$Cc 


LOAD THE USER'S pc 

TURN OFF THE MEMORY PROTECT BIT 

SET THE USER PC AT THE START OF THE SUBROUTINE 
AND INCREMENT THE TRANSFER 


LOAD THE YSER'S AC 
KEEP THE W4GM ORDER BITS OF THE PC 


GET YTwE NEW USER PB 

COMBINE [YT WITH THE QLD WIGH*ORDER BITS 
EXIT 

LOAD FRE XET COUNT 

CHAINED XCT!S NOT VET LEGAL 

NOW COUNT THE XCT 

AND ITER,TG 


SAVE THE REGISTERS TwAT wAVEN'T ALREADY BEEN SAVED 


THE FOLLOWING LOCATIONS MaY ALTER IF THE VIOLATION WaS AN IOT INSTRUCTION 


MPO 


001167 


05/31/72 
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624162 


004170 


901170 
001171 
001172 
001173 
901174 
001175 
901176 
001177 
901200 
901201 


740040 
201755 
241652 
341653 
§01654 
044176 
740040 
2014754 
652000 
621170 


1959 
1960 
1970 


1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 


017044915 


REGRES 


ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 


MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 


Ret REGSAVE, ¢ 

ENTER RESTORE THE REG|STERS THAT REGSAVE SAVED 
,PMC = SAVE, QN 

XX 

Lac $SC RELOAD TH OLD STEP COUNT 

XOR (77) COMPLEMENT THE STEP COUNT 

TAD (649492) DEVELOP A PSEUDOsNORMALIZE INSTRUCTION 
AND (640477) DELETE POSSIBLE STEP COUNT OVERFLOW 

pac 44 PLACE THE NORMALIZE INSTRUCTION IN SEQUENCE 
KX STEP COUNT TO TWE SC 

Lac $MQ RELOAD THE OLD MQ 

MQ AND ST IT 

RET REGRES» X 


901202 
001203 
901204 
001205 
001206 
G01207 
Gol2d0 
001241 
poi2s2 

01243 


05/31/72 
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200702 
501655 
541656 
601246 
200702 
640504 
040702 
6414601 
740200 
440005 


002244 


001294 
001245 
001216 
001247 
901220 
001221 
901222 
001223 
001224 


901225 
901226 
001227 
601230 
Po01231 
901232 
001233 
001234 


001235 
901236 
001237 
901240 
001241 
001242 
001243 
901244 
001245 
901246 
§01247 
001250 


440266 
761333 
040010 
2200140 
540702 
604225 
944346 
604366 
604217 


2200140 
040702 
644002 
040703 
742010 
751100 
440702 
601374 


340644 
340644 
741000 
440000 
341637 
041706 
4104170 
764004 
600335 
101170 
761005 
600335 


04504415 


- &@ & & 


lol, 


1QT2 


ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 8 
MEMORY PROTECT ROUTINES COMMON TO BOTW OVERLAYS 


,EVECT 


VIOLATION WaS AN IoT [INSTRUCTION -» SEPARATE TWE MICRQCODING FROM THE REST 


Lac 
AND 
SAD 
JMP 
Lac 
LRS 
DAC 


$2 
DZM 


INSTR 
(SSPMSK) 
(SSPECTAL) 
SWAP2 
INSTR 


4 
INSTR 


BAGCLAILLS 1 
A 


$SAC 


LoAD THE VIghATING IoT INSTRUCTION 
RECOVER THE "SPECIAL" BITS 

AND CWECK THEM 

YES ~~ GET THE SPECIALS MANDLER 

ELSE RELOAD THE VIQLATING 107% INSTRUCTION 
PUY THE MICROCODED BITS IN TWE MQ 

SAVE FILL * ALL QUT THE MICROCODED BITS 
REGQOVER TwE CLEAR ac BIT 


ZERQ THE USER AC IF THAT BIT WAS SET 


00K UP THE IOT AND BRANCH TQ THE PROPER HANDLING ROUTINE 


JMP 


COMMON ERROR MESSAGES 


TaD 
fad 

KP 

NX 
TaD 
Dac 
ums 
Law 
JMP 
JMS 
LAW 
JMP 


$DKLOK 
1OTTT+$ 


SOITi17 
SBIT17 


0 

(2) 
SUTEM2 
REGRES 
SSWERR 
SSWAP 
REGRES 
$SWSPL 
gSWAP 


CLEAR THE DISK*YSE FLAG 


SET UP THE TABLE READ 

READ YHE NEXT TABLE ENTRY 

CHECK AGAINST THB ENSTRUCTION IN QUESTION 
MATCNES-eBRANCM 70 THE HANDLING ROUTINE 
CHECK FOR THE END OF THE TABLE 

DONE, AND NO MATGH FOUND 


SET THE TRANSFER 
SE® THE MICROCODE 


SKIP JF THERE }$ NO I1OPS EVENT TIME 1 EVENT 
ELSE BUMP FHE ENTRANCE 


CHAINED XCT18 
ILLEGAL INSTRUCTION 


ILLEGAL TRANSFER PC NEEDS TO BE FUDGED TO BE ONE TOO GREAT (LIKE ALL BLSE) 
BAB ADDRESS 

SET TwE ERROR MESSAGE NUMBER 

FIX Up THE USER REGISTERS BEFORE TRANSFERRING OUT OF THIS ROUTINE 


GET THE SWAPPER e- ERROR MESSAGE ENTRY POINT 
FIX UP THE USER REGISTERS REFORE TRANSFERRMRING OUT oF THIS ROUTINE 


GO READ IN THE MONETOR/MBSSAGE PHANTOM PROGRAM 


MPO 05/31/72 04504315 ROUTINES TO SERV:CE MEMORY PROTECT VIOLATIONS PAGE 9 


M MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 
25990 
2600 
001251 2610 Oac ENTER INCLUSIVE OR AC WITH USER ac FOR IOT'S 
,PMC SAVE,ON 
001251 740040 XX 
P01252 040002 2620 pac S3TM21 
901283 740001 2630 CMA 
801254 §00005 2640 AND $S3AC 
901255 240002 2659 KOR SITM24 
601256 040005 2660 pac SSAC 
901257 624251 2670 RET Oac,X 
2660 
2690 . 
001260 2700 TEMS ENTER DETERM|NE WHETHER OR NOT THERE 7S AN OPS BVENT TyME 3 EVENT REQUESTED 
,PMC SAVE,QN 
Qo1260 740040 Xx 
901261 200703 2710 Lac TEMPS 
001262 751100 2720 SPASCLA 
001263 6214260 2730 RET TIM3,X YE® -= GO pO IT 
001264 601614 2740 JMP MEMD1 EX!T 
2750 
2769 * 
2770 ° RDBLK LOOKS FIRS” aT THE USER DUE TO RUN NEXY, IF HE I$ 1/70 ROADBLOCKED, THE 
2780 * FOLLOWING USER IS EXAMINED, THIS PROCESS 18 REPEATED UNTIL SOME USER IS FOUND 
2790 * WHO IS FREE TO RUN, NOTE THAT THE ROUTINE, ONCE ENTERED, WILL LOOP INDEFINITELY 
2800 * UNTIL A FREE USER IS FOUND, 
2810 * 
2820 * WHEN A FREE USER JS FOUND, THE RETURN IS ISMEDIATE WIth HIS RE-ENPRANT 
geet ® TEMPORARY STORAGE SET UP, 
284 s 
2850 s ROBLK ENABLES THE INTERRUPY SySTemM TO PERMET TELGTyPA I70 TO 
2860 * QO ON WHILE CHECKING FOR ROADBLOCKS, OTHERWISE «4 TELETYPE 
2870 * 170 ROADBLOCK COULD NEVER BE RELIEVED, THIS MEANS THaT BEFORE 
2880 ° BNABLING [NTERRUPYS, TWE CALLER'S SAVED aC; 210, &@ 11 MUST BE 
2890 * COPIEDs AND RECOPJED BEFORE EXIT, 
2900 ° . 
2910 . THIS ROUTINE RUNS WITH THE CLOGK OFF TO PREVENT RE~ENTRANCE 
2920 . av a TIME WHEN 1” WOULD CRASH THE SYSTEM, gL$O NO ONE IS RUNNING 
2930 * AS LONG AS WE ARE HUNG IN PHES LOOP, SO NOTHING IS LOST, 
2949 sd 
001265 2950 ROBLK ENTER 
, PMC SAVE,OQN 
001265 740040 XX 
901266 700004 2960 CLOF 
001267 200000 2970 Lac 0 
801270 040702 2980 Dac TEMP SAWE THE RETURN 
901271 200005 2990 Lac $3AC 
901272 040703 3000 pac TEMPS THe SAVED AC 
001273 200026 3010 Lac $,310 
001274 040040 3020 pac 10 TME SAVED AUTO*INDEX REGISTER 10 
901275 200027 3030 Lac $,311 
901276 040011 3040 Dac 14 THE SAVED AYTQ=INDEX REGISTER 14 


MPO 


001277 
001300 
901301 
901302 
901303 
901304 


001305 
001306 
001307 
001340 
001341 
901342 
001343 
001344 
001345 
001346 


05/31/72 
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700042 
204771 
§40404 
604310 
540133 
6043138 


200102 
404317 
760076 
200134 
404317 
760125 
200160 
404317 
760154 
601305 


001317 


001347 
001320 
Ool3e1 
No13e2 


901323 
901324 
901325 
901326 
001327 
901330 
9013314 


001332 
§01383 


740040 
742010 
744500 
624317 


700002 
200702 
040000 
200703 
040005 
424347 
100543 


700044 
621265 


01504115 


Seessts 


ze & & 


ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 
MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 


ION 

Lac SNUMBR SER WHO IS RUNNING; IF ANYONE 

SAD SCTNAM 

JMP ROBK2 #1 IS NOW RUNNING «- SO GIVE #2 A CHANCE 
8aD SLINAM 

JMP RDBKS #2 1S NOW RUNNING «= $O GIVE #3 A CHANCE 
Lac SCTFLG LQaD USER #0 1/0 FuAGS 

JMS RDBKS SEG IF USER wo IS t/q RoADBLACKED 

Law SCTBIN@2 LOAD aA POINTER TO WSER #6 PARAMETERS 

LAC $L1FLG 

JMS RDBKS SEE JF USER #1 1S %/0 ROADBLOCKED 

Law SLIBIN]2 

Lac SL2FLG 

JMS RDBKS SER {F YSER #2 18 170 ROQADBLOCKED 

LAW $L2BIN=2 

JMP RDBK4 Loap 

SEB IF THE SPECIFIED USER IS I/p RQADBLOGKED, IF So RETURN To THE 
ROADBLOCK ROUTINE FOR aNOTHER TRy. IF NOT, EX]T wi? MH HIS TEMPS SET UP, 
ENTER 

, PMC SAVE,ON 

xX 

RTL YELEPRINTER FLAG YO LINK? KEYBOARD FLAG TO AC(O) 
SZLISPA SKIP [F THERE JS NO £70 ROADBLOCK 

RET RDBKS,X ELSE YRY THE NEXT ONB 


A NON*RQADBLOCKED USER WAS BEEN FOUND, TURN @FF THE INTERRUPT 
SYSTEM, SET UP HJS REeENTRANT PARAMETERS AND EX], 

NOTE THAT AYTO@INDEX REGISTERG$ 10 & 11 ARE ALREADY CORRECT 

$0 ONLY THE AC AND THE RESTART ADDRESS NEED TO BE RESTORED. 


{OF TURN OFF YHE INTERRUPT SYSTEM 

Lac TEMP2 

pac 0 RESTORE THE SAVED RETURN 

Lac TEMPS 

pac SIAC AND THE SAVED AC 

xcf RDBKS,X LOAD THE POINTER YO WIS PARAMETERS 
JMS $JO,IN AND GO SEF THEM UP 

NOW We ARE EVIDENTLY READY TO RUN SOMEONE AGAIN, SO TURN IT 
BACK ON, 

CLON 

RET RDBLK,X DONE 


END 
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MP1--B03 05/31/72 01704915 ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE {1 


M TELETYPE, DISK, AND DECTAPE ROUTINES (MAINLY) 
120 SSTITL TELETYPE. DISK, AND DECTAPE ROUTINSS (MAINLY) 
130 * 
140 * to’ INSTRUCTION "RANSFER TABLE 
150 * 
001334 160 Tort Mag YOT INSTRUCTION TRANSFER TABLE 
001334 774929 170 774020 799490 
801335 601465 180 JMP CTLP TSFSTCF3TLS 
001336 774014 190 774014 700300 
901337 601523 200 MP CKBD KSFyKRB;YORS 
901340 774002 210 774002 700040 
001341 601576 220 JMP »QN LONSGLON 
901342 774154 230 774154 703300 
P01343 601553 240 JMP BRKy TTS;DBK; CAE 
001344 774000 250 774000 107 NOP 
901345 601614 260 MP MEMD4 
901346 004000 270 1oTT9 1000 FLAG THE END OF YHE TABLE 
280 
290 
300 * 
310 * SUBROUTINE TO CHECK FOR aN 1/0 ROADBLOCKED CONDITION, THIS OCCURS IF aN JOT SKIP 
320 * INSTRUCTION FAILS TO SKIP AND THE FOLLOWING INSTRUCTION IS A CUMP ,~1>, THE ROUTINE 
3350 * RETURNS 3 IF ALL IS NORMAL OR 42 TF AN [70 ROADBLOCK WAS DISCOVERED 
340 « 
0014347 350 1OBLK NFER 
, PMC SAVE,ON 
001347 740040 XX 
001350 754101 360 SPAICLAICMA SKIP JF [OF FLAG I8 NOT SET 
901351 601360 aa JMP 10BL8 ELSE EXIT, INCREMENTING THE USER'S PC 
380 bd 
390 * NoW CHECK FoR A TIGHT Loop -- SIOY SKIP ON FLAG>, <JMP S=-1>, 
400 * 
001352 340000 410 Tad 0 NOTE THIS ALSO COMPLEMENTS TWE LINK 
01353 800651 420 AND SADRSS ESTABLISH THE VALUE OF <.-4> 
01354 240632 430 XOR SUMP FORM <JMP a=t> INSTRUCTION 
901355 $60000 440 SAD 01% SKIP JF NOT A TIQHY LOOP 
001356 441347 450 {NX 1OBLK ELSE BUMP THE RETURN 
901357 744002 460 SKPSCML CORRECT THE LINK 
901360 440000 470 308.8 1NX 0 
001361 6214347 480 RET 1QBLK,X 
490 
004362 500 MFLG ENTER 
PMC SAVE,QN 
001362 740040 XX 
£01363 241760 510 XOR SJORS 
901364 041760 520 pac STORE 
001365 621362 530 RET MFLGsX 
540 * 
550 * : 
560 * ROUTINE TO CALL MEMORY prOTECTION OVERLAY #2 IF IT WaS NOT ALREADY 
570 * WAD ITS CHANCE AY THE VIOLATION 
580 * 
004366 590 1OTSW er 


MP1--B03 


001366 
901367 
901370 
001371 
001372 
001373 


05/31/72 
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200704 
750200 
604256 
440704 
764040 
600335 


600 
6140 
620 
630 
640 
650 


ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 42 


TELETYPE. DISK, AND DECTAPB RQUTINES (MAINLY) 


TEMP 4 


ERR3 
TEMP 
SSWMPQ 
SSWAP 


LOAD THE OVERLAY C@UNT 

SKIP UNLESS ALL OVERLAYS HAVE ALREADY HaD A CHANCE 

ELSE THIS WAS THE EAST CHANCE ©~ IT MUST WAVE BEEN AN ILLEGAL INSTRUCTION 
COUNT THIS OVERLAY 

LOAD A POINTER TO *WE SWAPPER ENYRANCE TO GET THE NEXT OVERLAY 

AND GET IT 


MP1--BO03 


05/31/72 
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001374 


901374 
001375 


001376 
901377 
901400 
901404 
001402 


01403 
001404 
001405 
901406 
901407 
001449 
901441 
Poida2 
£01443 
901444 
901445 
01496 
601447 
001420 
901421 
001422 
001423 
901424 
001495 
001426 
001497 
901430 


001431 
0014352 
901433 
001434 
001435 
001436 
001437 
001440 
001441 


204771 
490513 


201760 
500634 
700304 
501660 
044760 


200235 
540035 
601412 
201760 
701661 

44769 

01416 
200234 
750200 
201662 
104362 
200230 
540035 
601425 
2014760 
501663 
0447460 
604431 
200227 
750200 
201650 
404362 


200053 
741100 
601440 
200052 
840054 
601442 
750003 
501664 
101362 


01304815 


1OT3 


MPT4 


MRT2 


MRS 


zeewestse 


KBD 


ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 
TELETYPE. DISK, AND DECTAPE ROUTINES (MAINLY) 


EJECT 

ere 

Lac SNUMBR LOAD TTY NUMBER (— POINTER TO RESIDENT PARAMETERS) 
JMS $JO,IN SEF UP THE RESIDENT PARAMETERS 


SET UP THE USER'S IORS WORD -~+ MOST ROUTINES IN THIS OVERLAY NEED [IT 


Lac $JORS 

AND $B1TO 

{ORS~10 {INCLUSIVE OR THE STATUS «~~ SOME FLAGS KEPT IN HARDWARE 
AND (401400) KEEP ONLY THE NOeTAPE FLAGS 

pac SIORS 


SET UP THE READE? AND PUNCH FLAGS IF THyS READER waS TwE APPROPRIATE DEVICE 


Lac SRPTR 

SAD SRCORE 

JMP MPT4 THIS ySER WAS THE BEADER, $O SET HIS FLAG 
Lac SI[ORS 

AND (776777) ELSE REMOVE THE READBR-OUT-OF-TAPE FLAG 
pac SJORS 

JmMP MPT? AND CHECK ON YHE PWNCH 

Lac SRFLAG 

SZAICLA 

Lac (200000) 

ums MFLG SET THE READER FLAS IN THE JORS WORD 
Lac SRPTP 

SAD SRCORE 

JMP MP3 THIS USER HAS THE PUNCH, SO SET WI6 FLAG 
Lac S{ORS 

AND (777377) ELSE REMOVE THE PUNCHeOUT-OF a TAPE FLAG 
pac SJORS 

JMP MK BD ANB CHECK ON THE TELETYPE KEYBOARD 

Lac SPFLAG 

SZAICLA 

Lac (100000) 

JMS MFLG SET THE PUNCH FLAG IN THE TORS WORD 


YHG@ KEYBOARD FLAG GETS SET IF EITHER! 
BOTH THE OUTPUTe{N=PROGRESS AND SOFTWARE KEYBOARD FLAGS ARE SET OR 
THE QUTPUT-~IN-PROGRESS FLAG [8 NOT SEF AND THE ROTARY BUFFER 18 NON-EMPPY, 


Lac S3TEM2 LoAD THE SOFTWARE MEYBOARD FLAGS 
SPA SKIP [F OUTPUT 1S wot IN PROGRESS 
JMP MK4 ELSE CHECK THE SOFTWARE KEYBOARD FLAG 
ac SOTEMS 
AD S3TEMO 8KIP [F THE ROTARY BUFFER 18 NON@EMPTY 
JMP MTLP EMPTY BUFFER ~~ @XUT WITHOUT SETTING THE FLAG 
cL¢ NONEMPTY BUFFER ~4 LOAD KEYBOARD FLAG (WETM OTHER GARBAGE) 
AND (040000) KERP JUST THE KEYBOARD FLAG 
JmMs MFLG SET THE KEYBOARD FRAG 


13 


MP1--B03 


001442 
001443 
001444 
001445 
0091446 
001447 
901450 
901451 
001452 
001453 
901454 
901455 


001456 
901457 
901460 


001464 


001462 


Q5/31/72 
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200053 
740100 
601454 
504641 


74142 

solaes 
200051 
400623 
540052 
6014462 
204641 
101362 


204764 
740200 
201665 


101362 


620702 


01504415 


xss 28 @ 


TLP 


MT2 


ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 


TELETYPE, DISK, ANB DECTAPE ROUTINES (MAINLY) 


THE TELEPRINTER FLAG GETS SET IF EIS THER: 


Lac 
SMA 
UMP 
AND 
SNA 
JP 
Lac 
JMs 
B,D 
Th 
Lac 
JMS 


CHECK THE DISK CONDITION 


Lat 
BZA 
Lac 
JMS 


JMP 


SSTEM2 


MTL 
(020000) 


MT2 
SSTEMO 
SNXPTR 
SOTEMY 
MT2 
(020000) 
MFLG 


SDFLAG 


(000020) 
MFLG 


TEMP2,X 


THE OUTPUT-IN-PROGRESS FLAG JS S&T ANB THE ROTARY BUFFER IS WON-FULL OR 
THE OUTPUT-~IN-PROGRESB FLAG 18 NOT SEF 


LOAD THE TELETYPE SOFTWARE FLAGS 

SKIP JF OUTPUT 18 IN PROGRESS 

ELSE OUTPUF IS O,K. 

RECOVER THE TELEPRINTER FLAG 

SKIP IF 17 18 SEF 

ELSE DONYT SET IT &n THE [ORS WORD 
LOAD THE INPUT POINTER 

ANB FIND QUT THE NEXT LOCATION 

SKIP UNLESS THE BUFFER WOULD OVERFLOW 
In WHICH CASE Do yot SET THE FLAG In THE IORS WORD 
ALL SET «» LOAD THE TELEPRINTER FLAG 
ANB SET {Tf IN THE FORS WORD 


LOAD THE USER'S SOFTWARE DISK FLAG 


SET THE DISK FLAG IN THE LORS WORD 


GO TO THR GORRECT SERVICE ROUTING 
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MP1-~BUS 


001463 
001464 
901465 
001466 
001467 
901470 
0014714 
001472 
001473 
001474 
001475 
901476 
001477 
001500 
001501 
901502 
001503 
001504 
901505 
901506 
001507 
9015140 
Nol5a1 
901542 
901543 
901514 
901545 
901546 
001547 
001520 
901821 
001522 


001523 
0015294 
001525 
001526 
901527 
901530 
9015314 
001532 
901533 
001534 
001535 
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6014474 
2014760 
640704 
401347 
601474 
200645 
500053 
2414662 
040053 
740400 
601504 
200053 
501666 
040053 
101260 
200053 
744100 
601541 
400540 
200005 
400056 
601516 
200005 
600643 
040002 
100546 
74000 

20005 

$04667 
244670 
040053 
604644 


601554 
204760 
640703 
404347 
604534 
2016383 
5000583 
241650 
040033 
740400 
601547 


1440 
£450 
1460 
1470 
1480 
4490 
4500 
4510 
4520 
4530 
4540 
1550 
1560 
4570 
1580 
1590 
4600 
4610 
1620 
1630 
4640 
1650 
4660 
1670 
4680 
4690 
1700 
1710 
4720 
4730 
4740 
4750 
1760 
4770 
4780 
4790 
4800 
4610 
4820 
4830 
4840 
4659 
4860 
18709 
4880 
4890 
1900 
4910 
4920 
1930 
4940 
4950 


015044515 


CYLP 
TSF 


CTLPS 
TCR 


72 
TLS 


eTLSL 


»TLS2 


CKBD 


CKBDS 


se 8s * & 
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TELETYPE 


CTLP4L 
SITORS 


4 
1OBLK 
CTLP4L 
$081 
SSTEM2 
(200000) 
$3TEM2Q 


72 
S3TEM2 
(757777) 
S3TEM2 
TUMS 
SSTEM2 


»TLS4 
SNEWBR 
SSAC 
SSTEMS 
»TLS2 
SSAC 
$BL8 
SSTM24 
SPUTIN 


SSTEM2 
(355777) 
(422000) 
$3TEM2 
MEMD4 


CK8D1 
$JORS 


3 
1QB8L«K 
CKBD4 
(677777) 
S3TEM2 
(100000) 
SSTEM2 


CKBD2 


PAGE 


DSK, AND DECTAPE ROUT;NES (MAINLY) 


NO [OPS EVENT TIME 1 

LOAD THE JORS WORD 

GET TWE FLAG 

CHECK THE FLAG AND FOR 1/0 ROADBLOCK 
NO ROADBLOCK -- CARRY ON NORMALLY 


CLEAR THE 170 ROADBLOCK FLAG 

SET TWE 1/0 ROADBLOCK FLAG 

REPLACE THE SOFTWARE FLAGS 

SKIP [JF THERE 1S AM EVENT TIME TWO ACTIVITY 
ELSE TRY FOR EVENT TIME THREE 

LOAD TME YELETYPE SOFTWARE FLAGS 

CLEAR THE TELEPRINFER FLAG 

AND RESTORE THE UPBATED FLAGS 

RETURN IF THERE 1S aN TOPS TIME 3 EVENT 
pap THE vege ce SOFTWARE AN 

KIP IF OUFPUT [8 WOT INPROGRESS 

ELSE JUST PACK THE OUTPUT 

CLEAR THE INPUT BUFFER 

ELSE LOAD WHAT THE USER WANTS PRINTED 
AND PRINT IT 


YHe BUFFER EXPECTS EIGHT-BIY ASCII 


PLACE THE CHARACTER IN THE BUFFER 

DISCARD ANY OVERFLOW 

LOAD THE TELETYPE SOFTWARE FLAGS 

CLEAR THE O-J-P, TELEPRINTER, AND BUFFER TYPE FLAGS 


15 


SET THE OUTPUTeIN-PROGRESS, TELEPRINTER, aND OUTPUT.BUFFER FLAGS 


RESTORE THE UPDATED FLAGS 


NO OPS EVENT TIME 34 

LOAD THE YSER'S STATYS WORD 

GET THE KEYBOARD FeaG 

CHECK THE FLAG AND FOR 170 ROADBLOCK 
NO ROADBLOCK -- CARRY ON NORMALLY 


CLEAR THE 170 ROAD BLOCK FLAG 
SET THE 1/0 ROADBLOCK FLAG 
REPLACE THE SOFTWARE FLAGS 


NO LOPS EVENT TIME 2 


TRY TO READ THE CHARACTER FROM THE tans BUFFER IF ¢HERE IS NO OyTPuy 


{N PROGRESS, READ THE GHARACTER FROM 


HE SOFTWARE KEYBOARD BUFFER IF THE 


ROTARY BUFFER TURNS OUT TO gE EMPTY, OR JF OUTPUT 1S IN PROGRESS. 


MP1--B03 


001536 
001587 
901540 
001541 
001542 
001543 
901544 
901545 
901546 
001547 
901550 
001551 
001552 


001553 
901554 
901555 
001556 
001557 
601560 
901561 
§01562 
901563 
901564 
901565 
901566 
901567 
801570 
901571 
901572 
901573 
0015974 
9015975 


001576 
001577 
001600 
001601 
901602 
001603 
001604 
001605 
001606 
901607 
001640 


05/31/72 


M 


200053 
501671 
040053 
500640 
744200 
400602 
200053 
500643 
101254 
101260 
201760 
102251 
6014614 


744000 
440000 
740400 
600270 
200250 
344771 
440227 
2002355 
944771 
1402354 
200033 
504672 
040053 
£41760 
141762 
141768 
141764 
144762 
601614 


740400 
6014256 
200703 
751100 
6041256 
204760 
500644 
240654 
0414760 
501673 
740200 


02504415 


ARB 


KRB2 
CKBD2 
+JORS, 


BRK1 
CAF 


10BK 


1 ON 


1 JON 
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TELETYPE, 


PAGE 


DISK, AND DECTAPE ROUTINES (MAINLY) 


CLEAR THE SOFTWARE KEYBOARD FLAG IN ANY CA8E, 


LAC 
AND 
Dat 


SSTEM2 
(737777) 
SSTEM2 
$B1T7 


SFGET 
S3TEM2 
$88 
Oac 
TIM3 
$]ORS 
OAC 
MEMD4 


0 


$PIDON 
SRPTP 
$NUMBR 
SPFLAG 
SRPTR 
SNUMBR 
SRFLAG 
SSTEM2 
(420000) 
S3TEMQ 
SJORS 
SDAPO 
SDAP4 
$DFN 
SDFLAG 
MEMD1 


ERRS 
TEMPS 


ERR3 
$1ORS 
$CBo 
SBITO 
SJORS 
(375220) 


LOAD THE TELETYpE SOFTWARE FLAGS 

CLEAR THE SOFTWARE KEYBOARD FLAG ON ANY KRB 
SAVE YHE UPDATED SOFTWARE FLAGS 

RECOVER THE BUFFER TYPE 

SKIP IF 17 18 AN OWTPUT BUFFER 

ELSE GET THE OLDES¥ CHARACTER IN TWE BUFFER 
LOAD YHE SOFTWARE KEYBOARD BUFFER IF NO INPUT IN BUFFER 
RETAIN ONLY 6~BJT INPUT 

ANB PUT JT IN THE YSERS AC 

RETURN IF FHERE {$5 gh 10PS TIME 3 EVENT 
LOAD THE USER {ORS WORD 


‘TS! -- SKIP [TF NOT TYPE 28 
NO I1OPS EVENT TIME 2 


SKIP JF THE PUNCH IS NOT ASSIGNED TO THIS USER 
PUNCH FLAG 


SKIP JF THE READER 18 NO? a~SSIGNED TO THIS USER 
READER FLAG 
LOAD THE SOFTWARE FLAGS 


16 


KILL ALL EXCEPT THE OUTPUT-IN-PROGRESS FLAG AND EXEC'S TLP FLAG 


RESTORE THE UPDATED FLAGS 
caF alWaYS CLEARS all THINGS ON THE IORS WORD 


DIBK FLAG 
DBK REQUIRES NO ACTION, EVEN IF PRESENT 


SKIP ONLY ifs THERE 18 AN EVENT TIME 2 EVENT (ION) 


THERE WAS AN JLLEGSL EVENT TIME 3 EVENT €CLON) 
LOAD THE YSER'S {ORS WORD 


RESTORE THE IORS WORD WITH THE PI ON 
SKIP IF THERE WERE NO FLAGS ON TO CAUSE INTERRUPTS 


MP1--BU3 


001641 
001642 
001643 


05/31/72 


M 


601007 
404170 
600270 


001644 


001634 
001645 
001646 
001647 
001620 
001621 
001622 
001623 
901624 
001625 
001626 
001627 
001630 


740000 
404170 
100525 
200053 
501674 
744200 
he 
1042 

200035 
540035 
600270 
761003 
600335 


004631 


001631 
001632 
0016383 
001634 
901635 
001636 
901637 
001640 
001641 
001642 
001643 
001644 
001645 
001646 
9016407 
001650 
001681 
001682 
601653 
901654 
001665 
001666 
901657 
001660 
001661 
001662 
001663 
001664 
901665 
901666 
001667 
901670 


764041 
600335 
677777 
400003 
776000 
740000 
#40000 
700000 
020000 
017770 
000030 
777770 
777760 
776040 
004718 
400000 
600000 
000077 
640402 
640477 
777400 
709000 
000002 
401400 
776777 
200000 
777377 
040000 
000020 
757777 
355777 
422000 


01304515 


MEMD4 


eOPR,, 
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ume 
JMS 
RET 


ee 
NOP 
JMS 
JMS 
LAc 
AND 
SNA 
RET 
ums 
Lae 
SAD 
RET 
LAW 
JMP 


eve 
LAW 
JMP 
eEND 


TELETYPE, DISK, AND DECTAPE ROUTINES (MAINLY) 


PINT 
REGRES 
SPIDON 


REGRES 
$10,07 
SSTEM2 
(STOBLK) 


SPIDON 
RDBLK 

S3TEMA 
SRCORE 
SPIDON 
SSWCLK 
SSWAP 


SSWOPR 
SSWAP 
OVSTRT 


GENERATE A USER PROGRAM INTERRUPT 
RESTORE THE REGISTERS 
EXIT 


EX!T MEMORY PROTECT SERVICE 
ALLOW FOR 1OT NOP 


GE? JUST THE USER'S 1/70 ROADBLOCK FLAGS 
SKIP JF A ROADBLOCK CONDITION EXISTS 
ELSE RETURN 

SEE Wwo IS NEXT USBR Not 179 ROADBLOCKED 
LOAD HIS USER NUMBER 

SEE IF IY IS THE CWRRENT USER 

IF SO, EXIT (CONTINUE) 


SWITCH OVERLAYS ANB RESTART AT OPERATE INSTRUCTION HANDLING 
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MP1-"B03 05/31/72 01704515 ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 18 
M TELETYPE, DISK, AND DECTAPE ROUTINES (MAINLY) 


001671 737777 
001672 420000 
001673 375220 
001674 300000 


TRANSFER ADDRESS 601090 


MP1--BU3 05/31/72 01404315 ROUTINES TO SERV'CE MEMORY PROTECT VIOLATIONS PAGE 149 


M CROSS REFERENCE TABLE 
1713 0 4510 4520 480 520 1340 
26 .310 3400 3010 
27 Std 3410 3030 
4464 eT 570 
1550 TORS, 2080 
6460 .TP 550 
2023 i1Q0SAVE 4870 1880 
2024 §=614SAVE 4880 4920 
5 ZAC 3370 1560 1600 2200 £640 2660 2990 3400 1640 1670 
305  3REST 3870 3880 
54 3TEMO 3530 3540 4120 1280 
520 3TEM1 3540 3550 1110 1300 
23». 3TEM2 3559 3569 1080 1220 1510 1530 1560 1580 1600 1720 1750 1860 18809 
4980 2000 2040 2240 2260 2560 
54 3TEM3 3560 3570 
55 3TEM4 3570 3580 2640 
56 STEMS 3580 3590 4650 
57 3TEM6 3590 3600 
50 0 8©=6s 5 MRO 3520 3530 
2  3TM21 3350 2620 2650 1690 
3 63TMB2 3360 
14000 7K 1030 
16000 8K 1020 910 1040 2640 2650 
1753 a 4520 4530 
1756) =a 4550 4560 
2045 ACSAVE 1610 4820 
2022 ACSW 4860 4870 
651 adRSS 4100 4110 670 1070 1470 1880 420 
390 at 2950 
300 0©=©6—s AT SGN 2900 
422030 AS 420 
2154 BONTRL 2330 2340 
634 BITE 3970 3980 490 1489 1640 740 2449 
644 81747 4020 4030 2460 2470 
635 BITS6 3980 3990 
636 = BI TB 3990 4000 
637 ltée 4000 4010 
640 BJT? 4010 4920 20140 
642 BL7 4030 4040 
643 BLB 4040 4050 1680 2050 
2000 ©6306 BQUNDA 979 960 989 990 1000 1630 5040 5080 680 1270 
397 BRK 5550 
2170 BUFFER 2490 2550 
1000 ®BYUFLEN 2500 2550 
644 CBO 4050 4060 4620 2430 
645 CBy 4060 4070 1500 
646 CB5 4070 4080 
647 CB7 - 4080 4090 
650 =6. CBLB 4090 4400 
6  CHRMAX 3180 3200 
2 CHRPAK 3130 3200 
90 CLKMAX 2840 3180 


MP1-~B03 05/31/72 01404915 ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 20 


M CROSS REFERENCE TABLE 
60 CLKEPD 3160 $170 
1757 = CLOCK 4560 4579 
45 CMPY 3499 3500 
46 CMP? 3500 3510 
6 CNTRL 3380 3390 
2053 COMFLG 2200 2210 
2190 COM$TO 2270 2280 
16000 CORMAX 910 980 
47, CSPL 3540 3520 
44 cSwP $480 3490 
60 §©6CTBFR 3600 3630 3640 
109 CTBIN 3640 3650 $670 4250 31440 
2090 CTEMPO 1630 
2004 CTEMP4 4649 
2002 cTEmMP2 1650 
2093 CTEMPS 1660 
2004 CTEMP4 4670 
2005 cCYEMPS 1680 
2006 CTEMP6 4690 
2007 CTEMP? 4700 
2040 CTEMPS 4710 
2041 CTEMP9 4720 
102 CTFLG 3650 3660 3120 
104 CTNAM 3660 3070 
2043 Dp PE 2420 2130 
2154 D CA 2370 2380 
2153 D BDA 2360 2370 
2163 D FDA 2440 2450 
2042 D Loc 2110 2420 
2022 D ACSW 1860 
2156 OD BALT 2390 2400 
2195 D BLEN 2380 2390 
2164 D BMAX 2420 2430 
2157 =D BMIN 2400 2410 
2162 Dp BPYR 2430 2440 
2167 D FMAX 2480 2490 
2165 Dp FMIN 2460 2470 
2046 D MASK 2150 2160 
2164 D MFDA 2450 2460 
2056 DADRSW 2070 2080 
1762 DAPO 4590 4600 2280 
1763 DAP4 4600 4610 2299 
653 DBK 41420 4130 
24 DBKNUM 2220 2270 
2054 DBKTaB 2210 2270 
2055 D@STOR 2030 2060 
42202e7 DDT 410 
12000 DDTST 5000 
2037 DDUMSW 2080 2090 
1764 DFLAG 4580 4590 4370 2310 
1764 DFN 4610 4620 2300 


2154 DFTYPE 23490 2350 


MP1~-B03 


05/31/72 


DHICOR 
DINDIR 
DKO 
DK41 
DK2 
DKCA 
DKDON 
DKLEN 
DKLENB 
DKLOK 
DKOVR 
DKRD 
DKWC 


M 


01704815 


2150 
2180 


4480 
2660 


3840 
4470 


2110 
2440 
2420 
2480 
4140 
4150 
4460 
2360 


2400 
2190 
2200 
2070 
2370 
46350 


3960 
4420 
4410 
4430 
4440 
3200 


3920 
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2250 


2030 


3420 


CROSS REFERENCE TABLE 


690 


PAGE 
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MP1--B03 


05/31/72 
M 
10,0T 3920 
1OBLK 28630 
1 ORS 4570 
10TQ 4900 
JMP 4110 
JTLEN 960 
JTSTRT 950 
KBLEN 3610 
KBNUM 3620 
L OLOK 3630 
LAiBFR 3670 
LLBIN 3699 
LiF aG 3700 
LiLOK 3680 
LANAM 3710 
L2BFR 3720 
L2BIN 3740 
LaFLG 3759 
LeLoK 3730 
La@NAM 3760 
LOR 390 
LORST 5040 
LESS 2929 
M ,QN 23570 
M ,T2 4590 
M ERR 2510 
M MKE 4150 
M MPS 990 
M MTZ 4320 
M MT2 4430 
M Qa 2610 
M CAF 2460 
M ,QBK 2320 
M .ION 2390 
M ,KR®@ 19890 
M ,KSF 4810 
M .TCF 4560 
M .TLS 4600 
M .TSF £460 
M ACSW 4860 
M BRKIL 2140 
M CKBD 1809 
M CTLP 4450 
M ERRY 2490 
M ERR 2500 
M ERRS 2470 
M ERR 2460 
M 1OTO 2240 
mM 10T!S 2280 
M [0T2 2350 
M I0TS 670 


01304315 


3930 
2570 
4580 
1810 
4910 
4120 


940 
3630 
3676 


3680 
3700 
3710 


3090 
3730 
3759 
3760 


3770 


220 
1550 


1400 

940 
1240 
4270 
2670 
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400 


440 
2080 


430 


960 
3640 
3720 


3690 
3720 
3150 


3740 
4330 
3180 


13540 
2060 


620 


CRoSS REFERENCE TABLE 


2550 


459 
2270 


1000 
3680 


4290 


3200 


2090 


2380 


510 520 730 770 
2420 2450 


4400 
3690 3730 3740 


3170 


2410 


840 


970 


PAGE 


1460 
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MP1--B03 


05/31/72 
M 
M KRB2 2060 
M MFLG 500 
M MKBD 1080 
M MP12 4470 
M MPLS 1650 
mM MPST 599 
M MPTZ 880 
M MPT@ 920 
M MTLP 1220 
M O;K, 1400 
M PINT 400 
M TIMS 2700 
M xXCTd 4870 
M,10T, 2110 
M,JMP, 1760 
M, JMS, 4710 
M,OPR, 2670 
MeTLSS 4670 
M,TLS2 4720 
M,XCT, 4840 
MCKBDA 41890 
MCKBD2 2070 
MCTLPS 4540 
MFAKIT 4340 
MINBUF 3200 
MINGTR 230 
MIOBLS 470 
MIOBLK 350 
MIOTSH 590 
MIOTT9 270 
mloTrr 160 
MMDISK 4370 
MMEMDG 22929 
MMPdid 770 
MMPBAL 4160 
MMT APE 610 
MOPCOD 250 
MOPRST 900 
MP4 350 
MPo 360 
MPaCSW 1980 
MPINST 340 
MPOPR 4920 
MPST 4880 
MPSTRT 290 
MG 4530 
MOSAVE 1820 
MRDBKL 3120 
MRDBK@ 3159 
MRDBKS 3180 
MRDBKS 3260 


01404315 


790 
4890 


4540 
1830 
3210 
30890 
3100 
$130 
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910 


1230 
2480 
1590 


900 


1640 


4490 
4260 


770 
1740 


480 


260 
1680 


1089 


19290 


3160 


CROSS REFERENCE TABLE 


1020 


1300 
2070 


789 
1790 


1489 


1760 


1470 


2040 


3190 


1160 1330 1400 


970 1040 1040 1060 
2410 2150 2170 2290 


1830 


2100 2320 


3290 3440 


1090 


1160 


1350 


1369 


PAGE 


1570 
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MP1--BO3 05/31/72 01904415 ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 24 


M CROSS REFERENCE YABLE 
1265 wRDBLK 2950 320 3480 2600 
1244 MSWAPL 2530 
1246 MSWAP2 2550 2440 
2000 MTEMPO 1630 
2004 MTEMPY 1640 
702 MTEMP2 240 2360 2440 2980 3370 1430 
703 MTEMPS 260 2389 2740 3000 3390 2390 
704 MTEMP4 270 530 640 600 630 
705 MTEMPS 280 549 620 1840 1870 
2006 MTEMP6 4690 
2007 MTEMP7 4700 
2080 MTEMPS 47140 
2041 MTEMP9 4720 
422025 MTR 370 
2000 8MTREST 5080 
17742 NAME 4670 4680 
540 NBWBR 3930 3940 1630 
17%4 NUMBR 4660 4679 3040 680 21490 2220 
623 NXPTR 3960 3970 1290 
702 oco 4180 4190 230 240 
703» =OG4a 4190 4200 250 260 
704 §©6©0C2 4200 4210 270 
705 §=0¢3 4210 280 
574646 OFF 2730 
575600 ON 2720 
1773 OVER 4680 4690 
790 OVLEN 940 
1000 OVSTRT 930 920 940 4759 4880 4960 220 2700 
2033 PLOSAV 4990 2000 
2034 PLi8AaV 2000 2050 
2025 PACEAY 41930 1940 
2032 PACEW 4980 1990 
244 PBFLAG 3810 3820 
2047 PCSAVE 4830 1849 
227 =P FLAG 3770 3780 990 2200 
#7 PHO 4260 4270 
126 = PHY 4300 4310 
155 PM2 4340 4350 
1  PHANTO 2780 
2150 PHFLAG 2280 2330 
1700 PHLEN 2640 
2025 PHSTOR 4920 1930 
274 PIDN2 3859 3869 4670 
20 PIDON 3849 3850 430 2170 2500 2590 2630 
1004 PINT 4890 4900 
303 POUT 3860 3870 
602026 PLDR 400 
2026 PMQSAV 1940 1959 
602025 PMTR 380 
2027 PPCSAV 4950 1960 
606064 PPT 520 


2031 PSCSAV 4970 4980 


MP1--Bug 05/31/72 01704415 
M 
2030 pSTSaAV 4960 1970 
606469 PTp 510 
606462 PTR 500 
12100 PURLEN 4010 
1775 PURNM 4700 47190 
3700 PURSTR 2560 990 
546 PUTIN 3949 3950 
34 RACS 3440 
6 RCNT 3390 
35 RCORE 3450 820 
1003 ROBLK 49140 4920 
2 RDTO 3420 
33 RDT4 3430 
11%9 REGRES 1970 1660 
62 REGSAV 1900 390 
422021 RES 330 
40 RESCaT 3470 3480 
1000 RESLEN 920 
234 RFLAG 37990 3800 
250 RPYP 3780 3790 
235 RPTR 3800 3810 
242 RSCO 3820 3830 
1776 RSTRT 47149 
1755 s¢ 4540 4550 
640009 SCRSTR 2670 
2021 SGSAVE 4850 4860 
243 SHARP 2690 
377 SPCOD 5410 
422122 SPL 430 
1000 SPLST 4960 
777400 SPME&K 8390 2120 
2020 © ST SAVE 1840 4850 
335 AP 3889 3899 
336 SWAP1 3890 3900 
340 SWAPS 3900 3910 
1000 SWCAT 4750 4760 
1003 SWCLK 4780 4790 
1004 SWERR 4790 4600 
1n07 SWMPL 4820 4830 
1010 SWMP2 4830 4840 
1002 SWMTR 4770 4780 
Loi SWOPR 4840 2680 
422022 Swe 340 
1084 SWPPR 4760 4770 
40 SWPS 3460 3470 
1005 S$WSPL 4800 4810 
1006 SXSPL 4810 4820 
1390 SYSBAS 2800 2910 
41300 SYSDA 2810 
1777 SYSMAX 2820 
1,00 TABLEN 2630 2640 
2080 TEMPO 4630 1640 
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2540 


2560 


CROSS REFERENCE TABLE 


2560 


2620 


2520 
1950 


2230 
2180 
2210 


1980 


2570 


2559 


650 


2490 


2650 


2540 


2690 


PAGE 
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MP1-~B03 


05/31/72 


TEMP 4 
TEMP10 
TEMP14 
TEMP12 
TEMP2 
TEMPS 


M 


1640 
1730 
4740 
1750 
1650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 

540 
5540 
5530 
4630 
4640 
4650 
4660 
1670 
4680 
1690 
4700 
4710 
4720 
3170 
3140 
3150 
4690 
4630 
4640 
2940 
4250 
4290 
4330 
2790 
2859 

980 
4800 
4280 
4320 
4360 
4440 
4459 
4460 
4470 
4480 
4490 
4500 
4650 


01304315 


1650 
1740 
1750 
1800 
4660 
1670 
1680 
1690 
1700 
4710 
4720 
4730 


3180 


3470 
4700 
4640 
4650 


4260 
4300 
4340 


3200 
2640 
4610 


4450 
4460 
4470 
4480 
4490 
4500 
4510 
4660 
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4280 
4320 
4360 


2540 


CROSS REFERENCE FABLE 


PAGE 
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MP1--B03 


05/31/72 
M 
#1 
#e 
#3 
#4 
#5 
DEF INS 
M #i 
PURCOD 


5630 
5640 
5650 
5660 
5680 

100 

490 
5140 


01404415 


100 
5270 
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120 


UNDEF INE) SYMBOLS 


120 


580 


580 


2680 


2689 


3210 


3210 


5330 


5330 


PAGE 
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MP1--B03 


05/31/72 


ENTER 
MPOFF 
SWAP 

TABLE 


M 


5280 
5430 
5610 

470 


04404315 


1900 
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1970 


MACRO CROSS REFERENCE TABLE 


2610 


2700 


2950 


3260 


350 


PAGE 
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COSTES OCCOC OCS OC COOCOCC CC Lerere reel O00 0.0.0600.9.00009.00.0 000990000000 0000090.00.2.6 000000009006 500900008 0090690008 080000000605 000500) 
OO CCOCeCeC ee ee OCOeee CeCe ee LOC ere referer 00C' 0000600900 0090 000000050008 0002.00.6.9000000.00600.5.0.00000006.006.99 00000000 00000000 8 20.0 


05/34/72 01742154 


CRP etelaReGeHCHHHHTERTEHHORGEHETEStOES 
HovatatagsHoheHodGHagSeeeegssasatbotess 
a+ ae 


#o PDPag MINI TINE-SHAR ING SYSTEM oe 
‘ 


oa MEMORY PROTECTION OVERLAY #2 ae 
*e DTSS:MP2 oe 
#o DKO:B04 ae 
#3 TPNSB04 ae 
oe ae 


PHHAC HFSS HHEHOHEHETERHCEHHEH HFT EEE HERS 
SHetetaetaegeSeHnFaeeete et aeeseHetaecetataas 


MP2 --BU4 


05/31/72 


100 
110 
100 
110 
120 
100 


01704318 


NAME 
»INSRT 
/TITLE 
JHBAD 

,INSRT 
»TFUND 


MP2-~B04 
MPO 

ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS 
M 

DEFINS 

DEF INS 


PAGE 


1 


DEF INS 05/34/72 01704418 ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 2 


5720 »LEST ON 
5730 »END 
130 MEAD OM 


MPQ 


05/31/72 


M 


001000 
000702 
000702 
000703 
000703 
000704 
009705 


001000 
vol001 
Dolao2 
001003 
001004 
901005 


901006 
901007 
Qo1040 
poi0a1 
po1042 
901043 
§o01044 
901045 
901096 
901047 
001020 
001021 
901022 
601023 
001024 
001025 


001026 


601027 
604006 
601244 
003265 
601365 
000000 


104162 
400525 
201760 
740140 
600270 
744020 
044760 
200000 
504624 
044713 
500634 
341622 
040000 
204714 
440704 
440705 
601042 


001047 


001027 
901030 
901031 


404162 
440704 
440705 


140 
150 
160 
170 
180 
490 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
350 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
$50 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 


04504818 


TABLE 


INSTR 


TEMP2 
OPCOD 
TEMPS 


TeMpa 
TEMPS 


MPSTRT 


PINST 


ees & & 


PINT 


MPST 


ROUTINES TO SERV:CE MEMORY PROTECT VIOLATIONS 


PAGE 3 


MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 


MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 


/STETL 

PMC SAVE,OFF 
#1/16.*740000 
PMC RESTORE 
»ENDM 

4 OC OVSTRT 
»EQU $0OCQ 
»EQY $QCO 
»EQU $0C1 
»EQY $QC1 
»EQY $0C2 
-EQU $0C3 
JMP MPST 
MP PINTed 
JMP 1070 
RDBLK 

JMP -QOPR, 
»DSA 


107 TABLE ENTRY 


OVERLAY EN®RANCE VECTOR 
ENTRANCE FOR PROGRAM ;NTERRUPT SyMULAT]ON 


POINTER TO THE ROADBLOCK ROUTINE 
POINTER TO QPERATE HANDLING 
PERMANENT INSTRUCTION SAVE IN CASE JT IS A GRAPHICS II INSTRUCTION 


AN TOT INTERRUPT HAS OCCURRED «- GENERATE a USER PI INTERRUPT IF THE PI SYSTEM IS ON 
TREAT AS IF LOCATION 2 CONTAINED AN XCT OF TwWE USER'S LOCATION 1 ~~ ONE XCT IS STILL LEGAL 


CLLIRAR 
pac 
Lac 
AND 
Dac 


REGSAVE 
$10,07 
$ ORS 


SPIDON 
$JORS 


0 
(677777) 
$.0 
SBITO 
(100001) 
0 


$,0¢1 
TEMP4 
TEMPS 
MP141¢4 


REGSAVE 
TEMP 4 
TEMPS 


SaVe USER TEMPS 
LOAD THE USER'S {ORS WORD 


EXIT IF Py] SYSTEM 1S NOT ENABLED 
ELSE TURN OFF THE P! SYSTEM 


REMOVE THE MEMORY BROTECT BI? 
SET THE USBR PC IN HIS LOCATION oO 
SAVE THE LINK STATWS 


FAKe THE NEXT INSTRUCTION CAME FROM LOCATION «4 WITH MEMORY PROTECT ON 
LOAD THE USER'S LOCATION 1 INSTRUCTION 

INIT{ALIZE THE COUNT OF MEMORY OVERLAY EXCHANGES 

INSTIALIZ& THE XCT COUNT 

AND CHECK THE INSTRUCTION 


SAVE THE MQ AND SC 
INTVIALIZE THE COUNT OF MEMORY OVERLAY EXCHANGES 
INSTEALIZE THE XET COUNT (CHECK FOR XCY OOPS) 


CHBCK TO SEE IF THE VIOLATION WaS CAUSED BY AN ATTEMPT TO TRANSFER TO PROTECTED MEMORY 


MPO 05/31/72 01904318 ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 4 


M MEMORY PROTECT ROUTINES COMMON TQ BOTH OVERLAYS 
Qo1032 200000 660 Lac 0 LOAD THE WSER Pc 
~01033 500651 670 AND $SADRSS GET RID OF NON-ADDMESS BITS 
001034 341623 680 TaD (=BOUNDARY) 
001035 755401 690 SPAICLAICMAICLL SKIP UNLESS A TRANSFER TO PROTECTED MEMORY WAS REQUESTED 
001036 601240 700 JMP ERR4 YES ~~ VIOLATION WAS A TRANSFER TO PROTECTED MEMORY -~ ILLEGAL 
710 ” 
720 * THE VIOLATION WAS Not CAUS&D BY AN ATTEMPT Tp TRANSFER Th pRoTECTED MEMQRY 
730 « NOW GET THE VIOLATING INSTRUCTION AND SEPARASE OUT IS of CODE 
740 * 
901037 340000 750 yAD 0 YIELDS LOCATION OF yWE OFFENDING INSyRyCTION AND SEy8 NE LINK 
801040 040702 760 pac INSTR 
Pol041 220702 770 MP1it Lac INSTR, X 
901042 0940702 7860 Dac INSTR INSTR CONTAINS THE BAD JNSTRUCTION 
§01043 041005 790 DAC PINST SaWE THE INSTRUCTION IN CASE IT IS a GRAPWICS 1] INSTRUCTION 
901044 504624 800 AND (NOP) 
001045 7443209 810 SNA 
001046 60123 820 JMP ERR3 CAL 18 AN ILLEGAL INSTRUCTION 
901047 940703 aot Dac OPCOD SAVE THE OF CODE OF THE VIOLATING INSTRUCTION 
840 * 
850 * NOW CHECK FOR A MICRO*CODED INSTRUCTION: OPERATE OR !07 
860 a 
§01050 541625 870 Sad (EAE) 
P01051 604115 880 UMP 0.K, EAR INSTRUCTIONS ARE INNOCENT 
901052 541624 890 SAD (OPR) 
001053 8091365 990 OPRST JmMP .OPR, OPERATE INSTRUCTION VIOLATION 
901054 541626 910 $aD (JOT) 


991055 604202 920 JMP SOT, SERVICE 10% VIOLATION 


MPO 05/31/72 01704118 ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS PAGE 3 


M MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 
930 sEJECT 
940 * 
950 a NOT A MICROCODED INSTUCTION, SO ESTABLISH THE EFFECTIVE INSTRUCTION 
960 * 
901056 200702 970 Lac INSTR 
§01057 601627 980 AND (020000) 
Yo1060 7414209 990 SNA SKIP JF THE VIOLATING INSTRUCTION HaD PHE INDIRECT BIT ON 
001061 601073 1000 MP MPBAL ELBE CARRY ON NORMALLY 
Nolo0e2 200702 1010 LAC INSTR LOAD THE ORIGINAL INSTRUCTION 
001063 5014630 1020 AND (47770) RETAIN THE ADDRESS ONLY -- DELETING THE LOW ORDER THREE BITS 
001064 43631 1030 3aD (40) SKIP IF ADDRESSED LOCATION WaS NOT AUTO-INDEX REGISTER 
001065 460702 1040 INX INSTR»X ELSE INCREMENT THE LOCATION 
001066 740000 1050 NQP 1T JUST MIGHT Sx{P 
901067 220702 1060 Lac INSTR, X 
901070 500651 1070 AND $aDRSS RECOVER THE EFFECTIVE ADDRESS 
901071 240703 1080 XOR OPCOD ANB ADD THE OP CODE BACK IN 
Pol072 040702 1090 pac INSTR SAVE THE (CONSTRUCTED) EFFECTIVE INSTRUCTION 
110 * 
111 a VIOLATION WaS & MEMORY REFERENCE INSTRUCTION (OTHER THAN CAL. JMP3 JMS, OR XCT) 
4120 « WHICH ATTEMPTED *Q REFERENCE A LOCATION BELOW THE BOUNDARY, 
1130 * OR TweE VIOLATION WaS aN XCY OR PI ENTERRUPT aND THE REFERENCE MaY NOT Be& TO PROTECTED MEMORY 
eee a REFERENCES TO O-% & 21-27 MUST BE FAKED; REFERENCES 70 10-20 & 30°37 ARE CARRIED OUT LITERALLY 
4150 * 
foi073 200702 1160 MPBaL Lat INSTR LOaD THE OFFENDING INSTRUCTION 
601074 500651 1170 AND SADRSS RETAIN JUST THE ADBRESS BITS 
goi07e 341632 41180 aD (~10) 
01076 744100 1190 SPA 
901077 604112 1200 JMP FAKIT REFERENCE 70 0-7 
801100 841632 1210 fad (10) 
901201 744100 4220 SPA 
Polio2 604115 1230 JMP 0,K, REFERENCE FO 10-47 
fo1103 344633 4240 vad (-20) 
001104 744100 1250 SPA 
901105 601112 1260 MP FaKIT REFERENCE FO 24-37 
801106 344634 14270 AD (=BOUNDARY+40) 
01107 751100 1280 SPAICLA 
801190 6042414 1290 JP ERR2 THE REFERENCE [3S TO 49-BOUNDARY 
Pol141 601115 a JMP 0,K, THe REFERENCE 13 ABOVE THE BOUNDARY 
41310 ® 
4320 * CONVERT THE LEGAL PROTECTEB MEMORY REFERENCE TO a REFERENCE TO THE VSER TABLE 
330 # 
Bol142 2043635 1349 FAKIT Lac ($.0) 
Nol1a3 340702 4350 Tad INSTR CONVERT REFERENCE TO POINT TO USER TABLE IMAGE 
Pol144¢ 040702 1360 Dac INSTR 
4370 « 
4380 & NOW DQ THE USER INSTRUCTION 
1390 « 
001115 4400 O.K. eT NOTE THE UVSER Mg, $c, 10, &@ 11 ARE STILL O,K. at THIS POINT 
4410 UNLESS ARRIVED AS & PJ INTERRUPT. IN THAT CASE 40 @ 41 
1420 MAY 8G OFFs BUT THE USER'S LOCATION 1 CAN'T LEGALLY BE A 
1430 MEMORY REFERENCE INSTRUCTION, ANYWAY. 


1449 . 


MPO 


901145 
901146 
001147 
901120 
901121 
901122 
001123 
901124 
001125 
901126 
901127 
901130 
001131 
901132 
001133 
001134 
001135 
001136 
901137 
901140 
901141 


001142 
Qolias 


001144 
001145 


001146 
901147 
901150 
601151 
901152 
001153 
901154 


901155 
901156 
901157 
901160 
801161 
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200703 
$40634 
604155 
541636 
601142 
941637 
601146 
200000 
740010 
200005 
400702 
741000 
440000 
040005 
200000 
500644 
744400 
240634 
040000 
401170 
600274 


200000 
304621 


060702 
440702 


200000 
501626 
040000 
200702 
500651 
240000 
604137 


200705 
750200 
6014235 
440705 
601041 


004162 


901162 
§01163 
001164 
901165 
901166 


740040 
644002 
044754 
641001 
041755 


01404118 


e IMP, 


XCT, 


XOT1 


REGSAVE 
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SPECT AL 


SPECIAL 


Lac 
AND 


Dac 
tNX 


MEMORY PROTECT ROUTINES COMMON TO BOTW OVERLAYS 


CASE QP CODES 


OpCOD 
$BITO 
oXCT, 
(JIMS) 
«JMS, 
(JMP) 
UMP, 
0 


SSAC 
INSTR 


0 
S3ac 
0 
$CBO 


$B1TO 
0 


REGRES 
SPIDN2 


RELOAD THE OP CODE 
VIGLATION WAS AN XCT INSTRUCTION 


VIGLATION WAS CAUSED BY A JMS INSTRUCTION 


RESTORE THE USER'S LINK FOR THIS OPERATION 

ANB ALSO WES AC 

EXECUTE THE USER'S INSTRUCTION 

AVOID INCREMENTING TWE RETURN IF THE USER'S INSTRUCTION pID NOT SKIP 
BUT BUMP TRE RETURN IF TE USER'S INSTRUCTION DID SKIP 
AND SgVE THE USER'S ac 

INITIATE SAVING THE CURRENT USER LINK 

CLEAR THE OLD LINK 

1S THE LINK ON? 

YES, S$O SAVE IT 

REBAVE THE CURRENT USER RETURN, WITH LINK 

RESTORE HIS REGISTERS THAT WON'T GET OTHERWISE RESTORED 


MEMORY REFERENCE INSTRUCTIONS 


0 
(677777) 


INSTR ,X 
INSTR 

0 
(700000) 
0 


INSTR 
SADRSS 


0 
MP15 
TEMPS 
ERR4 


TEMPS 
MP14i2 


SAVE,QN 


SMQ 
$SC 


LOAD YHE WYSER'S ac 
YURN OFF YAE MEMORY PROTECT Q@IT 


SE? THE USER PC AT THE START OF THE SUBROUTINE 
ANB INCREMENT THE TRANSFER 


LOAD THE YSER'S PC 
KESP THE WIGH ORDER BITS OF THE PC 


GET THE NEW YSER PC 

COMBINE [Tf WITH THE OLD HIGH~ORDER BITS 
EXIT 

LOAD THE XCT COUNT 

CHAINED XCT'S NOY YET LEGAL 

NOW CQUNT THE XcT 

AND !7ERaTe@ 


SAVE THE REGISTERS THAT WAVEN'T ALREADY BEEN SAVED 


THE FOLLOWING LOCATIONS MAY ALTER 1F THE VJOLATJON WAS AN JOT INSTRUCTION 


MPQ 


601167 


05/31/72 
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621162 


001170 


901170 
Polizi 
901172 
001173 
901174 
001175 
001176 
9011477 
001200 
901201 


740040 
201755 
244640 
344641 
201642 
041176 
740040 
204754 
652000 
621170 


1950 
1960 
4970 


1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 


01904518 


REGRES 
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RET 


ENTER 
PMC 


MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 


REGSAVE,»x 


SAVE,OQN 


$SC 

(77) 
(6490402) 
(640477) 
ot 


$MQ 
REGRES.X 


RESTORE THE REG;STERS THAT REGSAVE SAVED 


RELOAD THE OLD STEP COUNT 

COMPLEMENT THE STEP COUNT 

DEWELOP A PSEUDQseNORMALIZE JNSYRUCTION 
DELETE POSSIALE STEP COUNT OVERFLOW 

PLACE THE NORMALIZE INSTRUCTION IN SEQUENCE 
STEP COUNT TO THE §C 

RELOAD THE OLD MG 

AND SET {Tf 


MPO 


§01202 
901203 
901204 
001205 
901206 
901207 
901240 
901241 
901242 
901243 


05/31/72 


M 


200702 
501643 
541644 
601246 
200702 
640504 
040702 
641601 
740200 
£40005 


001244 


901244 
901245 
901246 
§01247 
901220 
001221 
901222 
901223 
901224 


§01225 
901226 
901227 
901230 
001231 
901232 
901233 
§01234 


901235 
901236 
901237 
901240 
901244 
901242 
901243 
901244 
901245 
001246 
901247 
901250 


140266 
761338 
040010 
220010 
340702 
601225 
5344364 
601416 
604217 


220010 
040702 
644002 
040703 
742040 
754100 
440702 
604424 


340641 
540641 
744000 
440000 
344645 
044706 
404170 
764004 
600355 
101170 
761005 
600335 


2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
21990 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
23500 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 


04504418 


to 
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»EJECT 


MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 


VEOLATION WAS AN JOT INSTRUCTION ~+ SEPARATE THE MICROCODING FROM THE REST 


Lac 
AND 
SAD 
JMP 
Lac 
LRS 
pac 


INSTR 
($SPMSK) 
(SSPECIAL) 
SWAP2 
INSTR 


4 
INSTR 


BAECLAILLS 1 


SZA 


SSAC 


LOAD THE VIOLATING [OT INSTRUCTION 
RECOVER THE "SPECIAL" BITS 

AND CHECK THEM 

YES -~ GEY THE SPECIALS MANDLER 

ELSE RELOAD THE VIOLATING 10T INSTRUCTION 
PUT THE MICROCODED BITS IN THE MQ 

SAVE FILL *# ALL QUT THE MICROCODED BITS 
RECOVER THE CLEAR ac BIT 


ZERO THE YSER AC IF TWAT BIT WAS SET 


OOK UP THE I1OT AND BRANCH TO THE PROPER HANDLING ROUTINE 


78 
2M 
LAW 
DAC 
Lac 
SAD 
UMP 
SAD 
UMP 
JMP 


Lac 
Dac 
,ACQ 
Bac 

RTL, 
SPAICLA 
J NX 

JMp 


COMMON ERROR MESSAGES 


Pad 
Tad 


$DKLOK 
1OTTT=3 


$BIT17 
$B817T17 


0 

(2) 
SUTEM2 
REGRES 
SSWERR 
SSWAP 
REGRES 
SSWSPL 
$SWAP 


CLEAR THE DISK-USE FLAG 


SET UP THE TABLE READ 

READ THE NEXT TABLE ENTRY 

CHECK AGAINST THE ENSTRUCTION IN QUESTION 
MATCHES-eBRANCH TO THE HANDLING ROUTINE 
CHECK FOR THE END OF THE TABLE 

DONE, AND NO MATCH FOUND 


SET THE TRANSFER 
SE? THE MICROCODE 


SKIP JF THERE 3S NO 10PS EVENT TIME 14 EVENT 
ELSE BUMP THE ENTRANCE 


CHAINED xCTI$ 
ILLEGAL INSTRUCTION 


ILLEGAL TRANSFER PC NEEDS TO BE FUDGED TO BE ONE TOO GREAT (LIKE ALL ELSE) 
BAD ADDRESS 

SEY THE ERROR MESSAGE NUMBER 

FIX UP THE USER REGISTERS BEFORE TRANSFERRING OUT OF THIS ROUTINE 


GET TWE SWAPPER e~ ERROR MESSAGE ENTRY POINT 
FIX UP THE USER REGISTERS BEFORE TRANSFERRRING OUT OF THIS ROUTINE 


GO READ IN THE MONITOR/MESSAGE PHANTOM PROGRAM 


MPQ 


05/31/72 
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004251 


001251 
901252 
901253 
901254 
901255 
901256 
901257 


740040 
040002 
740001 
500005 
240002 
040005 
624251 


001260 


901260 
901261 
901262 
porare 

01264 


740040 
200703 
751100 
621260 
604431 


004265 


901265 
901266 
801267 
901270 
001271 
901272 
£01273 
901274 
901275 
901276 


740040 
700004 
200000 
040702 
200005 
0407035 
200026 
040010 
200027 
040011 


2590 
2600 
2610 


2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 


2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2680 
2890 
2900 
2910 
2920 
2930 
2940 
2950 


2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 


01404318 


Oat 


TyM3 


waeseeteeaeeseeceeeaespes se eet & & 


DB.K 
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ENTER 
PMC 
XX 
Dac 
CMA 
AND 
XOR 
Dac 
RET 


ENTER 


MEMORY PFOTECT ROUTINES COMMON TQ BOTH OVERLAYS 


SAVE,ON 
SSTM21 
SSAC 
SSYM21 


SSAC 
OAC,X 


SAVE,ON 
TEMPS 


TIMS.X 
MEMD1 


INCLUSIVE OR AC WITH USER AC FOR IOT'S 


DETERMINE WHETMER OR NOT THERE 1S AN 1 OPS EVENT Tyme 3 EVENT REQUESTED 


YES -~ GO DO I? 
EXtT 


RDBLK LOOKS FIRS’ aT TWE USER DUE TO RUN NEXT, IF HE IS 170 ROADBLOCKED, THE 
FOLLOWING USER I$ EXAMINED, THIS RROCESS [$ REPEATED UNTIL SOME USER IS FOUND 


WHO JS FREE TO RUN, 
UNTIL A FREE YSEF 


NOTE THAT THE ROUTINE, ONCE ENTERED, WILL LOOP INDEFINITELY 
IS FOUND, 


WHEN A FREE USER IS FQUND, THE RETURN Is IMMEDIATE WITH MIS RE~ENTRANT 
TEMPORARY STORAGE SET UP, 


RDBLK ENABLES THE INTERRUPT SySTEM TO PERMIT TELETYPE 170 TO 

GO ON WHILE CHECKING FOR ROaDBLOCKS, OTHERWISE a TELETYPE 

1/0 ROADBLOCK COULD NEVER gE RELIEVED, THIS MEANS YWaT BEFORE 
BNABLING JNTGRRUFTS, THE CALLER'S SAVED ac, 10, & 11 MUST BE 

COPIED, AND RECOFIJED BEFORE EXIT, 


THIS ROUTINE RUNS WITH THE CLOCK OFF TO pREVENT RE~ENTRANCE 
AT A TIME WHEN IT WOULD CRASH THE SYSTEM, ALSO NO ONB IS RUNNING 
AS LONG AS WE ARE HUNG IN THIS LOOP, SO NOTHING IS LOST, 


SAVE,ON 


SAYE THE RETURN 

THe SAVED AC 

THE SAVED AUTO-INDEX REGISTER 10 
THE SAVED AUTO-INDEX REGISTER 114 


901277 
001300 
901301 
901302 
901303 
901304 


901305 
901306 
901307 
901340 
901341 
901342 
901343 
001344 
901345 
001346 


Q5/31/72 
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700042 
204771 
540104 
604310 
340133 
601313 


200102 
104317 
760076 
200131 
404317 
760125 
200160 
404317 
760154 
601305 


004317 


901347 
901320 
001321 
001322 


001323 
901324 
901325 
901326 
901327 
901330 
901331 


901332 
001333 


740040 
742040 
741500 
624317 


700002 
200702 
040000 
200703 
040005 
421347 
100513 


700044 
624265 


3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 


3270 
3280 
3290 
3300 
3310 
3320 
3330 
3540 
3350 
3360 
3570 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 


01704318 


RDBK4 


RDBK2 


e®eoe 8 @ 


sess 
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MEMORY PROTECT ROUTINES COMMON TO BOTH OVERLAYS 


ION 

Lae $NUMBR SEE WHO IS RUNNING, IF ANYONE 

Sap SCTNAM 

JMP RDBK2 #1 IS NOW RUNNING ~~ SO GIVE #2 A CHANCE 
Sad $SLAINAM 

JMP RDBK3 #2 1S NOW RUNNING *~- SO GIVE #3 A CHANCE 
LAC $CTFLG LOAD WSER #0 1/0 FLAGS 

JMS RDBKS SEB IF USER #0 IS &70 ROADBLOCKED 

aw $CTBIN@#2 LOAD A POINTER YQ WSER #0 PARAMETERS 

Lag SLIFLG 

JMS RDBKS5 SEB IF USER #1 18 $70 ROADBLOCKED 

LAW $LIBIN@2 

Lad $L2FLG 

JMSs RDBK5 SEB IF USER #2 18 t70 ROADBLOCKED 

LAW $L2BIN@=2 

JMP ROBK4 LoaP 


SEE IF THE SPECIFIED USER 3S 1/9 ROADBLOCKED, IF Sq, RETURN Tq THE 
ROADBLOCK ROUTINE FOR ANOTHER TRY, IF NOT, EXIT WITH HIS TEMPS SEF UP, 


ENTER 

, PMC SAVE,ON 

xX 

RTL TELEPRINTER FLAG TO LINKI KEYBOARD FLAG TO Ac(0) 
SZLISPA SKIP IF THERE I$ NO 1/0 ROADBLOCK 

Re? RDBKS, x ELSE TRY YHE NEXT §NB 


A NON*ROADBLOCKED USER HAS BEEN FOUND, TURN OFF THE INTERRUPT 
SYSTEM, SET UP HIS RE“ENTRANY PARAMETERS AND EXIT, 

NOTE THAT AUTO*INDEX REGISTERS 10 8 11 ARE ALREADY CORRECT 

$0 ONLY THE AC AND THE RESTART ADDRESS NEED TO BE RESTORED, 


lor FURN OFF TNE INTERRUPT SYSTEM 

LAC TEMP2 

pac 0 RESTORE THA SAVED RETURN 

Lae TEMPS 

Dac $3AC AND THE SAVED ac 

xcT RDBK5S,%X LOAD THE POINTER TO MIS PARAMETERS 
JMS SJO,IN ANB GO SEY THEM YP 

NOW WE ARE EVIDENTLY READY 70 RUN SOMEONE AGAIN, SO PURN IT 
BACK ON, 

CLON 

RET RDBLK»X DONE 


vEND 


10 
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M PROTECTION OVERLAY #2 
120 STITL PROTECTION OVERLAY #2 
130 * 
140 * 1OT INSTRUCTION TRANSFER TABLE 
150 * 
004334 160 1QTTT “a LOT INSTRUCTION TRANSFER TABLE 
001334 774349 170 774349 707000 
901335 601425 180 JMP .DSSF pDSSF 
801336 774341 190 774344 707020 
901337 604433 200 JMP DSK4 DSCCIHDRALSDLAL 
Q01340 774342 210 474342 707040 
901341 6013444 220 JMP DSK2 DSCF sDSFXsQSCN 
901342 774343 230 774343 707060 
901343 601431 240 RET MEMD4 DRAH}DLAH + NEJTHER HAS ANY LEGAL EFFECT, SO I gNORE THEM 
901344 774352 250 774352 707240 
901345 6014504 260 JMP »DSCD DSCD 
901346 774353 270 774353 707260 
001347 604511 260 JMP » DSRS DSRS 
901350 774004 290 774004 708100 
901351 604534 300 JMP PTR1 RSF RACK sRSAGRRB 
901352 774906 310 774006 700140 
901353 604552 320 JMP »RSB RSB 
B01354 774910 330 774010 700200 
801355 601563 340 JMP PTP4 PSF}PCF;PSA 
001356 774912 350 774012 700240 
9013587 601600 360 dmP .PSB PSB 
901360 774000 370 774000 708000 
901361 601516 380 JMP OFF 1OF CSF sChLOF 
901362 774156 390 774156 703340 
901363 604526 400 gMP BRK SKP7)DBR 
801364 001000 oe JQTTS 1000 END FLAG 
420 « 
430 # ILLEGAL OPERATE INSTRUCTIONS WAVE GITHER THE HALT BIT (BIT 12) OR THE 
440 r OaS BIT (BIT 15) ON IF THEY TRAPPEQ THEMSELVES, IF TWE TRAP WaS AN XCT (OPR) 
450 « 1T {8 POSSIBLE NE, THER ONE I$ ON, 
460 * 
001365 470 »OPR, ree 
901365 £40266 460 DZM SDKLOK CLEAR THE DISK JSE FLAG 
001366 200702 490 Lac INSTR LOAD THE ILLEGAL INSTRUCTION 
901367 $01646 300 AND (40) 
801370 750200 810 SZAICLA SKIP JF THE WALT BIT IS NOT SET 
901371 601617 520 JmP ERR5 GIVE THE YSER HIS HALY MESSAGE 
901372 200702 330 Lac INSTR RELOAD THE INSTRUCTION 
901373 801647 540 AND (100004) RECOVER TWE CLA AND GAC BITS 
901374 746010 550 CLLSATL 
901375 740010 560 Ral MOVE YHE CLA BJT TO THE LINK 
901376 741200 370 SNA SKIP IF THE OAC BIT WAS SET 
901377 601115 580 JMP O.K, ELSE DO THE USER'S OPERATE INSTRUCTION 
901400 741400 590 87. SKIP UNLESS CLA BIT WAS SET 
901401 $40005 600 DZM S3AC IN WHICH CASE CLEAR THE ACCUMULATOR 
801402 201771 610 Lac SNUMBR LOAD THIS USER NUMBER 
901403 540034 620 SaD $RACS SEG IF THIS YSER WAS ALLOCATED THE ACCUMULATOR SWITCWES 
901404 741000 430 SKP vES 


MP2--B04 


901405 
901406 
901407 
901440 
901444 
Pol442 
901443 
901444 
§01445 


05/31/72 


M 


601410 
750004 
741000 
204756 
101251 
200702 
§01650 
040702 
601115 


001446 


Botats 
01447 
901420 
§01421 
901422 
901423 


§01424 


001425 
901426 
901427 
901430 
901481 
901432 


901433 
901434 
901435 
901436 


901437 
901440 
901441 
601442 
901443 


901444 
901445 
001446 
901447 
001450 
901451 
901452 


200704 
750200 
601236 
440704 
761007 
600335 


$20702 


604451 
204761 
740200 
440000 
401170 
600270 


740000 
740400 
604440 
201762 


401251 
101260 
2000905 
041762 
601451 


744000 
£41764 
740400 
6044533 
2000905 
2414764 
041764 


640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 


1030 
1040 
1050 
1060 
1970 
4080 
1090 
1100 
1110 
1120 
1130 
1140 
4150 


01504118 


+QPR2 
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JMP 
Las 
$KP 
LAC 
JMS 
Lac 
AND 
Bac 
JMP 


ROUTINE 
ALREADY 


ees 


Lae 
SZAICLA 
JMP 
INX 
Law 
JMP 


MP 


BISK [OT INSTRUCTIONS 


PROTECTION OVERLAY #2 


-OPR2 


SACS 

Oac 
INSTR 
(377773) 
INSTR 
O.K, 


NO -- USE THE SOFTWARE VALUE 
YES -- USE THE MARBWARE SWITCH VALUE 


LOAD THE SOFTWARE &CCUMULATOR SWITCHES VALUE 

OR WHICHEVER VALUE 17 IS INTO THE USER'S ac 
RELOAD THE INSTRUCTION 

REMOVE THE OAS AND CLA BITS, SINCE THEY ARE DONE 
RESET THE INSTRUCTION 

DO ANY REMAINING OPERATE INSTRUCTION 


TQ CALL THE NEXT MEMORY PROTECTION OVERLAY UNLESS IT WAS 
HAD ITS CHANCE AT THE VIOLATION 


TEMP4 


ERRS 

TEMP 4 
SSWMP4 
SSWAP 


TEMP2,xX 


MEMD1 
SDFLAG 


0 
REGRES 
SPIDON 


D$K12 
SDAPO 


Oac 
TIMS 
SSAC 
SDAPO 
MEMD1 


SDFN 


14 

SSAC 
SDFN 
EDFN 


LOAD THE QVERLAY COUNT 

SKIP UNLESS ALL OVERLAYS HAVE ALREADY HAD A CHANCE 

ELSE THIS WAS THE LaST CHANCE -~ IT MUST WAVE BEEN AN ILLEGAL INSTRUCTION 
COUNT THIS QVERLAY 

LOAD A POINTER TQ THE SWAPPER ENTRANCE FOR NEXT MEMORY PROTECTION OVERLAY 
AND GET IT 


GOTO THE PROPER SERVICE ROUTINE 


THERE IS NO IOPS EWENT TIME 2 OR 3 INSTRUCTION 


BUMP THE RETURN IF TWE SOFTWARE FLAG WAS SET 
RESTORE THE REGISTERS NOT OTHERWISE RESTORED 


NQ JOPS EVENT TIME 4 
DSCC JS DONE ANYWAY, SO IGNORE IT & PROCEDE 
NO [OPS EVENT TIME 2 EVENT 


RETURN ONLY IF THERE IS AN [OPS EVENT TIME 3 EVENT 


NO JOPS EVENT TIME 4 EVENT 


MP2--B04 


901453 
901454 
001455 
901456 
001457 
901460 
0014614 
901462 
001463 
001464 
001465 
goes 

01467 
901470 
901471 
901472 
901473 
901474 
901475 
901476 
001477 
001500 
001501 
§01502 
901503 


001504 
901505 
801506 
901507 
901540 


fo15a1 
901542 
901543 
9015144 
901545 


901546 
001347 
001520 
001521 
9015e2 
901523 
901594 
901525 


001526 


05/31/72 
M 


101260 
201762 
707024 
777777 
340651 
740001 
3414751 
341752 
750100 
603615 
776001 
344752 
754100 
604614 
440266 
440266 
204751 
040036 
204752 
040037 
201764 
501651 
240641 
707047 
601431 


740400 
604431 
£41761 
£44765 
604431 


740400 
601431 
204765 
104251 
604431 


740400 
6901236 
204760 
7400140 
744020 
041760 
401260 
6012356 


741000 


015043198 


»DSCN 


+OSCD 


‘DSRS 


OFF 
+CLSF 
+ JOF 


/OFF2 
»CLOF 


BRK 
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PROTECTION OVERLAY #2 


JMS TIM3 

LAC SDAPO 
DLAL 

,, AW - 

TAD $ADRSS 
CMA 

TAD $,O048DKWC 
FAD $,0«S$DKCA 
SMAICLA 

JMP ERR7 

i, AW ~BOUNDARY 61 
TAD $,0+¢SDKCA 
SPAICLA 

JMP ERR@ 

DZM SDKLOK 
{NX SQOKLOK 
LAG $,0+8DKWC 
ad S$DKWE 

Lac $,0+SDKCaA 
Dac SDKCA 

Lac SOFN 

AND (6) 

XOR $BIT17 
DSCFIDSFXSDSCN 
REY MEMD4 

SNL 

Re? MEMD 

DZM SDFLAG 
DZ SOSTAT 
RET MEMD1 

SNL 

Ret MEMDY 

LAG SDSTAT 
JMS Oac 

RET MEMD4 

SNL 

JMP ERR3 

LAC SJORS 

RAL 

CLLIRAR 

DAG ZSIORS 

JMS TIM3Z 

JMP ERRZ 

SKP 


SET UP APg CORRECTLY FOR THE USER 
YIELDS MINUS THE HIGWEST LEGAL CORE ADDRESS TO START THE TRANSFER 


SKIP JF THE START ADDRESS IS LEGAL FOR THIS LENGTH TRANSFER 
ELSE ANNOUNCE EXCESSIVE WORD COUNT 


SKIP IF NOT TRYING YO START THE TRANSFER BELOW THE BOUNDARY 
ELSE ANNOUNCE BAD CORE ADDRESS 

FLAG YSER USING DISK 

SET UP THE REAL WORD COUNT 

SEY UP THE REAL CORE ADDRESS 


FORCE AN INTERRUPTING COMMAND 


NO [QPS eVENT TIME 1 EVENT 
EXIT YNLBSS AN EVERT 2 I8 PRESENT -~ 4 AND 3 DON'T EXIST 


NO JOPS EVENT TIME 1 EVENT 
EXJT UNLESS EVENT 2 =- 14 AND 3 DON'T EXIST 


SKIP ONLY If THERE 18 AN EVENT TIME 2 EVENT (IOF) 
CLOCK NOY YET ENABKED 
LOAD WYSER [ORS WORB 


RESTORE {QRS WORD WITH PI FLAG SOFF 
RETURN IF ¥HERE {& aN IOPS TIME 3 EVENT 
cLe@ck NOT YET ENABLED 


MP2--B04 


001527 
901530 
001531 
001532 
901533 


901534 
001535 
901536 
e023? 

01540 
901541 
901542 
901543 
901544 
901545 
901546 
901547 
901550 
001551 


001582 
901553 
901554 


05/31/72 


M 


440000 
101260 
201652 
040303 
604431 


601541 
101555 
200234 
740200 
440000 
401555 
740400 
6014547 
£40234 
700112 
402251 

04260 

00104 
601431 


101555 
700144 
604431 


004555 


901555 
901556 
901557 
001560 
901561 
901562 


001563 
901564 
001565 
901566 
001567 
901570 
001571 
9015972 
901573 
901574 
901575 
901576 
001577 


901600 


740040 
200235 
§44771 
621555 
760011 
604242 


6014570 
401605 
200227 
740200 
440000 
104605 
744400 
140227 
101260 
200005 
700204 
140227 
604431 


101605 


01404318 


»DBR 


PTR 
RSF 


PTRid 


RCFE 


PTR12 
RSA 


»RS3 


RORP 


PTP1 
PSF 


PTP14 


PCF 
+PSA 


»PS3 
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TNX 
JMS 
LAC 
Dac 
RET 


JMP 
JMS 
Lac 
$ZA 
NX 
JMS 
SNL 
JMP 
DZM 
RRB 
JMS 
Jus 
RSA 
RET 


JMS 
R5B 
RET 


ENTER 
PMC 
xX 
Lac 
Sad 
RET 
LAW 
JMP 


JMP 
JMS 
LAC 
$ZA 
INX 
JMS 
SZ. 
0ZM 
JMS 
Lac 
PSA 
DZM 
RET 


JMS 


PROTECTION QVERLAY #2 


0 

TIMS 
(DBR) 
SPIOQUT 
MEMD4 


PYRi4 
RDRP 
SRFLAG 


0 
RDRP 


PTR12 
SRFLAG 


Oac 
TEMS 


MEMD1 
RDRP 


MEMD4 


SAVE,ON 


PTP11 
PTPP 
SPFLAG 


0 
PYPP 
SPFLAG 
TIM3 
SSAC 


$PFLAG 
MEMD1 


PTPP 


'SKP7! -- SKIP IF NOT A PDP4 
RETURN IF THERE {S aN IOPS EVENT TIME 3 EVENT 


NO [DPS EVENT TIME 4 
CHECX FOR READER PERMISSION 


BUMP THE RETURN IF THE FLAG WAS SET 
CHECK FOR READER PERMISSION 
NO y;ORS EVENT TIME 2 


UPDATE THE USER ac 
RETURN IF THERE 1S AN IOPS TIME 3 EVENT 


CHECK FOR READER PBRMISSION 


CHECK FOR PERFORATED YAPE READER PERMISSION 


NO 10PS EVENT TIME 4 
CHECK FOR PUNCH PERMISSION 


BUMP YHE RETURN IF THE FLAG WAS SET 
CHECK FOR PUNCH PERMISSION 


RETURN IF THERE 1S aN 10PS TIME 3 EVENT 


CLEAR THE SOFTWARE FLAG 


CHECK FOR PUNCH PERMISSION 


14 


MP2-~-BU4 


001601 
901602 
001603 
901604 


05/31/72 


M 


200005 
700244 
140227 
6034351 


001605 


901605 
§01606 
901607 
001640 
901644 
901642 


901643 
901644 
001645 
001646 
901647 
901620 
001621 
001622 
901623 
001624 
901625 
901626 
001627 
pees. 

01631 
0016382 
901633 
001634 
901635 
001636 
901637 
901640 
901644 
901642 
901643 
901644 
901645 
901646 
901647 
901650 
901651 
901652 


TRANSFER ADDRESS 601000 


740040 
200230 
544771 
621605 
760011 
601242 


340644 
340644 
340641 
340641 
340641 
601235 
677777 
100001 
776900 
740000 
640000 
700000 
020000 
017770 
00000 
777770 
777760 
776040 
004713 
400000 
600000 
000077 
640402 
640477 
777400 
705000 
000002 
000040 
400004 
377773 
000006 
703344 


2180 
2190 
2200 
2210 
2220 
2230 


2240 
2250 
2260 
2270 
2280 
2290 
2309 
2310 
2320 
2330 
2540 
23550 
2360 


01504318 


PYPP 


ERR? 
ERRS 
ERR7 
ERR6 
ERRS 
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Lac 
PSB 
DZM 
RET 


PROTECTION OVERLAY #2 


BSAC 


SPFLAG 
MEMD1 


SAVE,ON 


ERPTP 
$NUMBR 
PTPP,X 
9, 

ERR 


SBIT17 
$B1T17 
$B1T17 
$B1T17 
SBIT17 
ERR4 

OVSTRT 


CLEAR THE SOFTWARE FLAG 


CHECK FOR PAPER TABE PERMISSION 


UNASS]GNED DEVICE REQUESTED 

ATTEMPTED DISK/DECPTAPE TRANSFER TO/FROM PROTECTED MEMORY 
EXCESSIVE WORD COUNT FOR DISK/DECTAPE TRANSFER 

DISK OVERFLOW ATTEMPTED 

HALTED PROGRAM 

CARRY ON 


15 


MP2--B04 


05/31/72 


01%04118 


4520 


3010 
3030 


+880 
1920 
1569 
3880 
3340 
3550 
3560 
3570 
3580 
3590 
3600 
3530 
2620 


910 
4530 
4560 
4820 
1870 
4110 


2340 
3980 
4930 
3990 
4000 
4010 
4020 
4040 
4050 

960 


2550 
2550 
4060 
4070 
4980 
4090 
4400 
3200 
3200 
3180 
31470 
4570 


ROUTINES TO SERVICE MEMORY PROTECT VIOLATIONS 


480 


1600 


2650 


1010 
670 


670 


499 
2460 


1620 


CROSS REFERENCE TABLE 


520 


2200 


2640 


1070 


1489 
2479 


990 


1340 


2640 


2650 


1170 


1640 
1380 


1000 


1220 


2660 


1800 


2360 


1630 


1250 1270 


2990 3400 


1260 


2310 2320 


5040 5080 


1320 


600 


2330 


680 


1340 


1050 


2340 


1270 


1130 


1260 


2120 


PAGE 


2180 


16 


MP2--BU4 


05/31/72 


DINDIR 


01504818 


3500 
3510 
3390 
2210 
2280 

980 
3520 
3499 
3630 
3659 


3660 
3070 
2430 
238) 
2370 
2450 
2420 


2400 
2390 
2430 
2410 
2440 
2490 
2470 
2160 
2460 
2080 
4600 
4610 
4430 
2270 
2270 
2060 


2090 
4590 
4620 
2350 
2150 
2180 
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CROSS REFERENCE TABLE 


3640 
3670 4250 2140 


3120 


1020 1060 1170 


930 1440 
1100 1140 1150 1360 


PAGE 


47 


MP2--B04 


525 
3500000 


05/31/72 


4270 
4310 
4350 
2750 
4170 
2650 
2660 
3830 
4160 
2760 
2749 
2770 
2100 
2130 
2410 
2479 
4130 
4140 
4150 
2350 
1980 
2090 
2180 
2190 
2060 
2169 
4620 

560 
1630 
4640 
1650 
4660 
4670 
4680 
4690 
1700 
4710 
1720 
2910 
39590 
44190 
4400 
4420 
4430 
3190 
2930 

999 
2550 

320 
3910 
3920 
2830 


013043186 


4230 
4180 
2660 


3840 
4170 


1220 


2110 
2140 
2420 
2480 
4140 
4150 
4160 
2360 


21400 
2190 
2200 
2070 
2170 
4630 


3960 
4420 
4440 
4430 
4449 
3200 


3920 
3930 
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1270 


2250 


1320 


1450 


3420 
400 


CROSS REFERENCE FABLE 


1340 1350 


480 13500 1340 


13350 


1500 


PAGE 


18 


MP2--B04 


162 
422026 
20090 
2v4 
1526 
12@2 
1254 
1534 
1520 
1516 
1572 
1544 
1600 
1564 
154 
1550 
1552 
1535 
2022 
1433 
1444 
1240 
1241 
1236 
1235 
1617 
1646 
1645 
1614 
1613 
1244 
1217 
1225 
1424 
1145 


05/31/72 
M 
1 ORS 4570 
10TO 4900 
JMP 4110 
JTLEN 960 
JTSTRT 950 
KBLEN 3610 
KBNWUM 3620 
LOLOK 3630 
LiBFR 3670 
LABIN 3690 
LAFLG 3700 
LAiLoK 3680 
LANAM 3719 
L2BFR 3720 
L@BIN 3740 
L2FLG 3750 
L2@LoK 3730 
L2NAM 3760 
LOR 390 
LORST 5040 
Less 2920 
M BRK 4670 
M ERR 2510 
M Oa 2610 
M .DBR 1700 
M .JOF 1580 
M OFF 1560 
mM PCF 2100 
M PSA 2120 
M ,PSB 2170 
M PSF 2040 
M .RCF 1839 
M RSA 48790 
M .RSB8 1900 
mM RSF 1760 
M ACSW 4860 
M DBKG 990 
M DEK2 1099 
M ERRY 2490 
M ERR2 2500 
M ERRS 2470 
M ERRA 2460 
M ERRS 2340 
M ERRO 2330 
M ERR7 2520 
M ERRB 23510 
M ERRP 2300 
M I1Q7T0 2240 
M 10TL 2280 
M 10T2 23550 
M 10TS 880 
M MPi2 4470 


01404818 
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2280 
680 


840 
2350 


CROSS REFERENCE TABLE 


450 


1000 
3680 


4290 


3200 


1050 


1579 


1580 1610 


4400 
3690 3730 3740 


3170 


1510 1850 


1630 
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MP2--B04 


1137 
1027 
1115 
1007 
1563 
1605 
1534 
1555 
1269 
1160 
1525 
1517 
1444 
1436 
1484 
1504 
1445 
1454 
1450 
1514 
1425 
1292 
1146 
1142 
1524 


422023 
422024 
20352 
1095 
1094 
1000 
1080 
15709 
1544 
1547 


05/31/72 


MP15 
MPST 
OK, 
PINT 


.e SSSA EE SS Ss 4 
uv 
— 
oO 
wv 


MINBUF 
MINETR 


MIOTSW 
MJOTTS 
MIOTTT 
MMEMDS 


MMPai4 
MMPBaAd 
MOPCOD 
MOPRST 
MP4 

MP2 

MPACSW 
MP INST 
MPOPR 
MPST 

MPSTRT 
MPTP14 
MPYR14 
MPTRi2 


M 


01704318 
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1230 


2080 


1800 
1040 


900 


1260 


770 
4740 


240 
2240 
1880 


1080 


CROSS REFERENCE TaBLeE 


1300 


2170 


1900 
1160 


789 
1790 


920 


1470 


580 
2260 


1970 
1620 


979 
2110 


1070 


720 

1690 1860 2110 

10140 1040 1060 1090 1160 
21580 2170 2290 490 530 
1400 1430 1460 1490 1520 


1350 
699 


1720 


1360 
710 


1889 
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1570 


1920 


MP2--B04 


05/31/72 


MQ 
MOSAVE 
MRDBKY 
MROBK2 
MRDBKS 
MRDBKS 
MRDBLK 
MSWAP 
MSWAP2 
MTEMPO 
MTEMP4 
MTEMP2 
MTEMPS 
MTEMP4 
MTEMPS 
MTEMPG 
MTEMP7 
MTEMPB 
MTEMP9 
MTR 
MTRST 
NAME 
NEWBR 
NUMBR 


M 


01404518 


4540 
1830 
3210 
3080 
3100 
3130 

320 


2140 


2360 
2380 
530 
340 
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1920 


3160 
3480 


2410 
2740 
610 
620 


CROSS REFERENCE TABLE 


2040 


3190 


2980 
3000 

790 
1840 


610 


240 
260 


4750 


2100 


3290 


2370 
2390 

820 
1870 


1960 


4880 


2140 


3410 


2250 


4960 220 2360 


2280 


PAGE 
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MP2-~B04 


602026 
2026 
602025 
2027 
606064 
2051 
2050 
606469 
606462 


05/31/72 


01304118 


4950 
1960 


1980 
1970 


4710 
990 
3950 
620 


4920 


1660 
390 


3480 


3800 
3790 
3810 
38350 


4550 
1860 


2120 
1850 
3890 
3900 
5910 
4760 
4790 
4600 
46350 
4840 
4780 


4770 
3470 
4819 
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1040 


2060 
600 


4770 
2240 
4950 


4940 


2540 


2530 
830 


2560 


CROSS REFERENCE TABLE 


2560 


2520 


1950 


1830 


1980 


2570 


2550 


840 


960 
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MP2--BU4 


O5/31/72 


SXSPL 
SYSBAS 
SYSDA 
SYSMAX 
TABLEN 
TEMPO 
TEMP4 
TEMP10 
TEMP14 
TEMPi2 
TEMP 2 
TEMPS 
TEMP 4 


M 


01404118 


4820 
2610 


2640 
1640 
1650 
1740 
1750 
1800 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 


3480 


3170 
4700 
4640 
4650 


4260 
4300 
4340 


3200 
2640 
4810 


4450 
4460 
4470 
4480 
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4280 
4320 
4360 


2510 


CROSS REFERENCE TABLE 


PAGE 
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1740 
1714 
1712 
1740 


05/31/72 
M 
UTEM4 
UTEMS 
UTEM6 


VALID 


4480 
4490 
4500 
4650 


01304118 


4490 
4500 
4510 
4660 
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CROSS REFERENCE TABLE 


PAGE 


24 


MP2--BU4 


05/31/72 


M #h 
PYRGOD 


M 


5630 
5640 
5650 
5660 
5680 

100 

190 
5140 


01504818 


100 
5270 
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120 


UNDEFINED SYMBOLS 


120 


580 


580 


2680 


2680 


3210 


3210 


3330 


5330 


PAGE 
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MP2--BU4 


05/31/72 


ENTER 
MPOFF 
SWAP 

TABLE 


M 


5280 
5430 
5610 

170 


01404518 


1900 
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1970 


MACRO CROSS REFERENCE TABLE 


2610 


2700 


2950 


3260 


1940 


2230 


PAGE 
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LIST ON 

END 

MEAD Q 
1610 


ENTRY TO THE SPECIAL JOT INSTRUCTION (EXECUTIVE CALL) WANDLER 1S 
PROM THE SWAPPER WITH? 


4) THE PROGFAM INPFERRUPT SYSTEM TURNED OFF 

2) SDKLOK = Q 

3) SRCORE = CURRENT CORE USER 

4) AG» 102 12 AND RESTART DATA NOT SAVED BOTH IN THR INTERRUPT SAVE LOcATIQNS 
AND IN THE USER JOB TABLE, 

5) CLOCK IS ON 


IN QROER To PERMIT TELETYpR INPUT/QUTPUT Tp CONTINUE, THE SPECIAL 
WANDLER RUNS WITW THE FOLLOWING SETTINGS} 

4) SDKLOK [S NEGATIVE 

2) SRCORE ® 9 

3) THE PROGRAM INTERRUPT SYSTEM TURNED ON 

4) CLOCK I§ ON 

5) SAVE THE AC, ETC INTO THE USER JOB TABLE 


IN ALL CASES, EXIT IS 70 THE SWAppER WITH THE FOLLOWING SETTINGS? 
1) SDKLOK 18 NEGATIVE 
2) SRCORE IS RESET YO THE VALUE IT WAD ON ENTRANCE 
3) ACe 400 94° AND RESTART DATA ARE AESO RESET 
4) PROGRAM INTERRUPT SYSTEM TURNED off 
5) CLOCK IS ON 
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Q 
004000 
002000 
Po01000 601447 
004300 
001300 


410 
420 
430 
440 
450 
460 
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490 
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SPECIAL IO0T INSTRUCTION (EXECUTIVE SERVICE CALL) HANDLER 
CORE LAYOUT FOR THIS OVERLAY 


»STITL CORE LAYOUT FOR THIS OVERLAY 


THE LAST 40018) WORDS OF TWE QVERLAY AREA ARE USED BY THIS OVERLAY 
AS A BUFFER AREA TO ALLOW READING IN OF a FULL DEVICE CATALOG AT ONCE, 


CORE Is ALLOCATED UNDER TWO UsE COUNTERS} *PERM! AND 'tOVRLAY!', 
'PERM! CONTAINS THE CODE WHICH MUST BE CORE-RESIJDENT aY ALL TIMES, 
YOVRLAY' CONTAINS THAT CODE WHICH WILL NOT BE NEEDED ANY MORE AFTER 
THE CATALOG [S READ IN. IF ‘PERM! GETS TOO LONG ¢1.&. IF IT STARTS 
YO INTRUDE JNTO THE OVERLAY AREA) AN ASSEMBLY-TIME ERROR MESSAGE 

1S GENERATED. 


ARRANGE THE USE COUNTERS IN ORDERS 

LOC OVSTRT 

»WSE PERM 

JMP SPLST START THE PROGRAM 
,WSE OVRLAY 


,EQU 1300 START OF THE CATALOG BUFFER ARBA 


TFG CHECK, BUFFER PRINT THE ASSEMBLY ERROR MESSAGE IF 'PERM?t IS TOO LONG 


PAGE 
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0 MPOFF (705000) TERMINATE (705001) 
630 »STIT, MPOFF (705000) TERMINATE (709001) 
001300 640 USE OVRLAY 
650 & 
660 % 
670 * SPECIAL I10T INSTRUCTIONS ARE TRE MEANS BY WHICH A PROGRAM RUNNING 
680 ‘ UNDER MTSS CAN CALL UPON THE EXECUTIVE FOR SYSTEM SERVICES, THE 
690 * FUNDAMENTAL SPECIAL IOT INSTRUCTION IS 705000, POSSIBLE SPECIALS 
700 * RANGE FROM SPECIAL+O To SPECIAL+377, ONLY A FEW OF THESE ARE 
710 5 CURRENTLY ENABLED, LEAVING THIS AS ONE AREA FOR MAJOR FUTURE 
720 SYSTEM EXPANSION, 
730 a 
740 « 
750 * MDOFF ¢705000) 16 LEGAL ONLY FOR PHANTOM PROGRAMS, 
760 * GONTROL IS RETURNED TO THE USER AY THE NEX® INSTRUCTION AFTER THE 
770 * SPECIAL, WITH THE STATE OF THE MACHINE UNCAANGED EXCEPT THAT 
760 « YSER MODE IS DISABLED, 
790 * THE PROGRAM IYSELF SHOULD RE-ENABLE USER MOpe aS SOON AS POSSIBLE 
800 . BY [ISSUING AN MPEU (701742) INSTRUCTION TO GUARD AGAINST ITS 
846 ® OWN SUGS CRASHING THE SYSTEM, 
820 * 
830 * MPOFF SHOULD BE DISALLOWED aS SOON AS PRACTICABLE BY ADDING ENOUGH 
840 * SXBCUTIVE SERYICES TO THE SYSTEM TO MAKE JT UNNEGESSARY, THIS WILL 
8 GREATLY ENHANCE SYSTEM RELIABILITY: 
660 * 
870 * 
001300 880 $p000 —e TURN OFF MEMORY @ROQTECT (MaOFF) 
P01309 £01521 890 543 PHOHX ONLY PHANYOM PROGRAMS CAN B& ALLOWED TO TURN OFF MEMORY PROTECT, 
901301 203776 900 Lac SRSTRT GET THE RESTART 
801302 301533 916 AND (877777) REMOVE THE MEMORY PROTECTION BIT 
901303 041776 920 oac S$RETRY REPLACE THE RESTART 
601304 4$40703 930 O24 $QCi NO NGW OVERLAY REQWESTED 
901305 140704 946 DzM $0C2 NO RESYARY OVERRIDE REQUESTED 
901306 404077 950 jMP SPLDON EX%7 
960 ® 
970 & 
980 « . 
990 ® YSRHINATE €705001) 18 LEGAL FOR ALL PROGRAMS, 
4009 ® ivS EFFECT 18 BXAGTLY THR SaME AS IF A WELT INSTRUCTION WERE ENCOUNTERED 
1019 a IN THE RUNNING @ROGRAM EXCEPT IT RETURNS CONTROL To THR MONITOR 
1029 ® WITHOUT THE ERROR MESSa~GE "HALTED AT..." BEING PRINTAD, IN BITHER 
1039 “ caSs. IF THE MONITOR [$8 REQUESTED TO 'CONTENUE’, PROGRAM EXECUTION 
1949 * WILL B& RESUMED aT THE NEXT INSTRUCTION WITH REGISTERS UNALTERED, 
4059 ® 
4069 * 
4079 * 
001307 1089 SPO04 aha TERMINATE FHE RUN AND RETURN TO THE MONITOR 
901307 750000 1090 GLa REQUEST THE MONITOR 


Nol310 6014074 1100 JP ERR WILL NOT PRINT AN ERROR MESSAGE 
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SPECIAL IOT INSTRUCTION (EXECUTIVE SERVICE CALL) HANDLER PAGE 
PHYSICAL DISK/DECTAPE READ (705002, 705003) a WRITE (705004, 705005) 


SSTITL PHYSICAL DISK/DECTAPE READ (705002, 705003) a WRITE (705004 705005) 
USE OVRLAY 


THE DISK AND DECTAPE SpECIALS MAKE USE OF A MODIFIED STANDARD GROWTH SYSTEM 
DISK/DECTAPE HANDLER! FO SIMPLIFY MODIFYING STAND-ALONE PROGRAMS 

TQ RUN UNDER MTSS THE FORMAT USED BY THE SPECIALS IS THE SAME 

ONE THAT THE HANDLER NORMALLY VSES ANYWAY, 


ALL DISK/DECTAPE SPECIALS ARE EXECWTED wIlTH THE AC CONTAINING 
A POINTER TO A LIST OF PARAMETERS OF THE FOLLOWING FORM} 
WORD1! BITS 0-2 ARE THE DECTAPE HANDLER NUMBER OR THE 
PHYSICAL DISK NUMBER, AS APPROPRIATE, 
BIT 3 = 0 FOR aA DECTAPE OPERATION; = 1 FOR A DISK OPERATION, 
BITS 8-17 CONTAIN THE BLOCK NUMBER FOR TWE START QF THE 
DATA TRANSFER, 
WORD2! CORE ADDRESS FOR THE S¥ART OF THE DATA TRANSFER, 
WORD3! YORD COUNT TO BE TRANSFERRED, 


THE DISK/DECTAPE SPECIALS PERFORM FHE FOLLOWING CHECKS? 

1) AN ATTEMPT TO READ OR WRITE OFF THE END OF a DECTAPS OR DISK GENERATES 
AN ERROR MESSAGE FOR THE USER, 

2) AN ATTEMPT TO TRANSFER DATA TO OR FROM A CORE ADDRESS IN 
EXCESS OF 8K GENERATES AN BRROR MESSAGE FOR THE USER, 

3) A CORE ADDRESS BELOW THE MEMORY PROTECT BOUNDARY IS LeGaL 
ONLY FOR PHANTOM PROGRAMS, IF A USER PROGRAM ATTEMPTS 
A DaTA TRANSFER ¥Q OR FROM SUCH AN ADDRESS, AN ERROR 
M&SSAGE 1S GENGRAY&D FOR HIM, 

4) AN ATTEMPT TO TRANSFER DATA TO/FROM & NON-EXISTANT DISK 
GENERATES AN ERROR MESSAGE FOR THE USER, 

5) AN aTTEMPT TO TRANSFER DATA TO/FROM aA DECTAPBE NOT ASSIGNED 
TQ THE USER GENERATES AN GRROR MESSAGE. 

6) AN ATYEMPT BY a USER PROGRAM TO WRITE TO TWE PHYSICAL 
DISK GENSRATES AN ERROR MESSAGE, 


THE DISK/DECTAPS SPECJTALS PROVIDE ALL PROGRAMS WITH THE CAPABILITIES OF 5 
TREADING OR WRITING IN & LOGICAL~BLOCKeADDRESSED FORMAT 
THE PROGRAM'S DECTAPES OR *USER "RAYSICAL DISK", 
2) READING IN A LOGICAL“BLOCKADDRESSED FORMAT THE ACTUAL PHYSICAL DISK. 


IN ADDITION, DHANTOM PROGRAMS CAN WRITE IN a LOGICAL WBLOCK-ADDRESSED 
FORMAT THE ACTUAL PHYSICAL DISK, 


THESE CAPABILITIGS ALLOW D&yICE INDEPENDENF PROGRAMMING 
WITH RESPECT TO DISK AND DECTAPE, 


RETURN OF CONTROL TO FHE USER? 
1) IF TWE DISK/DECTAP& TRANSFER IS SUCCESSFULLY COMPLETED 
CONTROL iS RETURNSB TO THE USER aT THE ADDRESS THE USER PaSSEp IN THB MQ, 
2) IF 4 D&VICE ERROR WAS ENCOUNTERED CoNTROL 1S RETURNED TO 
THE USER ONE LOCATION PAST THE SPECIAL. 
3) IF a USER SOFTWARE ERROR [S GNCOUNTERED AN ERROR 
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Q PHYSICAL DISK/DECTAPE READ (705002, 705003) & WRITE (705004+ 705005) 
1630 ® MESSAGE IS PRINTED ON HIS FELETYPE AND CONTROL 
14640 a 1S RETURNED TO MONITOR, 
1650 * 
1660 * SOME POSSIBLE CAUSES OF A "DEVICE ERROR" Re: 
4670 * 4) A DISK OR DECTaPE WARDWARE MALFUNCTION 
1680 « 2) A DECTAPE CALLED WHICH HAS NOT BEEN REMOTE-ENABLED, 
4690 * 3) A DECTAPE NOT WOUND FaR ENOUGH ONTO THE SPOOL TO START, 
1700 « 
4710 * 
4720 = 
4739 . 
41740 * READ ¢795902) AND WRITS (705004) ARE LEGAL FoR ALL PROGRAMS, 
4750 * THESE SPECIALS USE THE STANDARD DISK/DECTAPE FORMAT (SEE ABOVE,) 
1769 * THEY CAUSE THE OPERATION INDICATED BY THEIM PARAMETERS TO BE 
4770 * ATTEMPTED TO/FROM THE pECTAPE OR "USER PHYSICAL DISK", 
4780 a 1) IF THE READ/WRITE 1S TO/FROM DECTaPE, IT 1S PASSED ALONG 
1790 * UNALYEREB, 
4800 * 2) IF THE READ/WRITE 18 TO/FROM THE DESK, TWE BLOCK NuMBER 
1810 * IS UNDERSTOOD 70 RSFER TO THE BLOCK DESIRED ON THE USER'S 
4820 a "PHYSICAL DISK", 
4830 * 
1849 * PREAD (705003) AND PWRITE ¢705005) ARE IDENTICAL TO READ AND 
1850 * WRITE EXCEPT THAT! 
1860 * 1) DJSK REFERENCES aR@ TO TWE ACTUAL PHYSICAL DISK INSTEAD OF 
4870 * TO THE "USER PHYSICAL DISK®, 
1880 « 2) PWRIYE IS ILLEGAL FOR VSER PROGRAMS 
1890 « 
1900 * 
4910 * 
4920 * 
004341 1930 ,VSE OVRLAY 
001341 1940 $p005 ie PWRITE 
§01341 £04521 1950 JM$ PHCHK PWRITE IS LEGAL ONLY FOR PHANTOM PROGRAMS 
001342 75142355 41960 LAW WRIYE LOAD A POINTER TO THE WRITE GOMMANDS 
001343 741000 4970 SK? 
004344 1980 S$P003 eas PREAD 
901344 754257 4999 Law READ LOAD A POINTER TO FE READ COMMANDS 
901345 £01522 2000 JMS PaR ani SET UP THE PARAMETERS LIST: pO SOFTWARE ERROR CHECKS 
80131256 604323 2010 JMP $P4 
2020 
001317 2030 sPo002 an READ 
001347 751257 2049 LAW READ LOAD A POINTER TO YHE READ COMMANDS 
f01320 741000 2050 8KP 
004321 2060 SPo04 oot WRITE 
901321 761255 2070 LAW WRITE LOAD A POINTER TO FHE WRITE COMMANDS 
001322 101526 2080 ums PARAM SET UP THE PARAMETERS LIST) BO SOFTWARE ERROR CHECKS 
2090 
004323 2100 $p4 eee ALL DISK SPECIALS CONVERGE HERE 
901323 764117 2110 LAW TEMP Q~4 LOAD A POJNTER TO THe PARAMETERS LIST 
901324 101130 2129 JMS DO DO THE OPERATION 
001325 601077 2130 JMP SPLDON SOME SORT OF HARDWARE ERROR OCCURRED 


901326 204124 2149 Lac MFER GOGD RETURN -- LOAD THE USER'S REQUESTED RETURN 


SPL--g12 
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001330 
001331 
901332 
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500651 
241264 
041776 
601077 


2150 
2160 
2170 
2180 
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PHYSICAL DISK/DECTAPE READ (705002, 705003) & WRITE (705004. 705005) 


SADRSS 
TPMSK 

SRSTRT 
SPLDON 


MASK TO JUST TWE ABDRESS BITS 
PUT THE MEMORY PROVECT BIT IN 
SET IT FOR THE EXIT ROUTINE 
RETURN TO THE USER 
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901333 
001334 
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OPEN (705018) 


SSTITL OPEN (705018) 
USE OVRL AY 


OPEN (705018) 1S LEGAL FoR ALL PROGRAMS, 
THE DISK FILE WHOSE NAME I8 PASSED IN THE ac IS LOCATED AND ITS 
PARAMETERS ARE STORED IN THE USER'S JOB TABLE, 


ON ENTRANCE THE FOLLOWING PARAMETERS ARE PASSED; 
AC! FILENAME TO BE OPENED 
WORD4! OPEN 
WORD2! BITS 0-2 HANDLER NUMBER 
BIT 3 IS 0 FOR DECTAPEY 1 FOR DISK 


RETURN TO THE USER IS} 

+1 FOR A HARDWARE ERROR 

TO AN ERROR MESSAGE AND YHE MONITOR FOR A SOFTWARE ERROR 

#2 FOR SUCCESS 
IN ADDITION TO ANY APPLICABLE EpROR MESSAGE WHICH CAN BE CAUSED BY 
A DISK/DECGTAPE SPECIAL, OPEN CAN AkSO CAUS# a "FILE NOY FOUND" 
MESSAGE, 
or OPEN THE FILE WHOSE NAME WaS PASSED IN THE AC 
QE’ THE CATALOG FRoM THE DEVICE SpECIFIED 


FIRST GET THE DEVICE ADDRESS 


LAW 0 LOAD A DEV&CE NUMBER/TYpPE MASK 

AND $RSTRY,X GET THE REQUESTED DEVICE NUMBER/TYPE 

1NX SRSTRT CORRECT THE RETURN 

DAC TEMPO SAVE THE DEVICE NUMBER/TYPE FOR LATER OPERATIONS 
Dac DA SET THE DEVICE ADDRESS FOR TWE CATALOG READ 

INX DA SEY THE DEVICE ADDRESS TO BE THE CATALOG BLOCK 


READ THE CATALOG 


Law DAw4 GE’ A POINTER TO TAME PARAMETERS LIST 
JMP OPEN2 

VSE PERM 

Jm8 DQ READ THE CATALOG 

Jnr SPLDON SOME SORT OF HARDWARE ERROR 

INX SRSTRY GO@D READ =~ BUMP FHE RETURN 


NOW FIND THE REQUESTED FILE 


LAW BUFFERe3 LOAD A POINTER TO THE FIRST FILE CONTROL BLOCK 
Dac 10 AND SAVE IT FOR INDEXING 

LAC BUFFER+#2 GET THE COUNT OF SAVED FILES 

Dac TEMPS ANB SAVE IT 

LAC $ac GET THE NAME TO SEARCH FOR 
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Q OPEN (705018) 
Pol041 560040 2710 SaD 10.X CHECK IT AGAINST TRE NEXT SAVED FILE'S NAME 
001042 601021 2720 JMP OPEN6 FOUND IT!!? 
801043 2000140 2730 ac 10 
901044 $41634 2740 aD (FCBLEN#1) FAILED -~ MOVE THE POINTER TO THE NEXT FILE CONTROL BLOCK 
Pol10a5 040010 2750 pac 10 
901046 441121 2760 1sZ TEMP4 COUNT THE FILE JyS? CHECKED 
901047 604010 2770 JMP OPENS FRY THE NEXT ONE 
001020 601064 2780 JmMP ERR11 UTTER FAILURE -- THE FILB 1S NOT SAVED 
2790 * 
2800 * yHE REQUEgTED FILE HAs BEEN FOUND ~~ TRANSFER THE FILE CONTROL 
2810 * BLOCK DATA TO YHE JOB TABLE, 
282 ) 
601021 220010 2830 QPEN6 Lac 10.X LOAD THE FILE'S DEVICE ADDRESS 
Oolo22 301265 2840 AND BMSK RETAIN JUS¥ THE BLOCK NUMBER 
001023 241120 2850 KOR TEMPO FORM THE CURRENT DEVICE aDDRESS 
901024 041700 2860 pac SFRDA SEY 17 IN THE JOB TABLE -- REFERRING TO ITS CURRENT HANDLER 
001025 220010 2870 ac 10>X 
901026 041701 2880 Dac SFRCA SEY THE FILE'S CORE ADDRESS IN THE JOS TABLE 
Pol027 2200190 2890 Ac 10.X 
901030 041702 2900 ac SFRLEN SEY THE FILE'S LEN@TH IN THE JOQ TaBLEe 
001031 220010 2910 Lac 10x 
901032 041703 2920 pac SFRSTA SET THE FILE'S TRANSFER ADDRESS IN THE JOB TABLE 
001033 601077 2930 JMP SPLDON EXT 
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SPECIAL I10T INSTRUCTION (EXECUTIVE SERVICE CALL) HANDLER PAGE 
COPY (705019) 


eSTITL COPY (705019) 
,VSE OVRLAY 


COPY (705019) IS LEGAL FOR ALL PROGRAMS, 
IT PROVIDES CORE~TO-DEVICE AND DEVICE-TOeCORE COPJES TO OR 
FROM FILES ON DECTAPE OR ON fHE SYSTEM DISK, 
ON ENTRANCE, THE PARAMETERS PASSED ARE} 
AG! BIT 0 : = 9 FOR DEVICE=TO-CORE cCoRY 
® 1 FOR CORE-TO-DEVICE COPY 
MQ! BITS 5-17% USER'S DESJRED RESTART ADDRESS 
WORDZ! COPY 
WORD2? BITS 5-17: STARTING CORE ADDRESS FOR THe COPY 
WORDS! LENGTH OF fHE COPY 


DEFINITIONS USED IN THE COPY ROUTINES: 
SFRDAt FILE'S DEVICE ADDRESS 
$FRCA* FILE'S CORE aDBRESS 
SFRLENt FILE'S LENGTH YN WORDS 
Feat FILE'S END aDDRESS#1 

LIKEWISE RcA, RLEN, ANn REA ARE USED FOR THE VALUES REQUESTED 
BY THE SPECIAL CALL AND CDA, CCa, CLEN, AND CEA ARE YSED To 
DESIGNATE THE VALVES DECIDED ON BY THE COPY ROUTINES, 


THE INTERSECTION OF THe SAVED FILE (WHICH MUST MAVE BEEN preVIOUSLY 
NOPEN"ED) WITH THE PORTION OF USER CORE INDICATED BY THE REQUESTED 
CORE ADDRESS AND LENGTH WILL BE GOPIED, 


THE COPY VALUES ARE DECIDED AS FOLLOWS 

4) CCA » GREATER (SFREA.RCA) 

2) CEA # LESSER (FEA,REA) 

3) CLEN = C&a-CCa (CLEN > O ELSE ERROR MESSa~GE [S PRINTED) 

4) SToFF = CCA = gFRCA {S$ START ADDRESS OFFSET 

5) SOB = INTEGER ¢(STOFF/400) JS STOFF IN BLOCKS 

6) SOW = REMAINDER (STOFF/4090) IS STOFF ~- SOB (6 ¢s SOW ¢2377) 
THIS IS FHE NUMBER OF WORDS THE START {S PaST 
AN EVEN BLOCK BOUNDARY ON THE FILE'S DBVICE 

7) CDA # SFRDA « SOB IS THE FIRST BLOGK BOUNDARY BEFORE THE 
DESIRED STARTING WORD 


CONTROL IS RETURNED TO THE USER AFTER A SUCCESFUL COpY AT THE 
USEReSPECIFIED RESTART ADDRESS, THIS ALLOWS A 100% OVERLAY, 


AN ERROR MESSAGE [S PRINTED AND CONTROL 2S RETURNED TO MONITOR 

IF FOR ANY REASON THE COPY WAS UNSUCCESSFUL, 

THIS IS BECAUSE THAT JS WHAT SHOULD HAPPEN FOR A SOFFWARE ERROR 
ON THE PART OF THE VSER, IF THE ERROR WaS & HARDWARE ERROR, IT IS 
PROBABLY UNRECOVERABLE, ANYHAY, 


THE DEVICE-To-CoRE CoPY ALGORITHM [S: 


10 


SpL--B12 05/31/72 01905302 SPECIAL IQT INSTRUCTION CEXECUTIVE SERVICE CALL) HANDLER PAGE 
Q COPY (705019) 
3460 * 
3470 # 1) IF SOW = Q GOTO 5, SINCE THERE ARE NO ODD WORDS TO COPY 
3480 * 2) COPY FROM CDA TO BUFFER FOR 400 WORDS (ONE BLOCK) 
3490 ® 3) CORE*COPY FROM (BUFFERsSOW} FTO CCA FOR (400-S80W) WORDS 
3509 * 4) CDA ss CLA + 4 
3510 r CCA sa CCA + 490 - SOW 
3520 * CLEN t= CLEN ~ SOW 
3530 * 5) IF CLEN <s 0 THEN BONE 
3540 6) COPY FROM CDA T0 CGA FOR CLEN WORDS 
3550 * 7) DONE 
3560 * 
3570 * 
Sze * TMB CORE-TO-DEVICE COpy IS NOT YET [MpLIMENTED 
3590 ® 
3600 * 
3610 * INITIALIZE THE COPY 
004120 3620 $08 ,EQY TEMPO 
004120 3630 CDA ,EQY TEMPO 
0043121 3640 RCA ,eQY TEMD4 
004121 3650 CCA ,EQU TEMP, 
004122 3660 RLEN i} TEMP? 
004122 3670 CLEN ,EQY TEMP2 
004183 3680 STOFF ,€Qy TEMPS 
004123 3690 SQW ,EOY TEMDS 
001343 3700 SP007 “eu COPY 
901343 1444124 3710 pzM XFER INITIALIZE THE COPY DIRECTION FLAG 
901344 777777 3720 AW =} 
901345 341776 3730 AD SRSTRY ADD THE SPECIAL'S ADDRESS 
001346 0400140 3740 Dac 10 SET A POINTER TO THE COPY PARAMETERS 
901347 $01635 3750 AND (700000) RETAIN JUST THE USER'S MaCHINE STATE 
901350 041776 3760 Dac SRSTRT AND SAVE I¥ FOR NOW 
001381 201753 3770 Lac SAC LOAD THE USER'S DESIRED MESTART ADDRESS 
901382 744100 3780 SPA SKIP JF aA DEVICEeTQ-CORE COPY IS REQUESTED 
901353 441124 3790 tNX XFER ELBE FLAG A CORE=TO-BEVICE Copy 
901354 501636 3809 AND (077777) RETAIN JUS® THE ADBRESS BITS 
001355 241776 3810 KOR SRSTRT ADD JN THE PREVIOUS MACHINE STATE 
901386 044776 ee pac SRSTRY SaVE THE CORRECTED USER RESTART DATA 
383 * 
3840 r SE7 UP THE REQUESTED CORE ADDRESS AND LENGTH 
3850 * 
001357 220010 3860 Lac 109% 
001360 041121 3870 Dac RCA SEF THE REQUESTED CORE ADDRESS 
901361 041123 3880 pac TEMPS ANB SAVE [¥ FOR LATER CHECKS 
901362 #20010 3890 Lac 10°X 
901363 044122 Ay. bac RLEN SET THE REQUESTED LENGTH 
3910 * 
3920 * WHE COPY WILL ACTUALLY BE DONE FROM GREATER ($FRCA,RCA) 70 
3930 * LESSER (FEA,REA), AN ERROR MESSAGE WILL BE GENERATED IF THIS 
3940 ® RESULTS IN 4 NEGATIVE OR ZERO LENGTH COPY, 
3950 * 
3960 s S27 Up THE ACTUAL COPY START 
3970 « 


SPL--Bl2 05/31/72 01505702 SPECIAL IOT INSTRUCTION (EXECUTIVE SERVICE CALL) HANDLER PAGE 


Q COPY (705019) 
001364 777777 «3980 LAW “4 
001365 $41121 3990 Tad RCA 
901366 740001 4000 CMA aC = THO'S COMPLEMENT OF THE RCA 
901367 341701 4010 TaD SFRCA 
f01370 744100 4020 SPA SKIP IF THE COPY START NEEDS TO BE OVER RIDDEN 
901371 604374 4030 JMP COPY2 ELSE GO ON TO THE MEXT CHECK 
001372 201701 4040 LAC SFRCA 
001373 044121 4050 Dac COA SFRCA > RCA, SO USE $FRCA FOR A STARTING CORE ADDRESS 
4060 * 
4070 a SET UP THE ACTUAL COPY LENGTH 
4080 « 
001374 777777 40990 Copy2 Law -4 
001375 3441123 4100 TaD TEMPS ADD THE REQUESTED START ADDRESS 
001376 $44122 4110 TaD RLEN ADB THE REQUESTED LENGTH To GET THE REQUESTED END appRESS 
001377 740001 4129 CMA AC = TWO'S COMPLEMENT OF THE REA 
001400 344764 4130 TaD SFRCA 
Nol4o1 341702 4140 TaD SFRLEN ADB THE FEA 
001402 740100 4150 SMA SKIP IF THE COPY LENGTH NEEDS TO BE CHANGED 
001403 601414 _ MP COPY4 ELSE GO ON TO FURTAER CHECKS 
417 * : 
4180 « FEA € REA, SO COMPUTE CLEN, WHICH MAY BE LESS THAN EITHER 
4190 ® SFRLEN OR RLEN, 
4200 * 
001404 777777 4210 Law 74 
001405 $44121 4220 TaD COA ADD THE ACYUAL CORE ADDRESS OF THE COPY 
601406 740001 4230 CMA AC = TWO'S COMPLEMENT OF CCA 
001407 342701 4240 TAD SFRCA 
901410 844702 4250 TAD SFRLEN ADD FEA w- AC ® GLEN 
001441 741300 4260 SNA}SPA SKIP IF THE COPY LENGTH IS LEGAL 
N0l442 601075 4270 JMP ERR ELSE GO PRINT AN ERROR MESSAGE 
001443 041122 ate Dac CLEN SE? THE LENGTH TO aCTUALLY BE COPIED 
429 * 
4300 * SET THE STARTING ADDRESS OFFSET CONSTANTS 
4310 * 
f01494 777777 4320 COPY4 = =\alW “4 
001445 3414701 4330 rad SFRCA 
901446 740003 4340 CMA AC « THO'S COMPLEMENT OF SFREA 
001447 §$44121 4350 TaD COA ADB THE acTUAL CORE aDDRESS OF THE COPY 
901420 041123 4360 Dae STOFF Save THE ENTIRE STARTING appRESS oFFSET 
01421 744000 4370 CLL PREPARE FOR THE SHIFT 
001422 640510 4380 LRS 8, DIVIDE BY 400 
901493 04112 A390 Dac $08 Save THE NUMBER OF WHOLE BLOCKS IN THE OFFSET 
001424 20112 4400 LAC STOFF 
901425 501637 4410 AND (377) MOBULO 400 
001426 941123 ae 2 Dac SQW SAVE THE NUMNER OF WORDS OF OFFSET PaST A BLOCK BOUNDARY 
4440 * CALCULATE THE STARTING DEVICE ADDRESS 
4450 * 
001427 201700 4460 LAC $SFRDA LOAD THE FILE'S aCTUAL DEVICE ADDRESS 
901430 344120 4470 Tad $08 ADD THE NUMBER OF BLOCKS OF OFFSET 
901431 044120 4480 DAC CDA SET THE DEVICE ADDRESS OF THE START OF THE COPY 


001432 041115 4499 DAC DA SET THE CDA FOR A 61) BLOCK READ IN CASE IT IS NEEDED 


SPL -B12 


Q 


001433 441120 
001434 777777 
001435 3414123 
901436 740001 
001437 341122 
901440 041122 
001441 101627 


001442 201123 
001443 7414200 
001444 601055 


001445 764115 
901446 601034 
001034 
901034 4104150 
001035 601075 


001036 777777 
001037 341116 
001040 $41128 
001041 0400140 
001042 777400 
901043 341123 
001044 044115 
001045 777777 
001046 $41121 
001047 040041 
001050 ¢20010 
001051 060011 
001052 441121 
001053 444145 
001054 601050 


003055 
001055 204122 
001056 741300 
901057 601063 


05/31/72 


4500 
4510 
4520 
4530 
4540 
4550 
4569 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4929 
4930 
4940 
4959 
4960 
4970 
4980 
4990 
5000 
5010 


01705302 


sea 


COPY7 


ses 


copys 


SPEC 


NOW 


1NX 
LAW 
TAD 
CMA 
TAD 
DAC 
JMS 


THE 


Lac 
SNA 
MP 


THE 
OVWR 


LAW 
JMP 
»USE 
JMS 
JMP 


WE ON 
COPY 


LAW 
TaD 
TAD 
DAC 
Law 
TAD 
DAC 
LAW 
TAD 
Dac 
Lac 
DAC 
INX 
182 
wJMP 


SEE 


ere 
Lac 
SNAJ 
uMP 


TAL LOT INSTRUCTION (EXECUTIVE SERVICE CALL) HANDLER PAGE 


COPY (705019) 


UPDATE ALL POINTERS TO WHAT THEY SHOULD BE AFTER TWE FIRST BLOCK IS READ 


CDA COUNT THE BLOCK JUST READ 
~ i : 
SQW 
AC = TWO'S COMPLEMENT OF Sow 
CLEN 
CLEN UPDATE THE LENGTH By THE AMOUNT JUST COPIED 
PARAM2 CHECK THE PARAMETERS BEFORE TRYING THE TRANSFER 


COpy IS LEGAL -- CHECK TO SEE WHETHER OR NOT IT STARTS FROM A BLOCK BOUNDARY 


SOW LOAD THE WORD OFFSET 
SKIP IF THERE IS OWE 
COPY6 ELSE THE COPY STARTS FROM a BLOCK BOUNDARY 


COPY DOES NO™ STARY AT A BLOCK BOUNDARY, READ A BLOCK INTO 
BUFFER SO THE JUNK CAN BE DELETED, 


DA LOAD THE POINTER TQ THE READ PARAMETERS 
COPY? 

PERM 

DO AND READ THE FIRST BLOCK OF THE COPY 
ERR3 SOME SORT OF A HARBWARE ERROR 


OW HAVE IN OUR CORE THE ODD WORDS AND SOME GARBAGE. TOO. 


THE GOOD WORDS INTO THE USER CORE 
= 
BUF ADD ADD THE START ADDRESS OF THE BUFFER 
SQw ADD TWE WORD OFFSET 
10 SET THE POINTER TO Tee FIRST GOOD WORD TO BE COPIED 
-400 
SQW ADD THE WORD OFFSET? 
DA SET THE YOTAL NUMBER OF WORDS TO TRANSFER 
“1 
CCA 
14 SET THE START OF THE USER CORE TO TRANSFER TO 
10x 
11.X COPY THE NEXT GOOD WORD 
CCA BUMP FHE CORE ADDRESS POINTER 
DA AND COUNY THE WORD 
COPYS8 NEXT ete 


IF THERE IS STILL ANY COPYING FO DO 


CLEN 
SPA SKIP IF THERE IS STILL COPYING TO DO 
COPYD ELSE DONE 
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Q COPY (7050193 
5020 * THERE 1S COPYING TO DO -- THE CORRECT PARAMETERS ARE ALREADY IN 
5030 bd CDA. CCa,s & CLEN, -=- SO STARY IT UP 
5040 * 
Oolg60 761120 5050 LAW CDA LOAD A POINTER TO THE PARAMETERS 
001061 101130 5060 JMS DQ DO THE RES¥ OF YHE caPY 
QOol062 601073 5070 JMP ERRS SOME SORT OF HARDWARE ERROR 
5080 ® 
5090 * DONE 
5100 bal 


901063 601077 5110 COpyYD JMP SPLDON 


SPL--12 05/31/72 01505302 SPECIAL I10T INSTRFYCTION (EXECUTIVE SERVICE CALL) HANDLER PAGE 45 


Q MAIN PROGRAM 
5120 »STITL «MAIN PROGRAM 
001447 5130 USE OVRLAY 
5140 * 
5150 * 
5160 « PROTECT OURSELVES FROM RESIDENT pROGRAM INTERFERENCE AND TURN THE 
5170 * PROGRAM INTERRUPT SYSTEM BACK ON, NOTE TwaY THE THINGS THE PROGRAM INTERRUPT 
5180 * SYSTEM MAY CLOBBER ARE ALL STILL SAVED IN THE USER JOB TABLE, 
§190 * 
004447 5200 SPLST ae 
001447 641002 5210 Aca 
001450 041124 5220 pac XFER SAVE THE USER'S REQUESTED RESTART FROM a DISK/DECTAPE OPERATION 
001451 200005 5230 Lac $3AC 
001452 041753 5240 Dac SAC SAVE THE USER'S ac 
001453 200026 5250 Lac $,310 
001454 041723 5260 Dac $.0410 SAVE THE USER'S REGISTER 10 
001455 200027 5270 LAC $,311 
001456 041724 8280 Dac $,0411 SAVE THE USER'S AUTO“INDEX REGISTER 11% 
001457 201776 5290 Lac SRSTRT LOAD THE PC SO THAT IT CAN BE SAVED FOR THE CALLER 
901460 040702 5300 pac $0CO PASS THE OLD PC Back TO THE CALLER 
901461 200000 5310 Lac 0 
001462 041776 5329 DAC SRSTRT SAVE THE USER'S EXVENDED PC FOR RESTART 
001463 750001 5330 eLe 
901464 040266 5340 pac SDKLOK TIE UP THE DISK TO INHIBIT INTERRUPTS FROM AFFECTING US 
001465 200035 53550 Lac $RCORE 
901466 440035 5360 DZM $RCORE TELL THE RESIDENT PROGRAM THERE !S NO MEMORY PROTECTION OVERLAY IN CORE 
001467 044125 5370 pac Ccu AND SAVE TME CURRENY CORE USER NAME 
001470 700042 5380 TON AT LAST IT IS SAFE YO TURN TwE [INTERRUPT SYSTEM BACK ON 
5390 * 
5400 * DECIPHER THE TYPE OF SPECIAL JOT GIVEN <€03377>. CHECK THAT IT DOESN'T 
5410 * EXCEED THE MAXIMUM PERMISSIBLE (#SPMAX), WHICH WOULD RESULT IN ,N UNDEFINED 
5420 * FRANSFER, IF LEGAL, TRANSFER THROWGH THE SPECIAL TABLE, ELSE PRINT AN ERROR MESSAGE, 
5430 & 
901471 777777 3440 LAW 74 
001472 341776 5459 TaD SRSTRY 
001473 041120 5469 DAC TEMPO SAVE THE ADDRESS OF THE SPECIAL 
001474 5006351 3470 AND SADRSS 
901475 941741 5480 DAC SUTEMS SAWE JUST THE ADDRESS IN CASE OF ILLEGAL CALL 
001476 221120 53490 LAC TEMPO, NOW RECOVER THE SPECIAL 
001477 6013637 5500 AND (SSPCOD) RECOVER THE SPECIAL CODE 
001590 041121 5519 DAC TEMP4 
901501 341520 5520 Fad SPMAX CHECK FOR LEGALITY 
901502 750300 3530 SPLA SMASSZAICLA 
001503 601073 5540 JMP ERR3Z ILLEGAL SPECIAL CALL 
001504 201121 5559 Lae TEMPS RELOAD THE CODE 
001505 3441640 55609 fad (SPTABL) 
001506 044122 5570 DAC TEMP2 SET UP THE TRANSFER 
901507 621122 5580 JMP TEMP2,X 
$590 * 
5600 * 
5610 * TRANSFER TABLE FOR LEGAL SPECIAL IOT CODES 
5620 * 
001510 601300 5630 SpTABL yMP Spooo MPOFF 


SPL--B12 


001541 
001542 
001543 
001544 
001545 
001546 
001547 
§01520 


05/31/72 
Q 


601307 
601317 
601314 
601321 
601311 
601335 
601343 
777774 


5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 


01+05%02 


SPMAX 


SPECIAL IOT INSTRUCTION (EXECUTIVE SERVICE CALL) HANNLER 


MAIN PROGRAM 


JmP SP004 
wJMP SP002 
wMP SP003 
JMP SP004 
JMP SP005 
JMP $0006 
JmMP SP007 
SPTABL-, +4 


TERMINATE 

READ 

PREAD 

WRITE 

PWRITE 

OPEN 

CORY 

MINUS THE GREATEST LEGAL SPECIAL NUMBER 


PAGE 
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Q 


004521 


001521 


001521 740040 
001522 201774 
901523 740200 
001524 624521 
001525 601073 
001064 


001064 760003 
001065 741000 
901066 760001 
001067 341641 
001070 341641 
001071 941642 
001072 744000 
901073 760003 
001074 041706 
001075 764004 
001076 741000 


004077 
001077 761006 
001100 040654 
Qoli01 700002 
Oo1102 204123 
901103 040035 
901104 20147583 
901105 040005 
001106 204723 
001107 040026 
Oo1140 201724 
001111 040027 
Polis2 204776 
Ool113 040000 
901144 600336 

001526 


5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 


5810 
5820 
5830 
$840 
5850 
5860 
5870 
5880 
8890 
5900 
5910 
5920 
5930 
$949 
5959 
5960 
5979 
8980 
5990 
6000 
6010 
6020 
6030 
6049 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
61420 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 


04:05:02 


meses ts 


RRi4 


ERR 
ERRS 
ERR7 
ERR6 


ERR3 
ERR 


* 
SpLDON 


SPECIAL IOT INSTRUCTION CEXECUTIVE SERVICE CALL) HANDLER PAGE 
MISCELLANEOUS SUBROUTINES 

~STITL MISCELLANEOUS SUBROUTINES 

USE OVRLAY 


CHECK To SEE IF THE CALLER IS A PHeNTOT PROGRAM, IF So. RETURN 
NORMALLY, OTHERWISE FALL THROUGH AND PRINT aN ERROR MESSAGE aBO0UT 
WIS ILLEGAL SPECIAL IO0T INSTRUCTION, 


ENTER 

, PMC SAVE,ON 

KX 

Lac $TYPE FIND OUT WHAT TYPE OF PROGRAM THE USER 18 
SZA SKIP JF We IS A USER PROGRAM 

RET PHCHK, X RETURN NORMALLY IF HE IS A PHANTOM PROGRAM 
JMP ERR3 ELSE THE SPECIAL cALL WAS ILLEGAL 

,USE pERM 


SET Up TO PRINT THE AppROPRIATE ERROR MESSAGE FOR THE USER 


LAW 3 

SKP 

AW 1 

Fad (4) 

TAD (4) 

Fad (6) 

SKP 

iW 3 

Dac SUTEM2 SEF TWE MESSAGE NUMBER 
LAW SSwWERR LOAD THE SWAPPER ENTRANCE TO GET MONITOR/SYSTEM MESSAGES 
SKP 


RESET THE NECESSARY REGISTERS BEFORE RETURNING TO THE SWAppER 


LAW SSXSPL LOAD THE SWAPPER ENTRANCE TO EXIT THE SPECIAL HANDLER 
DAC $00 SET THE SWAPPER ENTRANCE 

ree SWAPPER MUST BE ENTERED WITH THE INTERRUPT SYSTEM OFF 
A CCU 

DAC $RCORE RESTORE THE CURRENT CORE USER'S NAME 

LAC SAC 

DAC $3AC RESEY THE USER'S Ac 

Dac $,3510 RESET THE USER'S LOCATION 10 

LAC $,O0%41 

Dac $,511 RESET THE USER'S LACATION 114 

Lac S$RSTRT 

Dac 0 REBET THE USER+S RESTART DaTa 

JMP SSWAPYL GET THE SWAPPER 


»VSE OVRLAY 
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Q 


001526 


901526 
001527 
001530 
001531 
001532 
001533 
001534 
901535 


740040 
041263 
204767 
041126 
344643 
341144 
740004 
057601 


001596 


001536 
00901537 
001540 
001541 
§01542 
001543 
901544 
901545 
001546 


777777 
344753 
040010 
220010 
0441120 
#20010 
044121 
220010 
044122 


004547 


001547 
001550 
001551 
901552 


001553 
001554 
901555 
001556 
001557 


£04120 
640603 
740100 
601560 


204120 
504264 
750200 
604067 
601575 


6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 


6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
67090 
6710 


01305102 


weeeektes 


ARAM 


PaRe 


wee sveee & 


AR4 


se ¢ 8 


SPECIAL IOT INSTRUCTION (EXECUTIVE SERVICE CALL) HANDLER PAGE 
DISK/DECTAPE PARAMETER CHECKING 

sSTITL DISK/DECTAPE PARAMETER CHECKING 

PARAMETER SETUp AND CHECKING FOR THE DISK/BECTAPE HANDLER IS 

DIVORCED FROM THE ACTUAL HANDLER SO THAT TAE CODE FOR CHECKING CAN 


Be PUT INTO THE BUFFER AREA, THE WANDLER JFSELF MUST BE IN THE 
PERMANENT AREA, 


ENTER THIS ENTRANCE WILL RESTRICT USERS TO YHEIR "PHYSICAL DISK" 
PMC SAVE,ON 

xx 

Dac CMND SEY THE COMMAND POENTER 

Lac SUDISK LOAD THE STARTING @LOCK OF HIS "PHYSICAL DISK" 

DAC DKMIN RESET THE DISK gaSE ADDRESS 

Fad (SDKLENBS ADD THE LENGTH (IN BLOCKS) OF HIS MPHYSICAL DISK" 
TaD M4 SUBTRACT 14 

OMA AC = TWO'S COMPLEMENT OF MaXIMUM BLOCK NUMBER 

pac DKMAX SEY If FOR THE MANBLER 

ak . cOPY THE USER'S PaRamMETERS 

LAW “i LOAD (-1) 

TaD $AC ADB THE USER'S PARAMETER POINTER 

Dag 10 SET AN AUTO#*INDEX POINTER TO THE USER!S PARAMETERS 
Lal 10+xX 

pac TEMPO SET THE USER'S DEVtCcE ADDRESS 

LAC 10x 

Dae TEMP SEX THE USER'S CORE ADDRESS 

Lac 10x 

pac TEMP2 SET THE USER'S WORD COUNT 


NOW THE USER'S PaRaMETERS gRE SET UP IN TEMPQ~TEMPO, NEXT? DO a 
SERIES oF TESTS FOR PARAMETER ERRORS, JF ONE 18 FOUND, PRINT AN 
ERROR MESSAGE, OTHERWISE RETURN TO THE CALLER, THE DISK/DECTAPE 
WILL pO NO FURTHER ERROR CHECKING 


e SEPARATE DISK AND BECTAPE FOR LEGAL HANDLER CHECKS 
tac CDA LOAD THE DEVICE appRESS 

LUs 3 MOVE THE DEVICE TYPE BIT TO THE SIGN BIT 

SMA SKIP FOR DISK 

JMP PRT ELSE IT 1S , TaPE OPERATION 


THE DISK NUMBER IS PHYSICAL, WE ONLY HAVE PHYSICAL DISK 0. 
ANY OTHER DISK NUMBER 1S a PARAMETER ERROR, NON-EXISTANT pISK REFERENCE, 


Lac CDA RELOAD THE DEvyICE apDRESS 

AND TPMSK RECOVER JUST THE HANDLER NUMBER 

SZACLA SKIP JF LEGAL 

JMP ERRB ELSE PARAMETER ERROR! NON-EXISTANT DISK REFERENCE 
MP PARS CONTINUE 


THE DECTApPE HANDLER MUST HAVE BEEN ASSIGNED TO TWIS USER TO 
BE LEGAL. NO DISTINCTION IS MADE BETWEEN A HANDLER NOT YET ASSIGNED 
TO ANYONE AND ONE ASSIGNED TO SOMEONE ELSE, 
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Q 


001560 


001560 
001561 
001562 
001563 
901564 
001565 
901566 
001567 
901570 
001571 
901572 
001573 
001574 


201120 
501264 
744020 
742020 
544771 
540032 
601572 
540033 
741000 
601066 
141126 
776700 
041127 


001575 


001575 
901576 
001577 
001600 
901601 
001602 
001603 
001604 
901605 
901606 
001607 


901640 
001641 
001642 
001643 


001644 
901645 
901646 
001647 
001620 
001621 


744000 
201122 
650510 
0411350 
204120 
904265 
944126 
344130 
341127 
750100 
604071 


776001 
344121 
744300 
101521 


762000 
941121 
344122 
750100 
601070 
621526 


6720 
6730 
6740 
6759 
6760 
6770 
678) 
6790 
6800 
6810 
6820 
6839 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6949 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7.020 
7039 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
71410 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 


01705302 


PART 


PAR6 


Reeves 


ARS 


2 
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SPECIAL IOT INSTRUCTION (EXECUTIVE SERVICE CALL) HANDLER PAGE 49 


DISK/DEC*APE PARAMETER CHECKING 


ae? 


LAC CDA 
AND TPMSK 
CLELYRAR 

RTR 

TaD $NUMBR 
Sad SRDTO 
JMP PaR6 
Sad $RDT4 
SP 

JMP ERR9 
DZ DKMIN 
LAW -1100 
Dac TDMAX 


CHECK FOR AN ATTEMPT To 


CHECK FOR AN UNASSIGNED DECTApE HANDLER 
RELOAD THE DEVICE ADDRESS 
RECOVER JUST THE HANDLER NUMBER 


MOVE THE HANDLER NUMBER TO THE PROPER POSITION 

FORM THE DECTAPE ALLOCATION TAG 

CHECK THE FIRST HANDLER 

OK -- MATCN FOUND --~ CONTINUE 

CHECK THE OTHER WANDLER 

OK -~ MATCN FOUND -- CONTINUE 

ELSE PARAMETER ERROR! DEVICE NOT ASSIGNED TO THIS USER 
DECTAPE 1S LEGAL FROM BLOCK 6 


SET THE MAXIMUM LEGAL DECTAPE BLOCK 
TRANSFER PAST THE HIGH END OF A DECTAPE 


OR A LOGICAL DISK ~~ EYTHER SYSTEM LOGICAL DISK OR 


WUSER PHYSICAL D{Sk” 


CLL 

LAG CLEN 
CLOILRS 8, 
Bac DQ 
LAG CDA 
ANO BMS: 
Tad DKMIN 
Yad DO 
Fad TDMA 
SMAICLA 

JMP ERR 


CHECK FoR AN AT{SHPT Tp 


Lal “BOUNDARY ol 
Tad CCA 

SNAISPA 

JMS PHCHK 


EILYTWER THE TRANS?ER WAS 


DEVICE NUMBER/TYPE HaS BEEN FOUND LEGal 


LOAD THE LENGTH OF TWE TRANSFER 

DIVIDE BY 400 TO GET NUMBER OF BLOCKS 

SAVE IT FOR FURTWER CHECKS 

RELOAD THE DEVICE apbRess 

RETAIN JUST THE STARTING BLOCK NUMBER 

ADB THE DEVICE BASE YO GET THE STARTING BLOCK 

ADB IN THE NUMBER OF BLOCKS ASKED FOR TO GET THE MAXIMUM ADDRESS REFERENCE 
SYBTRACT OFF THE MAXIMUM LEGAL BLOCK 

SXi? IF THE TRANSFER IS LEGAL 

ELS PARAMETER ERROR: ATTEMPT TO TRANSFER DATA OVER THE END OF THE DEVICE 


YRANSFER DATA TO/FROM BELOW THE MEMORY PROTECTION BOUNDARY 
SUBTRACT TME BOUNDARY 

FROM THE DESIRED CORE ADDRESS 

SK3P IF THE ADDRESS 1S INDEED ABOVE THE BOUNDARY 

ELSE CHECK TO SEE IF THE USER IS A PHANTOM (THEN IY IS LEGAL) 


TO/FROM ABOVE THE BOUNDARY, OR ELSE THE 


USER JS aA PHANTOM PROGRAM 


NOW CHECK FOR AN ATTEMpT YO TRANSFER DATA @VER TWE END OF CORE -= 
THIS WOULD WRAP CORE, AND ON A WRITE COULD DESTROY THE EXECUTIVE, 


LAH =CORMAX 
Fad CCA 

Fad CLEN 
SMASCLA 

JUMP ERR7 
RET PaRaM,X 


SUBTRACT THE END OF CORE 

FROM THE DESIRED CORE ADDRESS 

PLUS THE DESIRED LENGTH 

SKIP IF OK 

ELSE 18 PARAMETER ERROR! TRANSFER OF DaTa PAST CORE MAX 
EXIT 


SPL--B1i2 05/31/72 

Q 

004622 
001622 740040 
001623 041263 
001624 201622 
901625 041526 
001626 601536 

001627 
001627 740040 
901630 201627 
001631 041526 
001632 601547 


7240 
7250 
7260 
7270 
7280 


7290 
73090 
7310 
73520 
7330 
7349 
7350 
7360 


7379) 
7380 
7390 
7400 
7410 


01405302 


we ss & 


ARAM1 


& 
* 
& 


PARAM2 
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DISK/DECTAPE PARAMETER CHECKING 


SEY Up THE PARAMETERS FOR THE DISK/DECTAPE HANDLER ALLOWING 
DISK OPERATIONS ON THE WHOLE DISK 


ENTER 

PMC SAVE,ON 

XX 

DAC CMND SET THE COMMAND POINTER 

LAC PARAM1L 

DAC PARAM SET UP THE EXIT 

JMP PAR? FROM HERE, THE ROUTINES ARE IpENTICAL 


CHECK THE PARAMETERS BEFORE A DISK/DECTAPE OPERATION TO THE BUFFER 


ENTER 

, PMC SAVE,ON 

Xx 

Lac PARAM2 

Dac PARAM SET UP THE EXIT 

JMP PAR4 GO CHECK TNE PARAMBYERS 
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Q 
004135 

001145 000000 
001146 004300 
001117 900400 
001120 000000 
901121 000000 
fol122 000000 
901123 000000 
901124 900000 
9031125 00000 
001126 900000 
001127 776001 


7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
97590 
400 

4250 
1260 


01305302 


SPECIAL IO0T INSTFUCTION CEXECUTIVE SERVICE CALL) HANDLER PAGE 21 
DISK/DECTAPE PARAMETER CHECKING 


» EEC! 
«USE PERM 


MISCELLANEOUS STCRAGE 


,DSA DEVICE ADDRESS FoR A DISK/DECTAPE TRANSFER To THE BUFFER BLOCK 
BUFFER BUFFER CORE ADDRESS 

400 

DSA 

»DSA 

»DSA 

~DSA 

.DSA 

~DSA 

0 MINIMUM DISK ADDRESS 18 ZERO 
71777 MINUS THE MAXIMUM BISK ADDRESS 
»INSRT INSERTIGRODEFIN 

»>IPUND S$DEBUG 

»LYST ON 

»END 


SPL.-B12 05/31/72 


000080 
000081 
000036 
000087 
000040 


Q 


7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7940 
7920 
7930 
7940 
7950 
7960 
7970 


7980 
7990 
8000 
8010 
8020 
8030 
8040 


01405102 


eee ee Baexveeaoeve un @esaenvneoesee Cee ee Ce Ce sean ease & & 


2s 


TAPWC 
TAPCA 
DSKWC 
DSKCA 
DSKLN 
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DECTAPE AND DISK SUBROUTINES 
»STITL DECTAPE AND DISK SUBROUTINES 


PROGRAMMED BY JAMES CRUCE '72 
WARREN MONTROMERY !73 


THESE SUBROUTINES ALLOW A PDP-9 PROGRAM TO BE ABLE TO READ OR wRITE 
TO DECTAPE OR TO THE RSo9 DISK BY SIMPLY BOING a JMS TO ONE OF 
THE ENTRANCES WITH THE AC POINTING TO A LIS? OF 3 PARAMETERS, 


THE TWO ENTRANCES ARE 'DECIN! AND *DECOT! WHICH ARE USED TO 


READ INTO CORE OR WRITE OWT CORE RESPECTIVELY. 
IF THE SUBROUTINES DETECY aN ERROR WHILE TAEY 
ARE EITHER WRITING OR READING THEY WILL HALT THE OPERATION IN PROGRESSS 


AND PLACE THE STATUS IN THR AC AND TRANSFER TO A HLT at 17504, 


PARAMETER LIST 
2SLS2Rr=sSecsses 

THE PARAMETER LIST CANSISTS OF 3 CONSECUTIVE WORDS, 
THE LIST WOULD LOOK SOMETHING LIKE THIS!) 


WORD 1----TAPE OR DIgk HANDLER NUMBER, BLOCK NUMBER 
WORD 2----CORE ADDRESS TQ START WRITING TO/FROM 
WORD 3--+-LENGTH TO BE WRITTEN 


THE WAST TWO ARE SELF EXPLANATORY Buy THE FIRSY WILL REQUIRE A LITTLE 
BIT MORE EXPLANATION, BITS 0-2 ARE THE HANDLER OR DISK NUMBER, 

BIT 3 SHOULD Be 1 IF THe PROGRAM WANTS 70 pO 170 WITH THE pISK 

AND JT SHOULD BE 0 IF THE PROGRAM WANTS TO USE THE DECTAPE 

Alb B- *17 ae USED TO DETERMINE THE BLOCK NUMBER TO gEGIN THE READING 
OR WRITING AT, 


THE PROGRAM WILL ONLY BE ABLE TO WRITE TO A SELECTED PORTION OF THE 
DISK BUT WILL BE ABLE TO READ ANYWHERE ON TwE DISK PHAT IS PAST 
THE PLACEMENT OF THE PROGRAM'S BLOCK 0, YHE TWO PARAMETERS YO MODIFY 
T0 Sain A ACCESS TO a SPéEcIFIC PORTION OF THE gist oHP AR! WHICH 
GIVES THE HIGHEST BLOcK NUMBER Thal THE PROGRAM WILL BE ABLE To WRITE, 
THE ADDRESS GIVEN IN 'DSKAD! DEFINES WHERE BLOCK o WILL BE ON THE 
DISK AND ALL OF THE REST OF THE BLOCKS ARE IN RELATION TO THIS, 


»EQYU 30 
»EQU 31 
eEQY 36 
»E QU 37 
BOY 8, 
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Q ROUTINES TO GET THE POINTERS FOR DECTAPE 
8050 ,STITL ROUTINES TO GET THE POINTERS FOR DECTAPE 
004150 8060 USE PERM 
80790 * 
8080 ® THIS ROUTINE WILL CALL THE GTCBLK AND STpMTR ROUTINES TO 
8090 * GET THE COMMAND EXECVUTED, 
8100 a 
004130 68110 DO ENTER 
001131 040010 8120 pac 10 SET TWE COMMAND POINTER 
8130 * 
8140 ® NOW SET THE PHYSICAL ADDRESS FOR BOTH DEVICES 
8150 « 
901132 220010 8160 LAC 10x LOAD THE FIRST PARAMETER WORD 
901133 041176 8170 Dac WTINT SAVE JT FOR NOW 
901134 501265 8180 AND BMSK RECOVER JUST THE BLOCK NUMBER 
001135 041270 8190 Dac RBLK SEY 1T FOR THE DECTAPE ROUTINES 
901136 341126 8200 TaD DKMIN ADD IN THE RELOCATION CONSTANT FOR THE BOTTOM OF THE LOGICAL DISK 
0011437 660710 8210 ALSS DSKLN CONVERT THE BLOCK COUNT TO WORD COUNT 
901140 707024 asa DLAL PLACE JT INTO THE DISK ADDRESS REGISTER 
8230 « 
8240 * SET UP THE CORE ADDRESS FOR THE DISK ONLY #- THE DECTAPE DATA CHANNEL 
8250 * CELL IS STILL NEEDED FOR OFHER THINGS IF 1% IS A DECTAPE TRANSFER, 
8260 ® 
001141 777777 8270 AW 74 LOAD A MINUS 1 
001142 360010 8280 Tad 10.X ADB THE SECOND PARAMETER TO GET THE STARTING CORE ADDRESS FOR THE TRANSFER 
901143 040037 8290 Dac DSKCA SET IF FOR A DISK OPERATION: SAVE IT FOR a DECTAPE OPERATION 
8300 : 
8310 * SEY UP THE WORD COUNT FOR BOTH DEVICES 
6320 a 
001144 777777 8330 M4 LAW -4 LOAD A MINVS 4 
001145 360010 8340 Tad 10x ADD THE YHIRD POINTER YO GET THE LENGTH TO BE COMPLEMENTED 
901146 740004 8350 CMA FORM THE TWO'S COMPLEMENT LENGTH 
001147 040030 8360 Dac TAPWC SET THE DECTAPE WORD COUNT 
£01150 040036 8370 Dac DSKWC sEY THE DISK WORD COUNT 
8380 * 
8390 . 
ne « DECIDE WHETHER TO DO A DISK OR A DECTAPE OPERATION 
844 . 
601154 201176 8420 Lac WtINT RELOAD THE FIRST PARAMETER WORD 
901152 640603 8430 LLS 3 MOVE THE YYPE SIT To AC(O) 
001153 741100 98440 SPA SKIP IF THE DEVICE 18 A DECTAPE 
901154 604242 aa ume DODSK ELSE TRANSFER TO THE DISK ROUTINES 
é 
8470 « THIS SECTION WILL GET THE BLOCK YHAT IS SPECIFIED IN THE 
8480 « PARAMTERS UNDER THE WRITE OR READ HEADS OF THE DECTAPE 
8490 * UNIT, 
8500 * 
001155 761256 8510 DT0 Law TGAL GET A POINTER TO TAE BUFFER 
001156 040033 8520 pac TAPCA PUY JT IN FHE RIGHT PLACE 
901157 204176 8530 Lac WTINT GET THE PARAMETER WORD BACK 
001160 §01264 8549 AND TPMSK ANB IT DOWN TO ONLY THE TAPE HANDLER NUMBER 
901161 044260 8550 Dac STPTP PUY IT INTO THE STQP TAPE INSTRUCTION 
901162 241262 8560 XOR SNST4 OR IN THE REST OF YHE INSTRUCTION 


SPL~-B12 


001163 
001164 
001165 
001166 
001167 
901170 
001171 
001172 
001173 
001174 
001175 


05/31/72 
e) 


707545 
101176 
601206 
201256 
740004 
344270 
341144 
744100 
604212 
707554 
601164 


004176 


901177 
801200 
901201 
Pol2o2 
901203 
Bol204 
801205 


707573 
741000 
621176 
707601 
601177 
441176 
621176 


004206 


001206 
0091207 
012140 
01241 


001282 
Ool243 
Pol2se 
901245 
001246 
901247 
901220 
001221 
901222 
001223 
001224 
001225 


901266 
743220 
624150 
707544 


204261 
707544 
101176 
744000 
601221 
201267 
707544 
201256 
544270 
601226 
707554 
601214 


004226 


8570 
8580 
8590 
8600 
8610 
8620 
8630 
8640 
8659 
8660 
8670 
8689 
8690 
8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 
8799 
8800 
8810 
8820 
8830 
8840 
8850 
8860 
8870 
6880 
8890 
8900 
8910 
8920 
8939 
8940 
8950 
8960 
8970 
8980 
8999 
9000 
9010 
9020 
9039 
9040 
9050 
9060 
9070 
9080 


01505402 


zees 8 & 


TINT 
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ROUTINES TO GET THE POINTERS FOR DECTAPE 


DTLA ISSUE THE ENSTRUCTION 
JMS WTINT WAIT FOR DECTAPE TO STOP 
JMP SEAL ANALYSE IN CASE OF ERROR FROM BOT 
er TCAL GET TAPE aQDRESS 
MA 
TaD RBLK ADD BLOCK WE ARE aT 
TaD M4 CHANGE TO ONE LESS 
SMAICLL SE& IF We ARE PAST pO (AND KEEP THE LINK CLEAR 
JMP REV YES -- REVERSE 
DTXa*i0 CLEAR DIF 
JMP DT4 AND TRY AGAIN 


WAYT FOR DT INTERRUPT 


RETURN IS TQ #e1 JF ERROR, #¢2 IF NOT 


ENTER 

OTEFIDTRB CHECK FOR DECTAPE ERROR 

SKP NO ERROR 

JMP WTINT)X ERROR, RETURN 

BTOF CHECK FOR BECYAPE OPERATION COMPLETE 
uMP WTINTSd JUST LOOP IF NOT 

1$Z WTINT RETURN PROPERLY 

JMP WrINT,X RETURN 


ERROR OCCURRED, CHECK FOR BOT 


ner GET THE STATUS REGISTER 

AND B81TB CHECK FOR OBVIOUS #of ERROR 

SNA;RTR CHECK FOR BOT, AND ROTATE BI? FOR START TaPEe BIT 
JMP DO.x DEGTAPE ERROR 

DTXA SEY IT 


REVERSE THE TAPE 


Lac REVDR TURN TAPE ARROUND 

DTXA 

JMS WTINT WAIT FOR AN INTERRUPT 

SKP SKIP IF ERROR 

JMP 0¢3 NO ERROR - OK 

Lag DTST RESTART THE TAPE 

DTXA SET [Ff 

Lac TCAL MAKE SURE BLOCK IS THE SAME 
SaD RBLK CHECK AGAINST WHERE WE WANT FO BE 
JMP DT3 HERE 

DTXA*10 CLEAR THE FLAG 

JMP DT2 AND WAIT AGAIN 


gee 


WE WAVE FOUND THE PLACE ON YHE TAPE SO CHANGE THE SWITCH WORD 
AND THE OTHER PARAMETERS NECESSARY TO EXECUTE TME COMMAND. 


24 


SPL--B12 


901226 
001227 
901230 
001231 
001232 
901233 
601234 
901235 
901236 
901237 
901240 
901261 


05/31/72 


Q 


200036 
040030 
200037 
0409031 
221263 
707544 
101176 
621130 
204260 
707545 
441130 
6211350 


9090 
9100 
9110 
9420 
9130 
9140 
9150 
9160 
9170 
9180 
9199 
9200 
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ROUTINES TO GET THe POINTERS FOR DECTAPE 


LAC DSKWC LOAD THE OLD WCRD COUNT 

DAC TAPWC RESTORE IT 

AC DSKCA LOAD THE CORE ADDRESS FROM WRERE IT WAS SAVED FOR THE DISK 
DAC TAPCA AND SET IT FOR THE DECTAPE 

LAC CMND,X GET THE COMMAND THAT [{S TO BE ISSUED 

QOTXA ISSUE THE INSTRUCTION 

JMS WTINT WAIT FOR OPERATION TO COMPLETE 

JMP DQ.X DECTAPE ERROR 

LAC STPTP GET THE STOP INSTRWCTION 

DTLA STOP THE TAPE 

INX DO 

JMP DO, xX RETURN TO THE CALLER +2 FOR a SUCCESSFUL. QPERATION 


SPL--B12 


05/31/72 
Q 


001242 


901242 
001243 
901244 
001245 
001246 


901247 
001250 
001251 
901252 
901253 
001254 


441263 
221265 
707047 
707001 
601245 


707272 
707242 
741100 
621150 
444130 
621130 


04505802 


SPECIAL IOT INSTRUCTION (EXECUTIVE SERVICE CALL) HANDLER PAGE 
DISK ROUTINES 


eSTITL DISK ROUTINES 


ee DISK AND DECTAPE USE THE Same PASS LIST 
ISSUE THE gPERATION 


{sz CMND MOVE THE POINTER TO THE DISK COMMANDS 
LAc CMND,X GET THE COMMAND 

DSCF IDSFXIDSCN 1SSUE THE OPERATION 

DSSF SEe IF THE OPERATION IS DONE 

JMP 71 If NOT THEN WAIT A LITTLE LONGER 


CHECK THE gPERATION AND RETURN To THE APPROPRIATE PLACE 


DSRS+10 CL@AR THE AC AND GET THE STATUS oF THE QPERATION 
DSCD CLEAR THE FLAGS 

SPA SE& IF OK 

JMP DO.X | 1T WAS BAD SO TELL TWE USER 

1$Z DQ . 


JM? DO.Xx RETURN TO THE CALLER #2 FOR aA SUCCESSFUL QPERATION 
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Q STORAGE AREA 
9420 ,STITL STORAGE AREA 
9430 a 
9440 * STORAGE USED BY ALL OF THE ABOVE ROUTINES 
9450 
001255 015000 9460 WRITE 915000 WRITE COMMAND 
901256 000004 9470 TCAL 4 COMMAND FOR A DISK WRITES aLSO USED FOR DECTAPE TEMPORARY STORAGE 
fol257 013000 9480 READ 913000 READ COMMAND 
001260 000002 9490 STPTP 2 COMMAND FOR A DISK READ; ALSO USED FOR DECTAPE TEMPORARY STORAGE 
901261 040000 9500 REVDR 040000 REVERSE COMMAND 
N01262 061000 9510 SNSTL 61000 INSTRUCTION TO START THE TAPE 
001263 705002 9520 CMND READ STORAGE FOR THE COMMAND POINTER 
901264 700000 9530 TPMSK 700000 WORD TO MASK DCWN TO ONLY HANDLER NUMBER 
901265 001777 9540 BMSK 4777 MASK TO SAVE ONLY THE BLOCK NUMBER 
001266 100000 9550 BI TB 100000 BIT FOR END ERROR ON TAPE 
901267 020000 9560 DTST 20000 MOTION BIT FOR TAPE 
901270 000000 9570 RBLK 0 
004271 9580 CHECK ,EQU . 
001633 9590 »VUSE OVRLAY 
001633 677777 9600 ,END OVSTRY 


001634 000004 
901635 700000 
001636 077777 
901637 000377 
001640 0014510 
001641 000001 
901642 0900006 
901643 000034 


TRANSFER ADDRESS 601090 


SPL-- B12 


05/31/72 


BLKMSK 
BOUNDA 
BRK 
BSLASH 
WFADD 
BUFFER 
BUFLEN 
CATBLK 
CATLEN 
CATLOG 
CATMAX 
CBo 


0147505302 


4520 
5250 
5270 


4880 
1929 
5230 
3880 
3540 
3550 
3560 
3570 
5580 
3590 
3600 
3530 


910 
4530 
4560 
1820 
1870 
4110 


2340 
3980 
4030 
3990 
4000 
4010 
4020 
4040 
4050 


960 


4600 
2550 
2550 

590 


4060 
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5260 
6150 
6170 


6130 


1040 
2700 


2150 


989 


610 


CROSS REFERENCE TABLE 


5280 6140 6160 


2640 2650 


3770 5240 6120 6400 


5470 


999 1000 16306 5040 5080 


2660 2680 7490 


7070 


PAGE 
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DBKNUM 


4060 
4070 
4080 
4090 
3180 
3130 
2840 
3160 
4560 
3490 
3500 
3380 
2200 
2279 

910 

590 
3510 
3480 
3600 
3640 
4630 
1640 
1650 
1660 
1670 
4680 
4699 
4700 
4710 
4720 
3650 
3660 
2120 
2370 
2360 
2449 
2110 
4860 
2390 
2380 
2420 
2400 
2430 
2489 
2460 
2150 
2459 
2070 
4590 
4600 
4120 
2220 


01%05:02 


4079 
4030 
4090 
4100 
3200 
3200 
3180 
31470 
4570 
3500 
5510 
3390 
2210 
2280 

980 


3520 
3490 
3630 
3650 


3660 


2130 
2380 
2370 
2450 
2420 


2400 
2390 
2430 
2410 
2440 
2499 
2470 
2160 
2460 
2080 
4600 
4610 
4130 
2270 


SPECIAL 


7180 


3640 
3670 


1QT INSTRUCTION CEXECUTIVE SERVICE CALL) HANDLER 


CROSS REFERENCE TABLE 


4250 


PAGE 
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DBKTAB 
DBSTOR 


EQUAL 
EXCLAM 


Q 


2210 
2050 

410 
5000 
2080 
4580 
4610 
2340 
2140 
2170 
4270 
4310 
4350 
2750 
4170 
2650 
2660 
3830 
4160 
2760 
2740 
2770 
2100 
21430 
2410 
2470 
4130 
4140 
4150 
2350 

280 
1980 
2090 
2180 
2190 
2060 
2160 
4620 

560 
1630 
1640 
1650 
1660 
16790 
1680 
1690 
4700 
1710 
4720 

600 
2910 

260 
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2270 
2060 


2090 
4590 
4620 
2350 
2150 
2180 


4180 
2660 
6330 
3840 
4470 


2110 
2140 
2420 
2480 
4140 
4450 
4160 
2560 


2100 
21490 
2200 
2070 
2170 
4630 
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3340 


6080 


CROSS REFERENCE TABLE 


PAGE 
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FCBLEN 
FGET 
FRCA 
FRDA 
FRLEN 
FRSTA 
FUDGE 
GREAT 
HORLEN 
IMPLEN 
IMPSTR 
INT 
IO.JN 
1OBLK 
1OR 
19TO 
JMP 
JTLEN 
JTSTRT 
KBLEN 
KBNUM 
LOLOK 
LiBFR 
LABIN 
LIFLG 
LaLOK 


MTEMPS 
MTEMP6 


Q 


01°05i%02 


2740 
3960 
4420 
4410 
4430 
4440 
3200 


3920 
3930 


4580 
4910 
4120 


940 
3630 
3670 


3680 
3700 
3710 


3739 
3750 
3760 


3770 


5610 


4890 
4540 
1830 
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2880 
2860 
2900 
7920 


960 
3640 
3720 


3690 
3720 


3740 
4330 


CROSS RE! EFENCE TABLE 


4010 4040 4130 4240 4330 
44606 

4140 4250 

1000 4400 

3680 3690 3730 3740 

4290 


PAGE 
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Q CROSS REFERENCE TABLE 
2007 MTEMP7 4700 
2030 MTEMP8 1710 
2081 MTEMP9 1720 
422025 MTR 370 
2000 MTRST 5080 
1772 NAME 46709 4680 
549 NEWBR 3930 3940 
1741 NUMBR 4660 4670 6780 
243 NUMG§GN 270 
623 NXPYR 3960 3970 
792 oco 4189 4190 5300 
703) «=o l1 4190 4200 930 
704 0C2 4200 4210 940 
705 0C3 4210 
574646 OFF 2730 
575600 ON 2720 
1773 OVER 4680 4690 
700 OVLEN 940 
1000 OVSTRT 930 920 940 4750 4880 4960 550 9600 
2053 PLOSAV 1990 2000 
2034 PLISAV 2000 2050 
2025 PACSAV 1930 4940 
2032 PACEW 1980 4990 
1622 PARAML 7280 2000 7300 
1627 PARAM2 7360 4590 7370 
2A4 PBFLAG 3810 3820 
2047 PCSAVE 4830 1840 
236 PERIOD 340 350 
227 PFLAG 3770 3780 
47 PHO 4260 4270 
126 8©=6PH4 4300 4310 
195 PH2 4340 4350 
1 PHANTO 2780 
2150  PHFLAG 2280 2330 
1700 PHLEN 2640 
2025 PHSTOR 4920 1930 
av4 PIDN2 3850 3860 
240 PIDON 3840 3850 
1001 PIN? 4899 4900 
393  PIJOUT 3860 3870 
602026 PLDR 400 
2026 PMQSAV 1940 1950 
602025 PMTR 380 
2027 PPCSAV 1950 1960 
606064 PPT 520 
2051 PSCSAV 1970 1980 
2050 PSTSAV 4960 1970 
606460 PTP 510 
606462 PTR 500 
12100 PURLEN 1010 
1775 PURNM 4700 4710 


3790 PURSTR 2560 990 1010 2360 
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Q CROSS RE-ERENCE TABLE 
586 PUTIN 3940 3950 
245 Qa CR 220 
1115 Q DA 7480 2520 2530 2570 4490 4700 4850 4920 
1139 Q DO 8110 2120 2600 4730 3060 6969 7000 8870 9160 9190 9200 9399 9400 
9410 
242 Q LF 210 
1144 Q M1 8330 6340 8630 
4453 Q ,DK 770 
4464 Q ,DdT 750 
6460 Q ,7P 760 
414763 Q aBs 8590 
425156 Q@ BIN 860 
1124 Q CCA 3650 4050 4220 4354 1870 4910 7080 7190 
1125 Q@ ¢cyV 7560 5370 6100 
1120 Q CDA 3630 4480 4530 5050 3550 6630 6740 6970 
435769 Q COR 889 
436454 Q CTL 810 
445300 Q OK, 740 
445320 Q DKO 780 
446400 Q OT, 720 
1155 Q pro 8510 
1164 Q OT, 8580 8670 
1214 Qa O7T2 8940 9930 
1226 Q brT3 9040 9010 
1044 Q &RR 5980 1100 
476257 Q GRO 870 
606064 Q PPT 690 
606460 Q PTP 710 
606462 Q FTR 700 
11214 Q RCA 3649 3870 3990 
1212 Q REV 8920 8650 
1120 Q $08 3620 4390 4470 
1123 Qa Sow 3690 4420 4550 4630 4810 4840 
1323 Q S$pP4 2100 2010 
646000 Q TP 730 
1266 Q Bite 9550 8850 
1265 Q BMSK 9540 2840 6980 8180 
17740 Q@ Boot 520 530 
14 Q CarxX 500 
1122 Q CLEN 3670 4280 4570 4589 4980 6940 7200 
42 Q cCMDX 510 
1263 Q@ CMND 9520 6300 7290 9130 9280 9290 
1267 Q DTST 9569 8970 
1043 Q ERR3 5979 4270 4740 5070 5549 5840 
10%#1 @ ERR6 5950 7930 
1040 Q ERR? 5940 7220 
1067 Q ERRS 5930 6660 
1066 Q ERR? 5920 6830 
1536 Q PAR2 6380 7320 
1547 Q PAR4 6540 7390 
1545 Q PAR5 6920 6679 
1572 Q PAR6 6840 6800 


SPL~-B12 


05/31/72 


PART 
PLUS 
RBLK 
READ 
RLEN 
SEAL 
SPL4 
STAR 
TCAL 
XFER 
QADRSS 
QBKARR 
QCHECK 
QCOLON 
QCOMMA 
QCONTX 
acory2 
QcorY4 
QcoPrys 
QacoPy7 
QCoPRPys 
QcOPyD 
QDKMaAXx 
QDKMIN 
QDODSK 
QDSKCA 
QDSKLN 
QDskwe 
QDTMAX 
QERR14 
QINDEX 
QM {NUS 
QOPEN2 
QOPEN4 
QOPENS 
QPARAM 
QPHCHK 
QPOINT 
QRECOV 
QREVDR 
QSLASH 
QSNSTL 
oS0006 
aSPoo00 
QSPQ01 
asPdo02 
aspoo3 
aSPoo4 
aspo05 
QSP007 
QSPACE 
QSPLST 


Dovoo ooo0oo O 


Q 


01405102 


6580 


8190 
1990 
3900 
8590 


8510 
2140 


610 


4030 
4160 
4650 
4710 
4939 
5000 
6360 
6320 
8450 
8290 
8210 
8370 


2780 


2380 
2770 
2720 
2080 

899 


8920 


8560 
5690 
5630 
5640 
5650 
5660 
5670 
5680 
5700 


570 
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8620 
2040 
4110 


8600 
3710 


6840 
9110 
9090 


7230 
1950 


CROSS REFERENCE TABLE 


9900 


8990 
3790 5220 


6990 8200 


7310 7380 
5830 7100 
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QSpMAX 
QSTOFF 
QSTPTP 
QTAPCA 
QTAPIN 
QTAPOT 
QTAFWC 
QTDMAX 
QaTemMPo 
QTEMPY 
QTEMP2 
QTEMPS 
QTPpMSK 
QVFLAG 
QWRITE 
QWTINT 
RACS 


Q 


5710 
3680 
9499 
8010 

450 

460 
8000 
7580 
7510 
7520 
7530 
7540 
9530 

480 
9460 
87390 
3440 
3390 
3450 
4910 
3429 
3430 

339 
3470 

920 
37990 
3780 
3800 
3820 
4710 


4540 

380 
2670 
1850 
2890 
5410 

430 
6060 
4960 
5390 
5630 
1840 
3880 
3899 
3900 
4750 
4780 
4799 
4820 
4830 
4779 


01405302 


SPECIAL 


4400 


9170 
9120 


9100 
7010 
2510 
2760 
3670 
3690 
6640 


2070 
8420 


5360 


920 
6180 


21350 


5710 


6200 


53990 


1QT 


CROSS REFERENCE TABLE 


2850 
3640 
5570 
3880 
6750 


8530 


6110 


2470 


2180 


5620 
5650 
5580 
41400 
8540 


3580 


2499 


2610 


3630 
5510 
6470 


8760 


2500 


2930 
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5460 53490 6430 
5550 6450 


8780 8790 8800 


2620 3730 3760 


5110 


8940 


3810 


9150 


3820 


5290 
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SWOPR 
SWP 
SWPPR 
SWPS 
SWSPL 
SXSPL 
SYSBaS 
SYSDA 
sSYSDEV 
SYSMAX 
TABLEN 
TEMPO 
TEMP1 
TEMP10 
7EMP14 
TEMPi2 
TEMP2 
TEMPS 
TEMP4 


Q 


4840 

340 
4760 
3460 
4800 
4810 
2800 
2810 

530 
2829 
2630 
1630 
4640 
4730 
1740 
1750 
1650 
1660 
4679 
4680 
4690 
4700 
4710 
1720 

540 
5540 
5530 
1630 
1640 
4650 
1660 
4670 
4680 
4690 
4700 
1710 
4720 
3170 
3140 
3150 
4690 
4630 
4640 
2940 
4250 
4290 
4330 
2790 
2850 

980 
1800 
4280 


01705302 


4770 
3470 
4810 
4820 
2810 


2640 
1640 
1650 
41740 
17590 
1800 
1660 
1670 
1680 
1690 
1700 
4710 
4720 
4730 


3480 


3170 
4700 
4640 
4650 


4260 
4300 
4340 


3200 
2640 
1810 
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6070 


5610 
6340 
4280 


4320 
4360 


CROSS REFERENCE TABLE 
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144 

153 
1/04 
1705 
1706 
1707 
1740 
1741 
1712 
1770 
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Ula 

ut2 

UTEMO 
yTeM4 
UTEM? 
UTEM3 
UTeEmM4 
UTEM5 
UTEM6 
VALID 


Q 


4320 
4360 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4650 


01905102 


4450 
4460 
4470 
4480 
4490 
4500 
4510 
4660 
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5980 


5480 


CROSS REFERENCE TABLE 
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#4 

He 

#3 

#4 

#3 
DEBUG 
DEF INS 
PURCOD 
Q BAD 
Q LINE 
Q MESS 


05/31/72 


Q 


5630 
5640 
5650 
5660 
5680 

100 

100 
5140 

620 
1210 
1190 


01905:02 


100 
100 
5270 


1200 


SPECIAL IOT INSTRUCTION (EXECUTIVE SERVICE CALL) HANDLER 


120 
120 


UNDEFINED SYMBOLS 


120 
120 


580 


580 


2680 


2680 


3210 


3210 


5330 


5330 
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Q MACRO CROSS REFERENCE TABLE 
ENTER 920 8110 8730 
FORMAT 1060 
LOOP 960 
MPOFF 5430 
NEG 1010 
START 1100 


SPL--B12 05/31/72 01905302 SPECIAL IOT INSTRUCTION (EXECUTIVE SERVICE CALL) WANBLER PAGE 40 


Q USE CROSS REFERENCE TABLE 
0 . ope se 
0 REL. 
indo PERM 560 2590 4720 5850 7430 8060 


4300 OVRLAY 589 640 1120 1939 2200 2950 5130 5730 6210 9590 


OPC COP eCeC eC eereseCeCeet Fel 00000.0.000.0.09.0.0009.0000.0.0.5.00.00000000009.0000.5.0.9.0.0.906900000000900090000000000000000 000600000000 60 0.09, 
COC eS SOC COSC SCC COCCeLetLerecerel 000 00.0.00060.0000.00.9.00.900000000000005.006.90.9.0089 000060000900 900000000000000000005 0800000008 258 | 


@ @ eeee eeece e eaaae @ 

e e a e @ 6 e e e 

e e @ e @ @ e Paea @ 
Ceeae a e @ e @ ® peer 
@ e 6 e @ @ @ e ® @ 

@ @ efee e0c0ce e eae eee 


efee eee eeeee 
e e @ e 6 @ 
esee @ e 20@e0 
@ e ® ® e 
@ e @ e 66 e 
ehee e008 eee 


O002.90.9600000000000000690.5200000.9009869000908 009000000006 00 0008 0000000909090 055000000066 0009050 600009 09900800905090 0008 000 008 
COCO Leese eee ee eee Cec eel 1e200.0.0.0.0609.05.00009.0.00090000000000000090000092098099 90 6009090006500 005000909080 0808 00905999 0605000808; 


05/34/72 02504452 


So OaeCetaegeS oh Heassentereegetanotatega 
POUVETESTTICI TIT TTT Titty 


to ae 
#s PDPeg MIN] TIME-SHARING SYSTEM «as 
# MYSS SYSTEM MONITOR oe 
+e MTSS SYSTEM MESSAGES ae 
w+ GROWTH SYSTEM DISK BOATBTRAP oe 
as DTSSIXMTR ee 
bathed MTSS'B05 ae 
en ae 


POTEET TVTTTIS TTT TTT TTT titi tt 
HaFotaetegeOeOeFeeSHeagteeseReteethatena 
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000001 


100 
110 
120 
130 
140 
150 
160 
£70 
18p 
190 
200 
240 
220 
250 
240 
400 


014035323 


PyRTOD 


sex eo ¢ & & & 
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sTITLE PDP9 TIME<SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 
»EQY 1 
wNAME MTR--BO5 


PASSED PARAMETERS! 
SUTEMS3 NAME OF THE CALLING PROGRAM 
SUTEM5! OCTA. VALUE TO PRINT COPTIONAL) 
SUTEM6: MESSAGE NUMBER 


»4EAD M 
2PMC ON 


,INSRT DEFINS 
»IPUND DEFINS 


DEF INS 
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000000 


5720 
5730 
250 
260 
100 
1250 
1260 
270 
100 


04403123 


DEBYG 


PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


ON 


0 
SDLIBRARYIPDPOLIBIGRODEFIN 
Speeueee 

N 


SDLIBRARY:PDPOLIB:LIBMACRO 
DEBUG, 1 


PAGE 
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LIBMACRO 05/31/72 OL;OSI23 PDOPQ TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 3 
TELETYPE [NPUT/OUTRUT MACROS 


1940 sels! ON 
1959 »END 


MTR-~~BO5 
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01503123 


« 
* 
* 
* 
* 
* 
5 
a 


« 
+d 


« 
COMMAND 


DMODE 


PDP YTIME=SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 
MONITOR MACRO DEFINITIONS 


STITL 


MONITOR MACRO pefINITIONS 


MACRO TO SET UP PUREeCADED SUBROUTINE ENTRANCES 


,DEFIN 

,PMC = SAVE, OF F 
»EQU 

USE IMPURE SUBROUTING ENTRANCES CANNOT BE PURE CODE 
»PMC = SAVE, ON 
eee 

.PMC = RESTORE 
HLT 

Jnr 9MAPBYUG 
,U9G =~ PREVIOUS 
»PMG =—s RESTORE 
NOM 


THE FOLLOWING MACROS ARE USED To BYILD THE TABLES WHICH CONTROL THE MoNIToR 


REGISTER PUTS AN ELEMENT IN THE TABLE OF AVAILABLE SOFTHARE REGISTERS 


REGISTER »DGF IN 


sACI6 «= SHAS REGISTER NAME: #4 

JMP R#1 DUMP REGISFER #4 

,CRSM SAVE, OFF 

LINE "AM2',9AT,2 

ACIO «= S#25 ALTERNATE REGISTER NAME! #5 
JMP Rei DUMP REGISTER #4 

CREM RESTORE 

»ENDM 


COMMAND pUTS AN ELEMENT 


IN THE TABLE OF AVAILABLE SOPTWARE REGISTERS 


»DEFIN 

2ACI6 $8415 COMMAND {$ #14 

JMP #4, EXGCUTE FHE COMMAND 
CREM SAVE ,OFF 

, 1 DRP #2 

1 ING *A#29,9A9G2 

eACl6 $#25 ALTERNATE COMMAND &S #2 
JMP #1 EXECUTE THE COMMAND #1 
» 1DRP 

CREM RESTORE 

»&NOM 


DMODE PUTS ELEMENTS IN THE DDT MODE TABLE 


,DBFIN 


ACT6 $#18 


DUMP MODE NAME 


PAGE 
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800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
4020 
1030 
1040 
4050 
1060 
4970 
1080 
1090 
4100 
4110 
4120 
4130 
1140 
1150 
1160 
4170 
1180 
4190 
4200 
1210 
14220 
1230 
1240 
1250 
4260 
1270 
1280 
41290 


014303123 


* 
* 
o 
R 


QRMAT 


® 
CMDERR 


PoP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 


MONJTOR MACRO DEFINITIONS 


JMP Mé1 

,AClS SANLS ADDRESS MODE NAME 

JMP AM#L 

~ACT6 ERLE REGISTER MODE Name 

JMP RM#L 

1oRSM SAVE,QFF 

»IDRP = #Q 

UNE "AW21, 1A! 6 

~ACT6O $#25 ALTERNATE DUMP FORMAT NAME 
JMP Med 

~ACT6 SAK2E ALTERNATE ADDRESS MODE NAME 
JMP AM#L 

,ACT6 SRHQS ALTERNATE REGISTBRS MODE NAME 
JMP RM#4 

» JORP 

»CRSM RESTORE 

»&@NDM 


RESOURCE PUTS AN ZLEMENT IN THE TABLE oF AVAILABLE ALLOCATABLE RESOURCES 


GSOURCE ,D&FIN 


LACIG © S#45 RESOURCE NAME 
Law SRY LOAD A POINTER TQ YHE RECORD OF RESOURCE #4 
jmp #40N TR¥ TO ALLOCATE THE #1 

be #40F F TRY TO DE-ALLOCATE THE #1 

»ENDM 


WHAT JUMPS TO THE ERRQR MESSAGE "WHAT: WORD aN” 


.DAFIN 

.PMC) |= SAVE, OFF 
MP MSG50 
,PMC = RESTORE 
ENDM 


FORMAT JUMPS TO THE ERROR MESSAGE YFORMAT ERROR: WORD #Nn 


,O8FIN 

PMC SAVE, OFF 
Jr M$G56 

2 PMC RESTORE 
»ENQM 

CMDGRR PRINTS THE "WORD wN® IN THE ABOVE MESSAGES 
»DGFIN 

PMC SAVE,QFF 
ume M$G57 

, PMC RESTORE 
»&NDM 


MTR--B0S 
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O01 F035123 


es &®@ &#@ se & & 


PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 
MONITOR CONVENTIONS AND TEMPORARY STORAGE 
-STETL = MONTTOR CONVENFIONS AND TEMPORARY §$TORAGE 


TEMPO -- CALLING PROGRAM'S NAME 

TEMP4 ~-- CALLING PROGRAMtg EXPENDED PROGRAM COUNTER 

TEMP2 =~ CALLING PROGRAMIS INSTRUCTION AT FHAT LOCATION 

TEMPS -- CALLING PROGRAM'S OVERLAY NAME 

TEMP4 ~- UNUSED 

TEMPS -- UNUSED 

TEMP6 -- PASSED PARAMETER #4 (DESIRED MESSAGE NUMBER) 

TEMP7 -- PASSED PARAMETER #2 (PROGRAM COUNTER FOR THE GRROR MBSSAGE) 
TEMPS -~ PASSED PARAMETER #3 (ILLEGAL INSTBUCTION FOR THE ERROR MESSAGE) 


MTR--B05 
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000000 
003170 
003700 


905700 


602025 


003701 
0039701 


905701 
905702 
0035703 
003704 
905705 
903706 
905707 
9035740 
POS744 
905742 
905743 
9057494 
005745 
003746 
905747 
905720 
Po37e1 
905722 
005723 
005724 
003725 
003726 
903727 
903730 


705000 
700002 
200702 
044776 
042011 
202130 
740200 
603734 
202012 
042015 
644002 
0420146 
644001 
042023 
204776 
042037 
204760 
042020 
200040 
042028 
200041 
042024 
4421530 
603747 


003731 


01403 


ee ¢ & 


$23 


PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 
MONITOR INITIALIZATION 

SSTITR MONITOR INITIALIZATION 

,PMC OFF 


ARRANGE THE USE CIUNTERS IN ORDER we [MPURE CANNOT EXCEED SPURSTR 


, VSE IMPURE PHANTOM'S SAVED IMPURE CoDE 
LOC IMPSTR START IMPURE CODE aT TRE END OF COMMON STORAGE 
»WSE PURE ALL CODE ABQVE SPURSTR MUST BE PURE 


CHBCK FOR OVERLENGTH IMPURE CODE 
LIFG CHECK, 360) 
BNTER THE MON] TOR/MESSaAGES/DDT HERE WITH MBMORY PROTA@CTION OFF 


TURN OFF ALL INTERRUPTS; SAVE THE USER OR PHANTOM REGISTERS; 
TURN THE INTERRUPTS BACK ON, 


PMTR NAMe OF PURE CODg PORTION 
aa ALL EXTERNAL ENTRANCES TO THis PROGRAM START HERE 
MROFF 
PMC SAVE,ON . 
BPECIAL+O TURN OFF MBMORY PROTECT 
10or DISABL@ ALL INTERRYPTS UNTIL WE DECIDE WHAT TO DO 
LAG $0CO LQAD THE CALLER'$ fc 
Dac SRSTRT . AND SET IT FOR THE REGISTERS SAVBS TO PICK UP 
Dad TEMPO Save THE aC UNTIL WE DECIDE WHOSE IT [8 
Lac PHFLAG LOaD THE PHANTOM PROGRAM FLAG 
8ZA SKIP IF we ARE COME8NG FROM A USBR PROGRAM 
JMP STRT4 ELSE DON'T DESTROY TWE REAL USER'S REGISTERS 
Lal TEMPO LOaD THE YSER'S ac 
ae ACSAVE SAVE THE YSER'S AC 
LA 
Bac MQSAVE SAVE THE USER'S MQ REGISTER 
Lacs 
Bad SCSAVE Save THE USER'S STEP COUNTER REGISTER 
Lad SRSTRT 
pac PCSAVE SAVE THE USER PROGRAM'S EXTENDED PROGRAM COUNTER 
ag SJORS 
ac St save SAVE THE USER PROGRAM'S PROGRAM INTERRUPT STATUS 
Lae 10 
ot 1OSAVE SAVE THE USER'S AUTOmINDEX REGISTER 10 
LA 14 
Bag LISAVE SAVE THE USER'S AUTO-INDEX REGISTER 11 
{NX PHFLAG RAISE THE PHANTOM FLAG TO PROTECT USER REGISTERS 
ume STRT2 SKIP TO THE COMMON INITIALIZATION 


THE INTERRUPT WAS FRQM A PRANTOM PROGRAM ~* SAVE THE REGISTERS 


MTR~-BOS 


905731 
605752 
005733 
905734 
905735 
905736 
905737 
905740 
003741 
905742 
903743 
005744 
903745 
803746 
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202011 
0420925 
644002 
042026 
644001 
042054 
201776 
042027 
204760 
042030 
200040 
042033 
200041 
042034 


003747 


903747 
903750 
005764 
£05762 
003753 
9035754 
903755 
905756 
903787 
905760 
803761 
903762 


905763 
903764 
903765 
905766 
903767 
905770 
905771 
905772 
003773 
005774 
003775 
905776 


2014704 
042000 
201705 
042001 
204706 
042002 
700042 
704742 
£42156 
703302 
700002 
700446 


202004 
§53273 
740040 
959274 
740040 
$53275 
740040 
202002 
513276 
042002 
353277 
740100 


1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2340 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 


01903823 


ee 8 G& @ 
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MONITOR INITIALIZATION 


LAC TEMPS 

pac PaCsaV SAVE THE RHANTOM aC 

LAGQ 

Dac PMQSAV SAVE YHE RHANTOM MQ 

Lacs 

Dac PSCSAV SAVE THE PHANTOM STEP COUNTER 

Lag SRETRT 

Dat PPCSAV SAVE THE PHANTOM PMOGRAM COUNTER 

Lac STORS 

Dae PSTSAV SAVE THEE PHANTOM PROGRAM INTERRUPT STATUS 
Lac 10 

DAC P1OSay SAVE THE PHANTOM AWTO-INDEX REGISTERS 10 
Ag 14 

Dac PaiSay SAVE THE PHANTOM AWTOeINDEX REGISTER 11 


THE INITIALIZATION JS COMPLETED AS FAR AS SYSTEM pROBLEMS GO, 
8QO RE-ENABLE INTERRUPTS AND START THE PROGRAM INITIALIZATION, 


Lae SUTEMO 

pac TEMPO Save THE ERROR LOCATION 

,ac SUTEML 

Dac TEMPL SAWE THE ERROR OP CODE 

Lac SUTEM2 

pac TEMP2 SANE THE MESSAGE NWMA@ER 

ION RE-ENABLE ALL INTERRUPTS 

MPBU GO INTO USER MODE 

DZM D$BALT FLaG THE BUFFER NOY VET ALTERED 
car CLEAR ALL FLAGS 

{or TURN OFF THE USER @ROGRAM INTERRUPT SYSTEM 
7.9010 INITIALIZG THE TELETYPE 


THERE ARE SEVERAL REASONS TO CALL THIS MODWLE, DETERMING WHICH IT 
1S THIS TIME, THE DISTINCTIONS ARGS 
DDT Q@REAKPOINT -» TWE ILLEGAL INSTRUCTION [8 SPBCIAL+BRK 
MONITOR REQUEST ~- MESSAGE NUMBER 19 ZERO 
GRROR MESSAGE REQUEST ~-- MESSAGE NUMBER IS NON*ZERQ 


Lac TEMPS LOAD THE USER'S LaSY INSTRUCTION 

$aD (SPECIAL#BRK) CHECK FOR A DDT BREAKPOINT 

HLT BREAKPOINTS NOT YE? ENABLED 

$49 (SPECTAL*TRCON) 

WT TRACE ON NOT YET ENABLED 

$ad (SPECT ALeTRCOFF) 

HLT FRACE OFF NOY YET ENABLED 

Lag TEMP2 LOAD THE NUMBER OF THE POTENTIAL MESSAGE 
AND (47777) NO MESSAGE NUMBER EXCEEDS THIS! 

Bat TEMP2 SET YHE MESSAGE NUMBER 

Tad (MSGMAX) SUBTRACT THE LARGEST LEGAL MESSAGE NUMBER 


SMA SKIP YNLESS MESSAGE NUMBER JS TOO LARGE 


MTR-~-BO5 05/31/72 O01703123 PDP9 TIME=SWARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 


MONITOR INITIALIZATION 


003777 6114573 2460 ume MSG53 IN WHICH CASE PRINT A WARNING MESSAGE 
2470 * 
2480 * SYSTEM MESSAGE QUITPUT CONTROL, TRANSFER TO REQUESTED MESSAGE OUTPUT, 
2490 & 

04000 202002 2500 Lac TEMp2 LOAD THE MESSAGE NWMAER 

Bo4001 353300 2510 TaD (MSGPTR) 

904002 042002 2520 Dac TEMP2 SET THE ENTRY TO TAE TRANSFER VECTOR 


904003 622002 2530 JMP TEMP2,X AND MAKE TWE TRANSFER 


MTR--B05 O5/31/72 01F05;423 POPS TIME=SHARING SYSTM@M MONITOR AND MESSAGE ROUTINES PaGE {40 
MAIN MONITOR ROUTINES 


2540 sSTITL MAIN MONITOR ROUTINES 
2550 wHEAD = 
2560 e 
2570 + START oF SYSTEM MONITOR 
2580 * 
004004 2590 MONMSG MESS <TSSMON >+7, 
004042 2600 MONSYM 14; 
004012 142002 2610 QZM TEMP2 KILL ANY RECORD OF THE ERROR MESSAGE JUST PRINTAD 
004043 2620 MESS <#>,4 
004037 2630 LINE BET A LING OF TELETYPE INPUT 
004020 2640 MPQFF 
PMC SAVE,QN 
Oo4020 703000 SPECIAL+0 TURN OFF MEMORY PROTECT 
904021 £40006 2650 DZ SOCNTARL, DE=ALLOCATE CONTROL aT TWE END OF EACH LINE 
po4022 704742 2660 MPay 
004023 105172 2670 MQNXT JMS EOL WAS TwE PREVIOUQ WORD THE LAST ONE ON THIS LINE? RETURN IF NOT, 
004084 2680 WORD GET THE NEXT WORD =- HOPEFULLY A COMMAND 
004025 604023 2699 JMP MONXT IGNORE VACUOUS COMMANDS 
2700 . 
2710 * IDENTIFY THE MONITOR COMMAND 
2720 * 
004026 764752 2730 MgNX2 Law CLIST#4 LoAD A POINTER To THE CoMMAND LIST 
004027 403174 2749 JM SGARCH AND FIND TRE COMMARBD 
004030 2750 WHAT COWLDN¢®T FIND THE COMMAND 


004031 620010 2760 JMR 10x EL@E EXECUTE THE COMMAND 


MTR--g05 
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M 


004032 


004032 
004033 


213304 
741000 


004084 


004036 
004037 


904040 
004041 
004042 
0049043 
004044 
904045 
004046 


765054 
403174 
604047 
420010 
042000 
402001 
620010 


004047 
004047 


004050 
904054 
00%052 
904053 
904084 
904055 
004086 
004087 
904060 


042009 
$13303 
943326 
200020 
403174 
604064 
440010 
402003 
420010 


004061 


004061 
04062 
04063 


202000 
043326 
604026 


004064 


904064 
604065 
004066 
604067 
904070 
904071 


703000 
222000 
8447714 
604074 
740200 
611540 


2770 
2780 
2790 
2600 
2810 
2620 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 


2950 
2960 
2970 
2980 
2990 


3020 
3030 


014038423 


oe ese 


RSRCS 


RERC7 


RQN 


Bef TTME SHAR? ie 
EWec? 
¥QY¥Y TQ p~LLOCATE AN AY 
ee? 
Lac c6OP) 
SKP 
FRY To 
e?¢ 
Lac CINK 10) 
Dac TEMPL 
OMMON 
WaRD 
WHAT 
Law RERC Sef 
JMS SEARCH 
aMP RSRCS 
Xt 10Q>§é 
Bac TEMPO 
xT TEMP Y 
JMP 10.x% 
2°98 
HORDL 
HAC TEMPO 
ND {777700) 
Wag TSNORDB 
AC 40 
ing S2A4RCH 
MP RSRC7 
(WX i$ 
“cr TEMPL 
jMP 10:X 
ae | 
Lae TRMPO 
Dac TSWORDB 
JMe MONX2 
MPORF 
PMC SAVE.ON 
SPACTALSS 
Lac TRMPO,X 
Sad SNUMBR 
JMP RONg 
$ZA 
JMP M$G51i 


Tew MONT TOR AND MESSAGE ROUTINES PAGE 11 


MAIN MONS TOR ROUTINES 


ATLASLE SYSTEM RESQURCE 


YH1i3 PERMITS "ON" AND "OFF" fo USE & GOMMON ROUTINE 


DE=ALLOCATE AN AYATLABLE SYSTEM RESQURCE 


ROUTINE TO ALLOCAY: 


Yi3 PERMITS "ON" aND "OFF" To USE & COMMON ROUTINE 
gE? NHETHER THE COMMAND IS "ON" OR “OFFS 


OR TO pE~ALLOGATE AN AVAILABLE SYSTEM RESOURCE 


Oh? THE RESQURCE NAME 

NO NAME e-- DON'T? BELIEVE IT 

1O30 A POJNTER TQ foHE RESOURGES LIST 

“i340 THE RESOURCE 

ang =~ NOT A STANBARD RESOVURCE --~ IS IT aA NUMBERED ONE? 
LoaB aA POINTER TQ F¥HE RBSOURCE ALLOCATION TABLE 

ane Pass Jf TO THE ALLOCATION/DE=-ALLOCATION ROUTINES 
Mods THE ON/OFF DISTINCTION 

e<SCVVE THE REQUEST 


LOAD THE RESQURCAH NAME 


Bite [T 
SrrtP OFF THE DIGI? 
REPLACE YT 


LOAD a POINTER TO fHE NUMBERED RESOURCES LIST 
LEsATE THE NUMBERED RESQURCE NAME 

BGI =~ NOT A LEGAL RBSOURCE 

3ki2 THH NONSENSE ENTRY 

Bit? THE ON/QFF OISTINCTION 

EM CUTE YWE REQUEST 


peace THE QRIGINAK WORD 
a tT 
v ; eeu RESQURCE -~ WAS {7 A COMMAND? 


Seat an 


RE 
ne 
iW 


YUAN OFF MEMORY PROTECT 
TUN OFF MEMORY PROTECT 
IGNORE THE COMMAND IF fH RESOURCE ALREADY BELONGS 10 THIg USER 


SKIP JF THE RESQURGE JS FREE 
ELSE ERROR MESSAGE 


MTR--BUS 


004072 
904073 
904074 
904075 


05/31/72 
M 


204771 
062000 
704742 
604023 


004076 


004076 
804077 
904100 
904101 
904102 
804103 
004104 
004105 
904106 
904107 
004140 
Oo4iga 
04142 


705000 
200006 
$44774 
604110 
#22000 
744200 
604110 
544771 
744000 
614557 
462000 
704742 
604023 


3270 
3280 
3290 
3500 
3310 
3320 


3330 
3349 
3350 
3360 
3370 
3380 
3399 
3400 
3410 
3420 
3430 
3449 


04403323 


RON 


ROFF 


ROK 


PDP9 TIME=SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


PAGE 


MAIN MONITOR ROUTINES 


Ag SNUMBR 
Bac TEMPO,X 
MPBY 

JMP MONXT 
MPOFF 

2PMC SAVE,ON 
SPECIAL+0 

Lac SCNTRL 
8a0d SNUMBR 
JMP ROK 

LAC TEMPO,X 
SNA 

JMP RQK 

SaD SNUMBR 
SKP 

JMP MSG52 
DZ™ TEMPO, X 
MPEY 

JMP MONXT 


LQAD THE YSER # 
RESERVE THE RESOURCE FOR THIS USER 


GET THE NEXT MONITOR COMMAND 
TURN OFF MEMORY PROTECT 
TURN OFF MEMORY PROTECT 


DOES THIS VSER WAVE THE CONTROL LINE? 
IF SO, ALLOW THE DB~ALLOCATION WITHOUT FURTHER CHECKS 


SKIP IF THE RESOURCE IS ALLOCATED 
ELSE CONSIDER IT SiccESSFULLY DE-ALLOCATED 
SKIP IF ALLOCATED fo ANOTHER USER 


ELS& ERROR MESSAGE 
DE=ALLOCATE THE RESOURCE 


GET THE NEXT MONS TAR COMMAND 
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MTR-~B05 


M 
003170 


000000 
000000 


004143 
904123 §65045 
002170 
002170 
004172 
002173 


004144 
004144 


004144 
004121 105314 
004122 
004122 
004183 
0041287 143170 
904130 £49171 
004191 
004192 
004192 


004133 
0041434 8441435 
9041435 604372 

004136 


004137 764143 
04440 043532 
004141 
004142 614121 
004143 604263 
904144 305540 
004145 
904146 §53304 
004147 741000 
904150 604154 
004181 
004452 740000 
904183 043170 
004164 
004154 
904155 202172 
004186 040041 
004487 762173 
004160 040010 


003170 
003171 


004161 205171 


05/31/72 


3459 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3539 
3549 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
$630 
3649 
3659 
3660 
3670 
3680 
3699 
3700 
3710 
3720 
3730 
3749 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3869 
3870 
3880 
3899 
3900 
39190 
3920 
3930 
3940 
3950 
39690 


OLF0S$23 


Cate 


Cat4 


Cayo 


pDP9 TIME-SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


PAGE 


MTSS CATA_OG MODULE 


MTSS CATALOG MODULE 


IMPURE 


PURE 
*NHEe 
BUFFER 
CATLOG 
CATLOGe2 
CATLOG#S 


PyRE 
KCAT>,3 
FQRCE 


<B> o1 
CNAM 
NHED 


NHE 
NHEAD 


CaT4 
CSDEVCV 


CSDEVCS 
Cats 
CS$RCAT 
(SCOLON) 


CaT6 


CNAM 


PRINT THE HEADER 


LAC 


NHED 


DEVICE ADDRESS OF TWE FIRST PREE BLOCK 
MINUS THE NUMBER OF ENTRIGS IN THIS CATLOG 
MAXIMUM NUMBER OF BLOCKS ON THE DEVICE 


PRINT THE WMEADER MESSAGE 
AND FORCE THE OLD BUFFER BEFORE OVER-WRITING IT 


INITIALIZE THE FILE NAME REQUEST 
GET THE NEXT LINE OF INPUT ~~ PRESUMABLY a CATALOG COMMAND 


GET THE NEXy WORD OF INPUT 


CHECK FOR NO HEADER OPTION 
VES -~ SET THE FLAG 


LOAD THE RETURN ADBRESS 

SET IT IN FHE SUBROUTINE 

RECOVER THE WORD 

MAKE IT INFO A DEVICE ADDRESS 

ELTHER IT WAS A PAPER TAPE REQUEST (ILLEGAL) OR AN EXIT 
GEY THE REQUESTED CATALOG 

GET THE DELIMITER 

CHECK FOR & COLON (INDICATES A FILENAME) 
YES 

NO «~ GARRY ON 

GET THE FILENAME 

DON'T CARE ABOUT A NULL FILENAME 

SET THE FILENAME 


INITIALIZE THE NUMBER OF ENTRIES IN THE CATALOG 
INITIALIZE THE POINTER TO TH@ FILES IN THE CATALOG 


LOAD THE NO=MEADER FLAG 
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9044162 740200 
$04463 604204 
004164 
004202 
004203 


004204 
904204 220010 
004205 741200 
904206 604245 
004207 042001 
Po42a0 205170 
Oo4241 744209 
§04212 604222 
Do4243 $4200 
004294 604223 

004245 
904215 440010 
904216 440010 
004247 440040 
004220 440010 
004281 604263 


004222 
No4222 202001 
004223 
Oo4223 105225 


004224 403316 
904225 4103316 
004226 220040 
§04227 640512 
P04230 641601 
904231 353305 
004232 493503 


004233 641603 
904234 353305 
004235 403503 
004286 6414603 
904237 353305 
004240 403503 
004241 644603 
004242 $53305 
004243 103508 


004244 405316 


4399 
4400 
4410 
4420 


OLFOSI2S 


Cats 


PDPQ TIME=SHARING SySTEM MONITOR AND MESSAGE ROYTINES 


MTSS CATALOG MODULE 


SZA SKIP UNLESS [T 1S SET 

JMP CNEXT 1T 1S SET e- SKIP PRINTING THE WEADER 
MESS <NAME BLOCK ADDRESS LENGTH XFER>, 30. 

CRLF SPACE DOWN FROM THE WEADING ONE LINE 
CRLF 


PRINT THE NEXT NAME 


LAG 10x LOAD THE NAME 
QNA SKIP IF THERE I$ A NAME 
JP CATs ELSE DON'T PRINT TAS ENTRY 
pac TEMPS SaWe YHE FILE NAME 
Lac CNAM LOAD THE NAME TO MATCH (ZERO IF NONE) 
8NA SKIP JF THERE IS QNE 
JMP CatT6s ELSE PRINT ALL ENTRIES 
$A TEMP, CHECK FOR A MATCH 
ume CaT7 MATCH #- PRINT IT 
ie 
NX 10 NO MATCH -# AVOID THE UNWANTED BLOCK NUMBER 
{NX 10 AVOID THE UNWANTED CORE ADDRESS 
NX 10 AVOID THE UNWANTED FILE LENGTH 
1NX 10 AVOID THE UNWANTED TCD 
MP CATs CHECK FOR PQNE 
tat TEMP4 RELOAD THE FILE NAME 
eee 
JM8 DSAMOD PRINT THE SIXBIT NAME 


PRINT THE BLOCK NUMBER 


JMS DSSPACE 

JMS DSSPACE START IN J7S OWN FRELD 
LAG 10X GET THE BLOCK NUMBER 
RS 10. SAWE THE BLOCK NUMBER 
BABCLAILLS 14 

Tad (260) 

JMS TSTTYQT PRINT THE FIRST DIGIT 
DUP 3,3 

EABCLAILLS 3 GET THE NEXT DIGIT 
Tad (260) MAKE IT ASCII 

JMS T$TTYOT PRINT IT 

EABCLAILLS 3 GE? TWE NEXT DIGIT 
TAQ (260) MAKE IT ASCII 

JMS TSTTYOT PRINT 47 

EAGCLAILLS 3 GET THE NEXT DIGIT 
FAD (260) MAKE JY aSCIl 

JMS TSTTYOT PRINT JT 


PRINT THE STARTING ADDRESS 
JMS DS$SPACE 
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004245 105316 
004246 220010 
004247 


904251 105316 

0049252 103316 

004263 220040 
004254 


004256 103316 
904257 220010 
004260 
004262 


004263 440041 
004264 604204 
004265 
004266 203171 
004267 740200 
004270 604122 
004271 
o04e72 204170 
904273 $13306 
004274 
004276 
004340 
004324 202170 
004325 513307 
004326 44200 
904327 604335 
004330 
04384 604342 
004335 
004342 208170 
004343 744000 
004344 640547 
004345 3535305 
004346 403503 
004347 
004350 
004365 604422 


004366 
004366 
004367 553310 
804370 604042 


05/34/72 


01403323 


Pa 


Cats 


CaTs 


PDP9 TIME=SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 


MYTSS CATALOG MODULE 


JMS DESPACE START JT IN ITS OWN FIELD 
LAC 10+X LOAD THE STARTING CORE ADDRESS 
oct AND PRINT IT 


PRINT THE FILE'S LENGTH 


JMS DSSpAce 

ums DSSPACE START JT IN ITS OWN FIELD 
Lac 10.X LOAD THE LENGTH 

ocr AND PRINT IT 


PRINT THE TRANSFER CARD . 
JMS DSSpACeE START IT IN ITS OWN FIELD 


Lac 10>X LOAD THE TRANSFER 
ocr AND PRINT IT 
CRLF 


CHECK FOR DONE ~- IF So, PRINT THE TRAILER 


1$2 14 COUNT THE FILE 

JMP CNEXT NOT YET DONE -~ BDO THE NEXT ENTRY 
CRLF 

Lac NHED LOAD THE NO=HEADER FLAG 

SZA SKIP UNLESS SET 

UMP CNXL IF SETe DON'T PRINY a TRAILER, EITHER 
CRLF ELSE SPACE DOWN 

Lac CFREE LOAD THE FIRST FREE BLOCK POINTER 

AND (037777) 

OctZ 


NM&SS « 18 THE VEXT FREE SLOCK>,23, 
MESS <CATALOG AST MODIFIED ON 9,25. 


Lac CATLOG GET THE DEVICE ADDRESS 
AND (040000) KEEP THE DEVICE BIT 
NA 
JMP C4 
NMESS <DISK »,5 
ume C2 
NMESS  <DECTAPE »,6, 
ac CaTLOG RELOAD THE DEVICE ADDRESS 
ble PROTECT YHE ROTATE 
R38 18.3 
Tad (260) MAKE THE DIGIT INTO ASCII 
JMS TSTTYOT AND PRINT IT 
CRLF 
MESS < **¥END OF CATALOGa#e>, 26, 
JMP CNXL SEG IF THERE JS ANOTHER COMMAND 
i ae 
DELIM TELL BY THE DELIMIFER WHICH IT 33 
Sad (SUPARR) 
MP MONSYM EXIT ON UPPARROW 
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M MYSS CATALOG MODULE 

0049371 604923 4950 JMP MONXT See IF IT 1S A MONETOR COMMAND 
4960 * 
4970 ® 
4980 « CATALOG MODULE OPTIONAL COMMANDS 
4990 # 

004372 5000 NHEAD an 
004372 443171 5010 INX NHED FLAG THE REQUEST 


004373 604132 5020 JMP CaT2 RETURN FOR ANOTHER COMMAND 


MTR--BO05 


05/31/72 
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004374 


004374 


003172 


004 
004375 


004376 
004397 


374 
555341 


694942 
623972 


004400 
003174 


004400 
004401 
904402 
004403 
904404 
604405 
004406 
004407 
004440 


040010 
220010 
545051 
623174 
543326 
744000 
604401 
4431474 
625174 


5030 
5040 
5050 
5060 
6070 
5080 
5090 
5100 
$119 


5120 
5130 
544 

515 

5160 
5170 
5180 
5190 
5200 
5210 
$220 
5230 


5240 
5259 
5260 
5270 
5280 
5290 
53500 
5310 
5320 


01¢034523 


eos 8 & & 


EQL 


ee 88 © 6 8 


SEARCH 
SRCH2 


PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 
MISCELLANEOUS SUBROUTINES AND STORAGE 

»STITL MISCELLANEOUS SUBRAUTINES AND STORAGE 

»USE PURE 


CHECK To SEE WHETHER THE DELIMITER oF THE LAST WORD WAS A 
CARRIAGE RETURN, IF SO, RETURN TO PRINT THE MONITOR SYMBOL 
AND GET THE NEXT LINE OF INPUT$ ELSE RETURN TO TRE CALLER. 


ENTER EQL 

, PMC SAVE,ON 

eee 

DELIM GET TwE DELIMITER OF TWE PREVIOUS WORD 
$aD ($CR) CHECK FOR A CARRIAGE RETURN 

JMP MONS YM YES ~- SO GO GET THE NEXY LINE 

RET EOL» x NO ~~ SO RETURN FO THE CALLER 


SEARCH THE TABLE INDICATED BY THE POINTER paSSED IN THE 
ACCUMULATOR FOR A MATCH TO THE WORD IN TSWORDB, THE END OF THE 
TABLE IS THE FIRST LOCATION CONTAINING MINUS 1, RETURN TO THE 
CALLER +1 IF NO MATCH 1S FOUNDE #2 IF A MATCH IS FOUND. 


ENTER SEARCH 
, PMC SAVE,ON 


eo. 


pac 10 SEf THE PASSED TABLE POINTER 

Lac 10>X LOAD THE NEXT TABLB ENTRY 

SAD M4 CHECK FOR DONE ~ 

RET SEARCH, X VES -» NO MATCH w- RETURN of 

gaD TSWORDB ELgE CHECK FOR A MATCH 

SKP 

uMP SRCH2 NO MATCH FOUND -» TRY THE NEXT ENTRY 
{NX SEARCH MATCH FOUND == BUMB THE RETURN 

Re’ SEARCH, X SUCCESSFUL RETURN e2 
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004411 


4133142 
042000 
604421 


004441 
004442 
004443 


fo4494 
004445 
004416 


215343 
042000 
604425 


213314 
042000 


004447 
904420 


004421 
904421 442150 
0044@2 


004422 705000 

004493 213345 

004424 604427 
004485 
004425 


0044e5 705000 
004426 213316 
004487 
004427 042001 
004430 202000 
004431 042000 
004432 701742 
004433 103314 
004434 


004434 703000 


004435 202001 


5330 
5349 
5350 
5360 
5370 
5380 
5399 
5400 
5410 
5420 
5430 
5440 
5459Q 
5460 
5470 
5480 
5490 
5500 
5510 
§520 
5530 
8540 
5550 
§560 
§570 
§580 
5590 
5600 
§610 
§620 


5630 
5640 
5650 
5660 


5670 
5689 
5690 
5700 
53710 
$720 
5730 
5740 


5750 
5760 
§770 
5780 


01103423 


e#o8 8 


MX5 


PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


REQUESTS FOR OTHER PROGRAMS 


»STITL REQUESTS FOR OTHER PROGRAMS 


»USE PURE 


REQUESTS FOR SYSTEM-SUPPLIED USER PROGRAMS 


LAC (S$DDT) 
Dac TEMPO 
JMP MX4 

LAC (SLDR) 
Dac TEMPO 
JMP MX2 

Lat (SBAS) 
DAC TEMPO 


PASS THE PROGRAM NAME 


THIS 1S THE ONLY NORMAL EXST FROM THE MONI FOR, BEFORE EXIT ALL 
USER REGISTERS MUST BE RESET AND THE SWAPPER PARAMETER WORDS 


MUST BE SET, 


SET THE SWAPPER PARAMETER “ORDS 


06 

62M PHFLAG 
MPOFF 

PMC SAVE,ON 
SPBCIAL+0 
Lac (506000) 
jmp MX3 

ene 
MPOFF 

, PMC SAVE,ON 
SPECIAL+0 
Lac (512000) 
ba TEMP 
Lac TEMPO 
Dac TEMPO 
MPBY 

Jus FORCE 
MPOFF 

PMC SAVE,ON 
SPECIAL+0 


SET TWE NEXT PROGRAM TO BE A USER PROGRAM 


TURN OFF MEMORY PROTECT 
S-WSER SWAP CONTROL WORD 


TURN OFF MEMORY PROTECT 
PHANTOM SWAP CONTROL WORD 


SET THE SWAPPER CONTROL WORD 
SET THE NAME TO Swap 


ENABLE MEMORY PROTECTION FOR TME FORCE ROUTINE 
FLUSH ANY PATCHES BEFORE LEAVING THIS MODULE 


TURN OFF MEMORY PROTECT 


NOW THE SPECIALS ARE DONE WE CAN SET THE CONTROL WORDS SAFELY 


LAC TEMP4 


PAGE 
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004436 
004437 
00%440 
0044414 
004442 
004443 


004444 
004445 
004446 
004447 


004450 


05/31/72 
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040702 
202000 
0407038 
202002 
040704 
700002 


202022 
041756 


bi 780 


202024 
253347 
35332 
51532 
043176 


003176 


005176 


740040 


004455 


004455 


004456 
004457 
004460 
004461 
004462 
904463 
004464 
004465 
004466 
904467 
004470 
9049471 


405176 


202046 
652000 
202045 
040005 
202023 
040026 


02024 
48037 
203771 
040055 


762001 
600335 


5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
597 

598 

5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 


01°03823 


MST2 


PDP9 TIME+SKARING SYSTEM MONITOR AND MESSAGE ROUTINES 


DAC 
LAC 
DAC 
LAC 
DAC 
Lor 
SET THE 
Lac 

Dac 


AC 
AC 


RESTORE 


Lac 
XOR 
Tad 
AND 
Dac 
USE 
XX 


REQUESTS 


$QCO 
TEMPO 
$OCY 
TEMP2 
$0C2 


USER'S REGISTERS 


ACSW 
$aCS 
STSAVE 
STORS 


THE USER'S STEp 


SCSAVE 
(77) 
(649492) 
(649477) 
MST2 
IMPURE 


PURE 
MST2 


MQSAVE 


ACSAVE 
$3AC 
LOSAVE 
$,510 
118AVE 
3,341 
SNUMBR 
SITEMS 
SSWPPR 
SSWAP 


SEY THE 
SET THE 
SET THE 


RESTORE 
RESTORE 


COUNTER 


PAGE 


“OR OTHER PROGRAMS 


SWAPPER COoNTRoL WORD 
FILENAME 
RESTART ADBRESS 


THE SER'S SOFTWARE ac SWITCHES REGISTER 
THE USER'S PROGRAM INTERRUPT STATUS 


RELOAD THE oLD STE COUNT 
COMPLEMENT THE STEP COUNT 


DEVELOP 


A PSEUDDeNORMALIZE INSTRUCTION 


DELETE A POSSIBLE STEP COUNT OVERFLOW 


SET THE 


NORMALIZE INSTRUCTION 


STEP COUNT TO THE SC REGISTER 


RESTORE 
RESTORE 
RESTORE 
RESTORE 
SET THE 
GEY THE 


THE YSER'S ma 

THE USER'S ac 

THE USER'S AUTO+INDEX REGISTER 10 

YHE USER'S AUTO=INDEX REGISTER 11 
CURRENT USER TO aLSO BE THE NEXT USER 
SWAPPER 
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M DECTAPE ALLOCATION/DE=ALLOCATION 
6170 ~STITL DECTAPE ALLOCATION/DB@ALLOCATION 
004472 6180 »USE PURE 
6190 ® 
6200 * 
6210 # 
6220 
004472 6230 DTON ree TRY TO ALLOCATE THE DECTAPE UNIT 
004472 6240 MPOFF 
PMC SAVE,ON 
004472 705000 SPECIAL+0 TURN OFF MEMORY PROTECT 
004473 4103203 6250 ums DTNUM SET UP THE ALLOCATION TAG AND CHECK FOR A FORMAT ERROR 
904474 744000 6260 Chk INITIALIZE FREG HANDLER FLAG 
904475 200032 6270 Lac SRDTO LOAD THE CURRENT STATUS OF ONE HANDLER 
004476 403177 6280 JMS DTON6 CHECK $TS ALLOCATION 
004477 200033 6290 Lac SRDTY LQAD THE CURRENT SATUS OF THE OTHER HANDLER 
904500 408177 6300 JMS DTON6 AND CHECK ITS ALLOCATION 
6310 
6320 a NO ONE HAS ALREADY BEEN ALLOCATED THE DECTAPE TRANSPORT REQUESTED 
6330 
904501 740400 6349 Syl SKIP IF THERE 1S A FREE MANDLER 
904502 611624 6350 JMP M$G54 BOTH HANDLERS HAVE BEEN ALLOCATED 
004503 200032 6360 Lac SRDTO 
004504 740200 6370 SZA SKIP JF THE FIRST AANDLER 1S FREE 
004505 604511 63890 JMe DTON1 ELSE USE THE OTWER 
004506 202000 6390 LAG TEMPO LOAD THE TAG 
004507 040032 6400 DAC $RDTO AND ALLOCATE THE HANDLER 
004540 604543 6410 UMP DTON9 EXIT 
004591 202000 6420 OTONS Lac TEMPO LOAD THE TAG 
004542 040033 6430 Dac SRDT4 ALLOCATE YHE OTHER HANDLER 
004543 704742 6440 DTON9 MPBY 
004544 604023 “7 JMP MONXT 
646 
004535 6470 ENTRR DTON6 ROYTINE TO SEE WHEFHER OR NOT A DECTAPE HANDLER CaN BE ALLOCATED 
sPMC SAVE,ON 
003177 DTON6 —oney 
004545 740200 6480 SZA SKIP IF THE HANDLER IS FREE 
004516 604521 6490 MP DTON7 ELSE CHECK WHO HAS WeAT 
004547 744902 6500 STL. FLAG THERE IS A PREE WANDLER 
0045e@0 623177 6510 RET DTON6,X 
004591 842000 6529 DTON7 $ad TEMPO 
004522 604513 6530 JMP DTONO EXIT ~© JT ALREADY BELONGS TO THIS USER 
004593 518322 6540 AND (770000) 
0045e@4 842001 6550 Sad TEMps 
004525 611540 6560 JMP MSG5q RESOURCE aLREADY ALLOCATED TO ANOTHER USER 
904526 623177 6570 RET DTON6,X 
6580 
004527 6590 DTOPF. ey TRY TO DE-ALLOCATE YHWE DECTAPE UNIT 
004527 6600 MPOFF 
~PMC SAVE,ON 
904527 705000 SPECIAL+0 TURN OFF MEMORY PROTECT 
904530 200006 6610 Lac SCNTRL 


004531 541771 6620 8aD SNUMBR SEG IF THE CVRRENT USER HAS & CONTROL LINE 


MTR~-BOS 


004532 
004533 
¥049534 
004535 
004536 
904537 
904540 
0049541 
004542 
004543 
004544 
004545 
004546 
904547 
004550 
004551 
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744000 
604536 
770000 
741000 
777777 
043326 
403208 
202000 
503326 
042000 
760032 
403204 
760033 
4103201 
704742 
604023 


004552 


0035201 


004552 
904553 
004554 
004555 
004556 


904587 
904560 
004561 
004562 
904563 
004564 


904565 
904566 


043477 
223177 
744200 
623204 
503326 


542000 
604565 
§13322 
542004 
611557 
623201 


463177 
604546 


004567 
005203 


004567 
904570 
004574 
004572 
004573 
004574 
904575 
004576 
0045977 


202000 
650614 
915325 
042004 
344771 
042000 
313324 
744200 
623203 


01505423 


OTOF4 


QTOFS 


DTOFS 


DTOF6 


OTOF7 


ese e888 @ 


QYNUM 
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PTNUM IS 


ROUTINES TO SET UP TWE ALLOCATION TAG AND TO 
OF a NON@OCYAL DyGrT, 


ENTER 
,PMC 


ee 

LA 
CLOsLLS 
AND 

Dac 

Fad 

Dac 

AND 


SNA 
RET 
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DECTAPE ALLOCATFION/DE-ALLOCATION 


DTOF 4 
10000 


-1 
TSWORDB 
DTNUM 
TEMPO 
TSWORDB 
TEMPO 
SRDTO 
DTOF6 
SRDT4 
DTOF6 


MONXT 


DTOF6 
SAVE,ON 


DTON6 
DTONG, X 


DTOF 6,X 
TSWORDB 


TEMPO 
DTOF7 
(770000) 
TEMP, 
MSG52 
DTOF6,xX 


DTON6,X 
DTOFS8 


NQ -~- CONTINUYE NORMALLY 
LOAD WNIT NUMBER MASK 


LOAD WHOLE WORD ALLOCATION MASK 


SET UP THE ALLOCATEON TAG AND CHECK FOR a FORMaT ERROR 
RECOVER THE DEVICE NAME 
MODIFY I? BY THE MASK 


LOAD A POINTER TO ONE OF THE HANDLERS 
AND CHECK ON |T 

LOAD A POINTER TO WHE OTHER WANDLER 
AND CHECK ON IT 


ROYTINE TO SEE WHETHER OR NO? A DECTAPE WANDLER CAN BE DE~ALLOCATED 


SET THE POINTER 

LOAD YHE ALLOCATION 

SKIP IF {7 1S SOMEONE'S RESOURCE 

ELSE EXIT NOW 

RECOVER JUST THAT PaRT OF THE YaG WE gRE INTERESTED IN 


FOUND THIS USER'S ALLOCATION -~ REMOVE IT 
NOT THIS USER'S RESOURCE 


RELEASE THE DECTAPE WANDLER 
AND EXIT 


A SUBROUTINE USED BY THE BECTARE ALLOCATION AND DE- ALLOCATION 


DYTNUM 
SAVE,ON 


TEMPO 
12. 
(570000) 
TEMPY 
SNUMBR 
TEMPO 
(700000) 


DTNUM,X 


HECK FOR JNPUT 


RECOVER THE DEVICE NAME 

RETAIN JUST THE THERD SIXBIT CHARACTER 

RETAIN JUST THE DIGIT ¢PLUS a FLAG FOR NONwOCTAL DIGIT) 
SAVE THE DIGIT 

FORM THE ALLOCATION TAG 

SE” THE ALLOCATION TaG 


GOOD EXIT +> THE DIGIT WAS OCTAL 
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M DECTAPE ALLOCATION/DE~ALLOGATION 


904600 701742 7110 MP EV ELSE RE-ENABLE USER mQDE BEFORE TRYING TO PRINT 
004601 7420 FORMAT ANB GO PRINT AN ERROR MESSAGE 


MTR --BU5 


05/31/72 
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004602 


004602 
004603 
004604 
004605 


705302 
403207 
1032114 
403213 


004606 


004606 
004607 
004610 
004641 
004642 
004643 
904644 
004645 
004646 
004647 
004620 
004621 
004622 
004623 
004624 


705000 
760034 
103205 
760230 
409205 
760235 
403205 
760242 
403205 
760032 
103205 
7600383 
403205 
701742 
604004 


004685 


005205 


004625 
004626 
004627 
004630 
004631 
004632 


004633 
004634 
904635 


004636 


042000 
222000 
515325 
344773 
464000 
623205 


703302 
442020 
604025 


435762 


7130 
7140 
7150 
7160 
7170 
7180 
7199 
7200 
7210 
7220 


7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 


7440 
7450 
7460 
7470 
7480 
7490 
7500 
7310 
7520 
7530 
7540 
75580 
7560 
7570 
7580 
7590 
7600 


01705823 


ry 
BYE 
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JSTITL 


CONSOLE SWITCHES TYPE SERVICES 


CONSOLE SWITCHES TYPE SERVICES 


PURE 


REQUESTS FOR CONSOLE-SWITCH TYPE SERVICES 


CAF 

JMS ZCORE 
JMS ZCOR4 
JMS ZDISK 
MPOFF 

PMC SaVvE,QON 
SPECIAL+0 

Law $RACS 
JMS B5 
LAW SRPTP 
JMS BS 
LAW SRPTR 
JMS BS 
LAW $RSCO 
JMs BS 
LAW SRDTO 
JM8 B5 
AW SRDT4 
JMS B5 
MPBY 

JMP MONMSG 


CLEAR ALL OF TWE USER'S FLAGS 

ZERO abl OF THE USBRIS CORE 

ZERQ THE FIRST 46 LOCATIONS 

ZERO abl OF THE USER'S "PHYSICAL DISK" 
TURN OFF MEMORY PROTECT 

DE“ALLOCATE AC SWIYCHES 

DEW-ALLOCATE PAPER YaPE PUNCH 
DE-ALLOCATE PAPER FaPE READER 
DE-~ALLOCATE THE GRAPHICS II PERIPHERALS 
DE-ALLOCATE THE FIRST DECTARE WANDLER 
DE-~ALLOCATE THE SECOND DECTAPE HANDLER 
ALL DONE -= PRINT g FRESH MONITOR MESSAGE 


ENTER WITH A POINTER To a RESOURCE ALLOCATRON WORD IN THE ac, 
DEwALLOCATE THE RESQURCE IF IT BELONGS TO fHE CURRENT USER. 
OTHERWISE LEAVE IT ALONE, 


ENTER 
, PMC 
#*6 
nag 
Lac 
AND 
Bad 
DZ 
RET 


CaP 
DZ 
JMP 


REQUEST 


AC 16 


B5 
SAVE,QN 


TEMPO 
TEMPO ,X 
(777) 
SNUMBR 
TEMPO,X 
B5.X 


STSAVE 
MONXT 


SAVE THE POINTER YO THE RESOURCE ALLOCATION WORD 
LOAD THE CURRENT AELOCATION @]7S 

KEEP JUST THE USER NUMBER PORTION 

COMPARE TO THIS USER'S ID 

{T'S WIS -= DE-ALLQ@CATE IT 

EXIT 


CLEAR ALL, OF THE USER'S FLAGS 
ALSO CLEAR ALL SOFTWARE FLAGS 
GET THE NEXT COMMAND 


TO ZERO A USER FILE -- DETERMINE WHICH ONE 


*CORe 


23 
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004637 
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445463 


004640 
004640 105314 
004641 
004642 


004643 
004644 
004645 
004646 


344637 
604653 
$44636 
604650 


004647 


904650 
0049651 
904652 


004663 
004654 


4103207 
103241 
604023 


405243 
6040235 


004655 


005207 


004655 
004686 
004657 
004660 
004661 
004662 
004663 


764000 
042013 
762000 
042014 
103324 
£03306 
604705 


004664 


008241 


004664 
904665 
004666 
004667 
904670 
004671 
004672 


203241 
043207 
777740 
042043 
750000 
042014 
604705 


004673 


7610 
7620 
7630 
764Q 
7650 
7660 
7679 
7680 
7690 
7700 
7710 
7720 
7730 
7749 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 


7840 
7850 
7860 
7870 
7889 
7890 
7900 
7910 
7920 
7930 
7940 
7950 


7960 
7970 
7989 
7990 
8000 
6010 
8020 
8030 
8040 
8050 
8060 
8070 


01505423 


DISK 


* 
ZCOR. 


* 
Zp15 


ZCORE 


se & @ 


ZCORG 


sess & 
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PAGE 


CONSOLE SWITCHES TYPE SERVICES 


eDISe 
DSFORCE 
GET THE NAME OF THE FILE To ZERO 
NULL FILE NAME IS ILLEGAL 
DISK 
zpIs VERO YHE YSER DISK 
CORE 
ZCOR ZERO YSER CORE 
NO OTHER LEGaL FILENaMES ExIST 
ZCORE ZERO MOST OF USER CORE 
ZCOR4 YERO LOCATIONS 9837 
MONXT GET THE NEXT COMMAND 
ZDISK ZERO THE ySER "PHYSICAL DISK" 
MONXT GET THE NEXT COMMAND 


ZERO ALL VSER CORE, EXCEpT THE 40 LOCATIONS IN THE USER JOB TABLE 


ENTER 
PMC 
tan 
pac 
LAW 
DaG 
JmMs 
JMS 
JMP 


ZCORE 

SAVE,QN 

BOUNDARY *CORMAX TWO'S COMPLEMENT NUMBER OF LOCATIONS TO ZERO 
TEMP41 

BOUNDARY 

TEMP42 SET THE STARTING LOCATION 70 ZERO 

DSBINIT INITIALIZE THE BUFFER 

DSUCORE OPEN USER CORE 

ZERQ DO THE ZBROING OPERATION 


ZERQ THE FIRBT 40 LOCATIONS 


ZCOR4 

SAVE,ON 

ZCOR4 

ZCORE SAVE THE RETURN ADDRESS 

"40 

TEMP44 SET THE LENGTH TO ERO 

TEMP42 SET THE START ADDRESS TO ZERO 

ZgR2 DO If -- ZERO THE FIRST 40 CORE LOCATIONS CIN THe JOB TABLE) 


ZERg THE USER'S "PHYSICAL DISKS 


ENTER 
»PMC 


ZDISK 


SAVE.ON 


24 


MIR--905 
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003213 


V04673 
904674 
004675 
004676 
0049677 
004700 
U04701 
004702 
04703 
004704 


203215 
045207 
762000 
042013 
442014 
105324 
£05310 
£42151 
750004 
042051 


004705 


004705 


103304 


004706 


004706 
004707 
904740 
904741 
904742 
004743 
904744 
904745 
004746 


009737 
904720 


202044 
403312 
462162 
442156 
442014 
442013 
604706 
403314 
623207 


435755 
624563 


004721 
0047281 


904722 
004723 
004724 
004725 
004726 
004797 


611762 
644747 
6120485 
944720 
612676 
611762 


8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8449 
8450 
8460 
8470 


014703823 


ZO1SK 


ZER2 


ZER4 
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CONSOLE SwITCHES TYPE SERVICES 


Lac ZDISK 
pac ZCORE SAVE THE RETURN ADBRESS 

LAW ~SDKLEN 

pac TEMP14 SET THE DISK LENGTA 

OZ™ TEMP12 SET THE START ADDRESS 

ums D$BINIT INITIALIZE THE BUFFER AREA 

JMS DSUDISK OPEN THE USER DISK FILE 

DZM DSFTYPE SET THE FILE TYPE 

CLO 

pac DSPCMSK SET A FULL WORD MASK FOR THE DISK 
Came | 

ums DSSNCOP FINISH OPENING yHE FILE 

eee 

Lac TEMP412 LOAD THE NEXT LOCAFIGQN TO CLEAR 
ums DSLOCAT LOCATE IT IN THE BWFFER 

DZM DSBPTR,X ZERO JT 

.NX DSBALT SET THE ALTERS FLAG 

INX TEMP12 INCREMENT THE POINTER 

182 TEMPA4 ¥¢3T FOR DONE 

UMP ZER4 NO ~~ |O0OP 

ums DSFORCE YES ~- FORCE THE LAST BUFFER FULL OUT 
RET ZCORE, X EXIT 


EXPLAIN SYSTEM COMMANDS 
LUST oF AVAILABLE EXPLAIN FUNCTIONS 


»ACT6 *Come 
,ACT6 *RESe 


WORD GET THE {TEM TO EXPLAIN 
MP MSGS3 NO NULL COMMAND FOR NOW 
8aD CQMND 

UMP MSG64 COMMAND LIST 

8aD RESRC 

JMP MSG65 RSSOURCE LIST 

JMP MSG63 EL3E GENERAL MESSAGE 
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M MYSS DEBUGGER -- X-RATED COMMANDS 
8480 »STITL MTSS DEBUGGER -- X»RATED COMMANDS 
8490 * 
8500 ® 
6510 * COMMANDS WHICH WORK ON ACTUAL CORE FIRST SEY TWE FILE TYPE 
8520 * FO ACTUAL CORE IF IT Is NOP ALREADY SET, AND SAVE THE OLD FILE TYPE, 
8530 ® 
8549 ry USE EXIT «(EX},X) TO GE? Back TO THE PREVIOWSLY OPEN FILE. 
6559 * 
004730 8560 XDU 28 DUMp ACTUAL CORE 
004730 8579 NUM 
004731 6580 WHAT 
$09782 042001 8599 DAC TEMPL 
004733 8600 CRLF 
004734 B610 MPOFF 
,PMC SAVE,ON 
004734 705000 SPECIAL+0 TURN OFF MEMORY PROTECT 
004735 222001 8620 Lac TEMP1,X 
004736 704742 8630 MPBY 
004737 8649 oct 
004741 604023 8650 JMP MONXT 
8660 
8670 
004742 8680 XPA way PATCH ACTUAL CORE 
004742 8690 NuM 
004743 8700 WHAT 
004744 042001 8719 Dac TEMP 
004745 8720 NUM 
004746 8730 WHAT 
004747 8740 MPOFF 
PMC SAVE,OQN 
904747 705000 SPECIAL+0 TURN OFF MEMORY PROTECT 
004750 062001 8750 Dac TEMP4, X 
004751 703742 8760 MPEY 


004752 604023 8779 Je MONXT 


MTR--805 


M 


004064 
004076 
004064 
004076 
004064 
004076 
004064 
004076 
004064 
004076 
004472 
004587 


000032 
000032 


004753 


004753 
004753 
004795 
004761 
004763 
004765 
004767 
004771 
004773 
005001 
005005 
005007 
009043 
009047 
003083 


003027 
008037 
008041 
005045 


009051 777777 


005082 


05/31/72 


01705823 


* 
RSRCS 
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DEFINITIONS TO ALLOW FOR UN-IMPLIMENTED FEATURES AND OTHER ANOMALTES 


EQ) 


MONITOR 


USE 
sPMC 
ee 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
eHBAD 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
=i 


MONITOR 


TABLE OF 


TABLE oF 


RON 
ROFF 
RON 
ROFF 
RON 
ROFF 
RON 
ROFF 
RON 
ROFF 
DTON 
DTOFF 


SRDTO 
SROTO 
M 


CoMMAND TABLE 


PURE 
SAVE, OFF 


OFF 
BYE,<GO00,HEL> 
EXP,E 

CAF 

ZER,Z 

VAL eV 

XDU,XD 

XPA,XP 


D 
TRA, STs IMP o> 
DOT 

CON,C 

EX1,xX 

M 


RESOURCE TABLE 


RESOURCE PTR 


COMMANDS, RESOURCES, AND REGISTERS 
COMMANDS, RESQURCES, AND REGISTERS 


END OF MONITOR COMMAND TABLE 
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0050 


0051 


05/31/72 


M 


005056 
005062 
005066 
005072 
96 4777777 
005077 
005103 
07 777777 


005140 
005112 
005114 
005146 
005120 
003122 
005124 
005126 
005130 


005182 
009182 
005136 
005140 
005142 
005144 
005154 
005162 
005166 
005172 
003174 
009176 
003200 
005202 
005204 
005206 


005242 
005242 
005220 
005226 
005284 
005242 
005250 
005256 
005264 


9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9410 
9420 
9430 
9440 
9450 
9460 
9470 
9480 
9490 
9500 
9510 
9520 
9530 
9540 
9550 
9560 
9570 
9580 
9590 
9600 
9610 
9620 
9630 
9649 
9650 
9660 
9670 
9680 
9690 
9700 
9710 
9720 
9730 
9740 
9750 
9760 
9770 
9780 
9799 
9800 
9810 


014088235 


* 


REGLIS 


* 
POTCOM 


* 
ODTMOD 
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RESOURCE 
RESOURCE 
RESOURCE 
RESQURCE 
rt 

RESOURCE 
RESOURCE 
oft 


T 


ABLE OF COMMANDS, RESQURCES, AND REGISTERS 


PTP 
Acs 
CNT 
SCO 


DT 
TP 


END OF STANDARD RESOURCE NAMES 


END OF NUMBERED RESOURCES 


MONITOR SOFTWARE REGISTERS TABLE 


»HEAD 

REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 


D 


DDY COMMAND TABLE 


a) 

COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 


PAT,P 


D 
R 


Al, 


T 
N 
E 
C 


Mm 

&G 

T 
RA,€T,JMP>J> 
SU,<¢€N»NOND 
XT +X 

ON,C 


CLO 
PRE 


L 
M 


IM 
as 


SEA 


B 
v 


As 
AL,V 


DD? DATA MODES TABLE 


ee 8 

DMODE 
OMODE 
DMODE 
DMODE 
DMODE 
DMODE 
DMODE 
DMODE 


MOon zr OPO 


PAGE 28 


MTR---BU5 05/31/72 01403123 PDP9 TIME-SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 29 


D TABLE OF SOMMANDS, RESOURCES, AND REGISTERS 
005272 %777777 9820 =i END OF DDT TABLES 
9830 . 
9840 ® FILES THAT CAN BE “OPENED 
9850 * 
005273 9860 FILES €OMMAND COR,C 
005277 9879 COMMAND DJS,D 
005303 9880 COMMAND SYS,S 
005307 9890 COMMAND VSA,V 
005343 9900 COMMAND XCO,X 
005317 9910 COMMAND BL0,8 
902323 777777 +9920 "4 
9930 PMc RESTORE 
9940 wHEAD = OM 


9950 ,INSRT DEeBYG 


DEBUG 


05/31/72 
M 


100 
110 
120 
130 
140 
150 
460 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
820 
530 
540 
550 
560 
570 
580 
590 
600 
610 


01705323 
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MTSS MONITOR DEBUGGING PACKAGE 


sSTITL MTSS MONITOR DEBUGGING PACKAGE 
»HEAD OD 
9120°9130 


THIS PACKAGE SHOULD EVENTUALLY PROBABLY BE EXPANDED ENOUGH TO 
ELIMINATE THE REQUIREMENT FOR A SEPARATE DDT, 


ADVANTAGES OF HaVING THE DEBUGGING DONE FROM TNE MONITOR: 
4) NO USER CORE IS OVERLAID (AS IT MUST BE WITH AN 8-USER DDT) 
2) BECAUSE IY IS a PHANTOM PROGRAM THE DEBUGGER CAN HAVE MORE PRIVILEGES 
3) CERTAIN THINGS, SUCH aS LOW*CORE MAPPING AND SAVING OF REGISTERS 
ARE AUTOMATICALLY DONE FOR THE DEBUGGER BY THE SYSTEM 


DISADVANTAGES OF HAVING A PHANTOM DEBUGGER 
1) SQME REDUCTION IN SPEED ~- NOT VERY NOTICEABLE TO THE USER, HOWEVER 
2) ADDED SYSTEM OVERHEAD IN THE FORM OF MEMORY PROTECTION 
RELEASES AND ALL PATCHES, DUMPS, E¥C REQUIRE DISK OPERATIONS, 


DEFINITIONS: 

3? A LETTER [S ANY UPPER@CASE OR LOWER-CASE LETTER 
) OCTAL DIGITS ARE THE DIGITS 0-7 

ti DECIMAL DIGITS ARE THE DIGITS 0-9 

4) ANY OTWER CHARACTER !S A DELIMITER 

5) a WORD I$ ANY SEQUENCE OF LETTERS AaND/OR DIGITS aND IS 
TERMINATED BY A DELIMITER 

6) AN OCTAL NUMBER IS aNY SEQUENCE OF OCTAL DIGITS an 18 
TERMINATED BY a DELIMITER OTHER THAN A PERIOD (, 

7) a DECTMa~alL NUMBER I8 aNY SEQUENCE OF DIGITS WHICH IS TERMINATED 
BY A PERIOD FOLLOWED BY ANY DELIMIFER 

8) L@GAL PHYSICAL DEVICE NAMES AND THEIg DEVICES: 

PTR ~= PAPER TAPE READER 

PTP -» PAPER TAPE PUNCH 
PPT o» PAPER TaPE (¢E] THER READER OR PUNCH, ACCORDING TO CONTEXT) 
TPN =~ DECTAPE HANDLER #N 
DYN -~ DECTAPE MANBLER #N (IDENTICAL 7O YPN) 
DKN «= PHYSICAL DIBK #N 

9) LEGAL LOGICAL pEvIGE NAMES AND y7HEER MEANINGS: 
COR «= TWE USER'S CORE FILE ON THE DISK 
DJS ~~ TWE USER'S PRPHYSICAL DISK" FILE ON THE DISK 
SYS -> THE SYSTEM LOGICAL BISK 
V5A 0 =- DEC V5A LOGICAL DISK #0 
VS5A 4 ~~ DEC LOGICAL DISK #1 

9) A LEGAL FILENAME I8 OF THE torM CDEVICE NAME: <WORD> 
WHERE <WORD> WILL BE TRUNCATED TO ?HREE CHARACTERS, 
<FILENAME> REFERS TO a SYSTEM FORMAT FIL@ ON EITHER THE SYSTEM 
DISK OR ON DECTAPE, 

40) RANGE IS A SPECIFICATION OF THE ADORESSES TO BE AFFECTED 

BY A COMMAND, RANGE IS OF THE FORM? 
<NUMBER> «- THE SINGLE LOCATION GIVEN BY THE NUMBER 
<NUML>+<NUM2> -- THE LOCATIONS FROM NUM4 TO NUM2, INCLUSIVE 
<NUML> CNUM2> -- STARTING FROM NUMZ FOR NUM2 LOCATIONS 


30 
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620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
650 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 


01503323 
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MTSS MONITOR DEBUGGING PACKAGE 


41) FIELD IS <RANGED OR <FIELD>S RANGED 


DEBUGGER COMMANDS ARE OF THE FORMAT 
<COMMAND>CARG1><ARG2>,, .<ARGNOCFIEL D> 
WHERE EACH J TEM 1S SEPARATED FROM THE NEXT BY ANY DELIMITER 


IN THE FOLLOWING COMMAND DBSCRIPTIONS, FIRST THE COMMAND 

1S NAMED, THEN ANY L&GalL ABBREVIATIONS aRE GIVEN, THEN A DESCRIPTION 
OF THE COMMAND IS GIVEN, L&GAL DEBUGGER COMMANDS AS OF THIS 

ASSEMBLY ARE! 


VALIDATE (VAuw»V) PROVIDES aN UNDERPRIWTED aREA ON WHICH THE 
USER CAN TYPE HIS PASSWORD, IF THE PASSWORD IS CORRECT, THE NEXT 
COMMAND IS REQUESTED, OTHERWISE A "VALIDATION ERROR” MESSAGE 18 
PRINTED AND THEN THE NEXT COMMAND IS REQUESTED, 


OPEN (OPE,Q) <DEVICE NAME> OR OPEN <FELENAME> OPENS hE 
REQUESTED DEVICE OR FILE, ALL SUBSEQUENT S#NSE AND ALTER MEMORY 
COMMANDS REFER TO THIS FILE, AN ATTEMPT YO REFERENCE BELOW THE 
MINIMUM ADDRESS IN TWE FILE OR TO REFERENCE aBOVE THE MAXIMUM 
ADDRESS IN THE FILE GENERATES AN wOUT OF BOUNDS" ERROR MESSAGE, 

OPEN DOES CLOSE WHATEVER FILE WAS OPEN BEFORE IT OPENS THE REQUESTED 
FILE, OTHERWISE THE USER HAS NO WAY OF KNOWING WHAT CHANGES 
WAVE BEEN SAVED AND WHICH BNES HAVE NOT BEEN, 


CLOSE (CLO,C) CLOSES WHICHEVER FILE I8 CYRRENTLY OPEN, 
WRITING OUT THE LATEST CHANGES IN IT, THEN AN "OPEN COREW IS DONE, 


READ (REA,R) <NUMBER> CLOSES THE CURRENT FILE AND OPENS 
ON THE CURRENT DEVICE A FILE WHICK IS THE BLOCK WHOSE ¢€NUMBERD 
WaS GIVEN, 
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D MTSS DEBUGGER -~- NEXT SYNTACTIC UNIT 
970 /STITL MTSS DEBUGGER -- NEXT SYNTACTIC UNIT 
005324 980 ,USE PURE 
990 r 
4000 * 
1010 et ENTER THE DEBUGGER HERE, ABANDONING ANY UNPROCESSED MONITOR INPUT 
1020 & 
003324 4030 DOQT ies 
005324 4040 MESS <XDDT HERE>,9, 
4050 * 
1060 * INITIALIZE THE FILE TO BE USER CORE 
1070 
005333 403324 1080 Jms BINIT 
005334 403306 41090 JMs UCORE SET MFDA,FDA,FMIN, MFMIN,FMAX,FTYPE,PCMSK FOR THE USER CORE FILE 
005335 405304 1100 ums SNCOP SET BMAX,BMIN,MBMIN, BDA FOR FHE USER CORE FILE 
4110 * 
net & INITIALIZE MQDE SWITCHES 
4 t 
005336 763221 41140 Law OMOD INITIALIZE TO OCTAL MODE 
005337 042036 4150 Dac ADRSW SEY THE ADDRESS MODE 
005340 042035 1160 pac REGSW SET THE REGISTERS MODE 
005341 763241 1170 aw SMOD INITIALIZ& DUMP 70 BE SYMBOLIC 
905342 042037 1180 BAC DUMBW SEF THE DUMP MODE 
905343 213326 1190 Lac (20,) 
905344 042041 ae Bac LIMIT INITIALIZE THE LIMITS FOR SYMBOLIC DUMP 
121 * 
4220 * 
4230 - INITIALIZATION NoW CoMpLETE -- GET THE CaMMAND 
4240 
4250 »HEAD D,M 
002345 1260 NEXTL aie 
4270 ABAD D 
003345 1280 NxXLIN ee 
005345 1290 MESS CPt 
005384 1300 NXUNY = LINE GEY THE NEXT LINE OF INPUT 
005352 605357 41310 JMP NSU2 WE ARE GUARANTEED TO BE STARTING A SyNTACTIC UNIT 
4320 * 
4330 * START TO PARSE y;HE NEXy SYNTACTIC UNI 7, AFTER GErrING A NEW LINE $F NECESSARY 
1340 * 
005353 1350 NSU bee PARSE THE NEXT SYNTACTIC UNIT 
003383 4360 DEL IM FUBGE FOR THE ASSEMBLER ~~ GAT THE DELIMITER WHICH SENT US HERE 
005354 §50324 1370 $a0 ENDSN CHECK FOR A LEGAL ARRIVAL 
005355 741000 1380 SKP 0K 
005386 605671 13590 JMP DONE DIDN'T BELONG HERE IN THE FIRST PLACE 
003397 4400 NSU2 ae 
005357 £42053 1410 fZM COMFLG SEY NO COMMAND YET COMPLETED 
005360 215327 1420 Lae ($KP) 
90536, 042052 4430 Dac REGBR SET UP THE REGISTENS/ALTERS BRANCH 
905362 442007 41440 DZ™ TEMP? SET THAT OP CODES KRE NOTF aLLOWED 
§$05363 4103251 1450 JMS INVAL GET THE FIRST WORD 
905364 741000 1469 SkP NULL WORD IS AMBIGyOUS -- DO FURTHER CHECKS 
005365 605506 1470 JMP FLDO8 NON*NULL WORD MAS FO BE A FIELD SPECIFIER 


005366 1489 DELIM GET THE NURL WORD DELIMITER 


DEBUG 


005367 
005370 
005371 
005372 
005373 
005374 
005375 


05/31/72 
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553311 
606227 
950324 
604227 
§503147 
744000 
605537 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
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SaD 
JMP 
$aD 
JMP 
$aD 
SKP 
JMP 


MTSS DEBUSGER -- NEXT SYNTACTIC UNIT 


(SCR) 
DNXT 
ENDSN 
DNXT 
FDEL, 


FLDO5 


CARRIAGE RETURN w- DUMP THE NEXT LOCATION 


END SIGN -» DUMP THE NEXT LOCATION 
CHECK [T FOR A FILE NAME DELIMITER 
VES 

ELSE JT MIGHT BE a FIELD AFTER ALL 
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DEBUG 


05/31/72 
D 


003376 


905376 


005376 


4103314 


003377 


905400 
905401 
905402 
805403 
905404 


613063 
769272 
103174 
745000 
620040 


005405 


005406 
005407 
005440 


905441 
005442 
005443 
005444 
popds5 

05446 


005447 
905420 
005421 
005422 
005423 
005424 
005425 
905426 
005427 
005430 
005431 
005432 
005433 
005434 
909435 
905436 
905437 
905440 


553304 
744000 
605454 


765414 
043527 
611061 
613063 
4035145 
613077 


220041 
£03322 
042163 
$13307 
740200 

13330 

42168 
042163 
7400021 
042164 
442364 
2200%1 
042165 
740001 
042166 
4423466 
777797 
342165 


019035123 


PEN 


eeee 


PDPO TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


eSTUTL 
USE 


OPEN SETS Up THE FILE aND 


PAGE 34 


MTSS DEBUGGER -~ OPEN A FILE/DEVICE 


MTSS DEBUGGER -~ OPEN A FILE/DEVICE 


PURE 


FJ.& SPECIFIED, 


JMS 
WORD 
JMP 

LAW 

JMS 
SKPECLL 
JMP 


THE REQUEST WAS NoT For 


FORCE 
M3G61 


DSF ILg8-4 


SEARCH 
10,>X 


BUFFER PARAMETERS FOR THE DEVICE OR 


FORCE OUT ANY CHANGES THAT ARE IN THE BUFFER CURRENTLY 
GEY THE NAME OF THB FILE TO OPEN 

NO NAME ~~ DON'T BELIEVE IT 

LOAD A POINTER TO Foe DSFILES LIST 

LOCATE THE CURRENT REQUEST 

NO? FQUND 

FQUND =~ GO OPEN IF 


A LOGICAL DEVICE -~ pERHApS IT WAG FoR A SYSTEM FILES 


GE? THE DELIMITER 

1T MUST BE A COLON (1) TO BE A SYSTEM FILE 
YEB -~ TRY TO OPEN A SYSTEM FILE 

NOT A SYSTEM FILE ~~ MAYBE A PHYSICAL DEVICE 


THE CATALOG OF TWE REQUESTED DEyIC# AND FIND THE FILENAME 


DELIM 

8aD ($COLON) 
SKP 
JMP OPE2 
NOw Get 

IN IT, 

Lal OPEL 
pac CSGNAME 
uMP CSGNAM2 
JMP M$Ga4 
ums CSCATL 
uMP MSG82 
THE 

Lae SCATN,X 
JMS ToVAL 
Dac FDA 

AND (040000) 
gZzAa 

ac ($SYSBAS) 
AD FDA 
pac FDA 
CMA 

pac MFDA 
1NX MFDA 
Lac SCATX,X 
pac FMIN 
CMA 
pac MFMIN 
{NX MF MIN 
AW -4 

AD FMIN 


SET Tw& RESTART ADDRESS 
READ TN TwE CaTaLOG IF NOT aLREaDY IN CORE AND RETURN FILENAME IN THE AC 
ATTEMPT TO OPEN & PAPER TAPE 
NOW LOOK UP THE FILENAME IN THE CATALOG 
PILE NOT FOUND 


FILE HAS BEEN LOCATED w= NOW SBT JTS PARAMETERS 


CHECK ON TNE VSER'§ VALIDATION IF APPROPREATE 

SAVE THE DEVICE aDBRESS 

SAVE THE DISK/DEGTAPE BIT 

SKIP FOR DECTAPE, WHIGH BEGINS AT BLOCK ZERO 

SLS8E LOAD THE SYSTEM DISK BASE ADDRESS 

ADB THE DEVICE aDDRESS YIELDS THE CORRECT DEVICE ADDRESS OF THE FILE 
SE? ITS DEVICE ADDRESS 


SEf MINUS THE FILE pEVICE ADDRESS 
SEF THE FILES MINIMUM CORE ABDAESS 


SEY MINUM THE FILE MINIMUM CORE ADDRESS 
RELOAD THE MINIMUM CORE ADDRESS 
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D MTSS DEBUGGER -- OPEN A FILE/DEVIC# 
005441 360011 2080 rad SCATX,X ADD THE FILE LENGTA 
005442 740001 2090 CMA 
905443 042167 2100 bac FMAX SEY MINUS THE FILE*S MAXIMUM CORE ADDRESS 
905444 210334 2110 Lac LOGF LOAD THE LOGICAL FELE FLAG 
905445 0421514 2120 Bac FYYPE AND SET IT 
005446 213276 2130 Lac (47777) LOAD THE COREMAX MASK 
905447 042054 2140 DAC PCMSK AND SET IT 
005450 605475 2150 JMP NCOP SET UP THE CORE QUFFER PaRgMETERS 
2160 * 
2170 * THE REQUEST I$ FOR NO SORT OF FILE ~- COULB IT BE FOR A PHYSICAL 
2180 ry DISK QR DECTAPE? IF NOT, PRINT A FORMAT GRAOR MESSAGE, 
2490 * 
005451 2200 ORPE2 ian 
005451 765456 2210 Aw OPE4 
005452 043532 2220 pac CSDEVCV BEY THE RETURN ADDRESS 
005483 2230 WORDS RELOAD THE DEVICE MNEMONIC 
005454 611121 2240 JMP CS$DEVCS EITWER SET UP THE DEVICE ADDRESS OR PRINT A "FORMAT ERROR" MESSAGE 
005455 613063 2250 JMP MSG61 tT 18 A PAPER TAPE 
005456 2260 ORES ae 
005456 £03322 2270 JMS TOVAL CHECK ON THE USER'§ VALIDATION IF APPROPRIATE 
005457 042163 2280 pac FDA SET THE FILE DEVICE ADDRESS 
005460 740001 2290 CMA 
005461 042164 2300 pac MFDA 
005462 442164 2310 1NX MPDA SE’ MINUS THE FILE DEVICE aDORESS 
905463 142165 2320 DZM FMIN ALL PMYSICAL DEVICES BEGIN WEYTW WORD 0 
005464 1£428166 2530 0ZM MFMIN 
905465 202163 2340 Lac FDA RELOAD THE FILE DEVICE ADDRESS 
005466 640703 2350 ALS 3 MOVE THE DEVICE TYPE BIT To acto) 
005467 750400 2360 QMASCLA sk3P FOR THE DISK 
005470 310331 2370 Lac DICT BLSE LOaD FHE DEGCTAPE Max 
005471 042167 2380 Dac FMAX SET MINUS THE MAXIMUM ADDRESS ON THE DEVICE 
2390 . 
2400 * 
2410 * 
004472 2420 BOPEN 10% 
005472 4421514 2430 DZM FTYPE CLEAR THE SPECIAL FILE TYPE FLAG 
005473 750001 2440 CL¢ SET THE FULL-WORD MaSK FOR ALL PHYSICAL DEVICES 
905474 042084 2450 DAC PCMSK 
005475 2460 NCOP ane ENTER HERE TO LEAVE THE FLAG ALONE 
905475 103304 ye JMS SNCOP SET UP BMAX, BMIN, MBMEN, BDA FOR THE USEM CORE FILE 
248 * 
2490 * OPEN FILE FIELD MUST END IN THE DELIMITER FDEL 
2500 ® 
005476 2510 QRDON % 
003476 2520 DELIM GEY THE LAST DELIMETER 
905477 350347 2530 $aD FDEL CHECK FOR FHE CORRMECT END-DELIMITER 
005500 605504 2540 JMP FIELD {F $0, EXIT -- NOW SET UP THE FIELD 
005501 2550 WORD ELSE SEE IF THERE 2S ANOTHER DELIMITER NEXT 
905502 605476 2560 JMP OPDON YES ~~ SEE IF IT IS THE CORRCY BND OF TWE OPEN 


005503 6135111 2570 JMP M$G83 ELSE 13 AN ERROR 


DEBUG 


D 


005504 


003504 
905504 103251 
905505 605537 

005506 
005506 202000 
005507 042044 

005540 
905541 850322 
005542 605520 
005543 5850324 
005544 6055314 


005545 
905546 
905547 


202044 
042045 
605560 


005580 
005520 403254 
905591 609545 
0055p0 042045 

005523 
005525 342044 
605526 741300 
005527 605560 
905530 605515 


005531 
005531 103251 
905532 605515 
905533 513276 
905534 342044 
005535 353332 
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2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2699 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2680 
2690 
2900 
2910 
2920 
2930 
2949 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3059 
3060 
3070 
3080 
3090 


01F03823 


Ve @©@seseeseeeeet & 


JELD 


FLD06 
F.D08 


& 
FiL03Q 


PDP9 TIME=SHARING SYSTEM MOGNITOR AND MESSAGE ROUTINES PAGE 
MTSS DEBUGGER -- FIELD SPECIFICATION SETUP 


sSTITL 
USE 


MTSS DEBUGGER -- FIELD SPECIFICATION g&TUP 
PURE 


FIELD PICKS Up THE NEXT FIELD To BE OPERATED ON, STORES THE LQWER BOUNDARY 
IN LOCOR AND STORES THE UPPER BOUNDARY IN MICOR, 

1) IF THE FIELD CONTAINS A SINGLE VALWE, WICOR 3 LOCOR y= <VALUE> 

2) IF VAL’ ¢€ VAL2 HEN LOQCOR ft VAL¢ AND WICOR t2 VAL2 

3) IF VAL’ >» VAL2 THEN WICOR ta LOCOR :8 VALI 


FIND OUT WHETHER WE REALLY HaVE A FIELD 


ums INVAL GET THE FIRST VALUs 

JMP FLDOS EVALUATE A NULL IN@UT 

ees 

Lad TEMPO LOAD PHE VALUE FOUND 

Dac LOCOR SET 17 AS THE LOW END OF THE FIELD 

DELIM GE? TWE DELIMITER 

$ad BYSGN 

JM? FLLD20 COMMA DENOTES SETTING THE FIGLD BY BOUNDARIES 
$a0 LNSGN 

UMP FLD3O SPACE DENQTES TO SET THE FIELD BY LENGTH 

SEY THE FIELD TQ JUST ONE WORD 

Lac LOCOR LOAD HE LOW END 

Dac HICOR SE7 IT IN THE HIGH END 

JMe MODE FIELD SPECIFICATION !8 DONE 

SET THE FIELD BY BOUNDARIES 

eee 

JMS INVAL GET THE END VALUG 

JUMP FLD1O WASN'T ONE =~ SEF WP JUST ONG LOCATION AND EXIT 
Dac HICOR SET THE HIGH END @GUNDARY 

NEG NEGATE IT 

rad LOCOR ADB JN THE LOW END 

SPASSNA SKIP IF THE LOW ENB IS THE GREATER 

JMP MODE FIELD SPECIFICATION 18 DONE 

JMP FLDLO THE LOW END IS GREATER, 80 SET UP JUST ONB LOCATION 
SET THE FIELD BY LENGTH 

oe8 

JMS INVAL GET THE LENGTH 

JMP FLD10 NO LENGTH SPECIFIED ~+ SET UP JUST ONE LOCATION 
AND (47777) CAN'T BE LONGER FHAN 8K 

Tad LOCOR ADD THE START ADDRESS 

TaD (+1) 
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D MTSS DEBUGGER -- FIELD SPEGIFICATION SETUP 
005536 605516 3100 JMP FLDA1 SET THE END ADDRESS AND EXIT 
3110 # 
3120 * EVALUATE AN ORIGINAL NULL INPUT -- [NDIRECTION, CURRENT pC, OR NO FIELD 
3130 * 
0059537 3140 Fi.Do5 ree 
005537 3150 BELIM GEY THE NULL FIELD DELIMITER 
905540 550346 3160 SaD INDSN CHECK FOR FHE INDIRECT ADDRESSING SIGN 
005541 605547 3170 JMP FIND SET THE INBIRECT WORD ON 
905542 550325 3180 SAD PCSGN CHECK FOR THE CURRENT PROGRAM COUNTER VALUE 
005543 605551 ee JMP FPC YES -~ INSERT THE CURRENT VALUE 
3 * 
3210 * NO NEw FIELD SPECIFICATION, SQ LOCOR 38 WICOR ts PC, wHERE PC 
seer * 1S THe ADDRESS OF THE LAST CONTENTS TYPED §N OR OUT, 
323 * 
005544 3240 F\i,007 4 
905544 202043 3250 Lac PC LOAD THE PC 
905545 042044 3260 Dac LOCOR RESET LOCOR 
205546 605545 27 UMP FLDLO GO DO THe REST 
328 * 
3290 . ALREADY HAVE THE FIRST WORB, SO JNETIALIZE INVAL AND TRANSFER INTO JIT 
3300 * 
3310 * 
3320 * AN INDIRECT ADDRESS WAS BEBN REQUESTED, SEY TWE pROPBR FLAG FOR IT, 
3339 * 
005547 3340 FIND son 
905547 442039 3350 NX INDIR SEY THE FLAG 
805550 605504 yack JMP FIELD GO GET THE NEXT VAKUE 
* 
3380 * 
$390 * USE OF THE CURRENT PROGRAM COUNTGR VALVE WAS BEEN REQUESTED 
3400 * 
003551 3410 Fac ie 
005551 765505 3420 LAW Fi.D06 LOAD THE DESIRED RESTART ADDRESS 
005552 0432314 3430 DAG INVAL SET IT FOR THE SUBROUTING 
905553 P 000 3440 DZM TEMPO INITIALIZ@ THE SUBROUTINE'S ACCUMULATED VALUE 
909554 767456 3459 aw INPLU . 
005555 042002 3460 AG TEMP? INSTIALIZE THE DEFAULT OPERATOR TO BE PLUS 
905556 442006 3470 DZM TEMPS INITIALIZ— THe VaALWe-RECalVveD FLAG 


005557 607443 3480 JMP INPC ACCUMULATE A VALUE. STARTING WITH THE CURRENT PROGRAM COUNTER 


DEBUG 05/31/72 
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005560 
005560 
905561 550323 
005562 605575 


0115314 
905563 450326 
005564 606174 
gree: §50327 

05566 611531 
905567 §50330 
005570 606577 
005571 §50324 
Q05572 606234 
905573 553311 
009374 696234 


005575 
005575 
905876 605560 
005577 765107 
905600 109174 
905601 613122 


905602 620010 


005603 
005641 
005647 
005625 
005633 
yu aer: 

647 
$05655 


014054523 
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~STITL 


een 


DELIM 
SAD 
JMP 


CERTAIN 


MTSS DEBUGGER -~ MODE SETTING COMMANDS 
MTSS DEBUGGER -~ MODE SETTING COMMANDS 


FIND g¥T WHETHER oR NOT WE REALLY HAVE A MODE 
GET THE DELIMITER WHICH BROUGHT US HERE 


MCSGN 

MOD10 MOBE/COMMAND SIGN *- HANDLE [Tf 

DELIMITERS ARE ALS@ DOT COMMANDS -* CHECK THEM NOW 

MSG50 

PATSN 

Pat PATCH COMMAND 

BKSN 

BRE BREAKPOINT 

JSGN 

TRA JUMP/ TRANSFER 

ENDSN 

Pena . ENB OF SYNFACTIC UNIT -- DUMP IS DEFAULT 

( ) 

DUM END OF SYNTACTIC UNIT -- DUMP IS DEFAULT 
GET THE MODE/COMMAND 

MODE IGNORE VACUOUS WORDS HERE 

REGLIS#1 LOAD a POINTER TO THE DD? TABLE 

SEARCH AND TRY FOR A MATCH 

MSG84 FORMAT ERROR -- GOWLDN'T FIND IT 

105X ELSE GO DQ THE COMMAND 


ACTUAL MODE-SETTING COMMANDS 


,DBFIN 
AW 
ume 
Law 
MP 
Law 
AT 
,ENDM 


MoDSET 
MODSET 
MODSET 
MODSET 
MODSET 
MODSET 
MODSET 
MODSET 


#1M0D LOAD A POINTER TO MODE #1 
$9 

es LOAD A POINTER TO MODE #1 
AS9 

#1M0D LOAD A POINTER TO MODE #1 
RS9 

0 ocTaL 

A ACI6 SIXBIT 

6 TRIMMED SIXBIT 

H BITS 0-8, 947 

7 STEXT: BITS 4-40, 11°17 

8 SINGLE ASCI] CHARACTER IN aCt10-47) 
D DEEIMAL 

$ SYMBOLIC 
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D MTSS DEBUGGER -- MODE SETTING COMMANDS 
4010 
; 4020 ; 
005663 042037 4030 s9 Dac DUMSW SET THE DUMP FORMAT 
005664 605560 4040 JMP MODE 
4050 
005665 042036 4060 AS9 Dac ADRSw SET THE ADDRESS FORMAT 
005666 605560 4070 JMP MODE 
4080 
905667 042935 40990 RS9 Dac REGSW SET THE REGISTER FORMAT 
005670 605560 4100 uMP MODE 
4110 * 
4120 * DONE »- NOW WAIT FOR END OF THE SYNTACTIC WNIT, AND THEN pROCESS NEXT ONE 
4130 * 
005671 4140 DONE bere 
005671 4150 CRLF 
005672 4160 DONY DELIM GET THE LAST DELIMSTER 
905673 $533114 4170 SAD ($CR) CHECK FOR END OF LINE 
905674 605345 4480 UMP NXLIN 1F $0, GET NEXT LIME 
905675 $50324 4190 $40 ENDSN cHBcK FOR END OF SYNT,cTIC UNIT 
905676 605353 4200 JMP NSU 1F SO, GET THE NEXT ONE 
005677 4210 WORD ELSE THROW AWAY ANOTWER WORD 
905700 740000 4220 NOP NULL INPUT J8 JGNOMED 


005701 605672 4230 JMe DON AND LQOP 


DEBUG 05/31/72 
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005702 
905702 103306 
005703 605475 


005704 
005704 103245 
905705 202151 
005706 850333 
005707 605504 
005710 042152 
005741 210333 
805742 042154 
005743 213276 
905794 042054 
805745 605476 


005746 
905746 403340 
005747 605472 
805720 762000 


005721 
005721 1032145 
005722 215333 
005793 0427463 
905724 740001 
005725 042164 
905726 442464 
005727 442165 
005730 142166 
005731 2035734 
005732 042167 
905733 605472 
905734 900401 


4240 
4250 
4260 
4270 
A280 
4290 
4300 
4310 
43290 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4419 
44290 
4430 
4440 
4450 
4460 
4479 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4559 
4560 
4570 
4580 
4590 
4600 
4640 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4699 
4700 
4710 
4720 
4730 
4740 
4750 


04503423 


Mees es & 


PDP9 TIME-SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 
OPEN FILE/DEVICE ROUTINES 
sSTUTL OPEN FILE/DEVICE ROUTINES 


THE USER WANTS TO OPEN HIS USER CORE FILE QN THE DISK 
FILL IN THE FILE PARAMETERS FOR HIM 


see 
JMS UGORE SET UP THE FILE PaRamMTERS FOR THE USER CORE FILE 
JMP NCOP SET UP THE CORE BUFFER PARRAMETERS AND EXIT 


OPEN ACTUAL CORE, BUT DO NOT LOSE THE ORIGINAL 
FILE PARAMETERS -~ THUS aFFER THE COMMAND, THE PARAMETERS CAN 
BE SET BACK TO THE FILE WHICH WAS PREVIOUSLY OPEN, 


ums VALCHK MUSY BE VALIDATED FOR THIS ACTIVITY 

Lac FTYPE LOAD THE TYPE OF FILE CURRENTLY OPEN 

SAD AGF SKIP IF NOT ACTUAL CORE 

JMP FIELD JOB DONE -» NOW SEF UP THE FIELD SPECIFICATIONS 

pac OF TYP SAVE THE OLD FILE VYPE SO WE DON'T WAVE TO FORCE THE BUFFER 
Lac ACF LOAD THE ACTUAL CORE FLAG 

Dac FYYPE AND USE 17 TO RESEY THE TYPE OF FILE 

Lac (17777) LOAD A STANDARD ADBRESS MASK 

pac POMSK AND SGT Ir 

JMP OPDON NOW SGT UP THE OPDON SPECIFICATIONS 


tH@ USER WANTS 7O OPBN HIS #PHYSICAL DISK" FILE ON WE DISK 


JMS Up 
BO 


ns SET UP THe USER DISK INITIALIZATION 
#SDKLEN 


ISK 
PEN Se’ UP THE CORE BUFFER PARAMETERS aND EXIT 


THE USER WANTS TO OPEN TWE SYSTEM LOGICAL BISK 


JMS VALCHK We MUST BE PROPERLY VALIDATED TO DO $0 

Lac (SSY8DA) 

Dac FDA SET THE DEVICE aDDRESS OF THE SYSTEM LOGI cal pISK 
CMA 

DAC MEDA 

1NX MFDA seq MINUS HE FILE DEVICE ADDRESS 

DZM FMIN SYSTEM DISK STARTS FROM WORD ZERO 

OZ MFMIN 

Lac SYSCT 

DAC F MAX SET MINUS THE MAXIMUM ADDRESS ON THE SYSTEM DEVICE 
JMP BOPEN SET UP THE CORE BUFFER PARAMETERS AND EXIT 
=SSYSMAXS40041 


THE USER WANTS TO OPEN ONE OF THE V5A LOGICAL DISKS 


40 
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D OPEN FILE/DEVICE ROUTINES 
4760 * 
003735 4770 VSA ee 
005735 103215 4780 JMS VALCHK ME MUST BE VALIDATED TO DO THIS 
905736 213307 4790 LAC (040000) 
00°737 942163 485 DAC FDA SET THE PHYSICAL DISK DEVICE ADDRESS 
005740 481 NUM GEY THE NUMBER OF FHE LOGICAL DISK 
905741 613111 4820 JMP MSG83 NO NUMBER »- FORMAT ERROR 
905742 744020 4830 CLLYRAR PUT ANY LEGAL DISK NUMBER IN THE LINK 
905743 740200 4840 SZA SKIP IF THB DISK NUMBER WAS LEGAL 
905744 613137 4850 JMP MSG85 
905745 744400 4860 8Z\, SKIP FOR DISK ZERO 
005746 213334 4870 Lac (1000) ELSE OAD THE STARY OF DISK #1 (BLOCK 1000) 
09°747 342453 4889 TaD FDA 
905750 042163 4890 pac FDA SET THE LOGICAL DISK+S DEVICE ADDRESS 
905781 7400014 4900 CMA 
905752 042164 4910 pac MFDA 
005753 442164 4920 1NX MFDA SET MINUS THE FILE DEVICE ADDRESS 
905754 142165 4930 DZM FMIN LOGICAL DISK STARTS WITH WORD ZERO 
905785 £42166 4949 yay MFMIN 
005756 213335 4959 Lac (=490000+1) 
005757 042167 4960 DAC F AX SEY THE FILE mAXimWmw ADDRESS 
005760 605472 770 UMP BOPEN SET UP THE coke BURPER PARAMETERS AND EXIT 
498 « 
4990 THE ySER WANTS TO OPEN HIS PREVIOyS FILE -- vALID ONLY WHEN XCORE IS OPEN 
5000 sd 
005761 5010 PRE oon 
905761 302131 5020 Lac FTYPE | LOAD PHE CURRENTLY OPEN FILE TYPE 
905762 §50333 8030 Sad ACF SKIP IF AN ACTUAL CORE FILE WaS NOY PREVIOUSLY OPEN 
005763 741000 8040 SKP 
005764 605674 5050 wMP DQNE OTHERWISE IGNORE 
905765 202152 5060 LAC OFTYP ELSE LOaD ¥HE PREVIOUS FILE YYPE 
905766 042154 3070 pac FYYPG RESTORE [T 
905767 740200 8080 SZA CHECK FOR A CORE LENGTH FILE 
905770 605674 53090 JMP DONE IN WHICH CASE THE MASK IS STILL OK 
805771 750001 8100 CLC ELSE GGT THE FULL=WORD MASK 
905772 0420531 51410 BAG PCMSK AND SET {T 
005773 605671 8120 JMP DONE BXIT 
5130 * 
6140 bd 
5150 « BLOCK FORCES THE BUFFER AND OpENS THE SpECIFIED BLOCK ON THE 
$160 * CURRENT DEVICE AS A NEW FILE 
5170 ® 
003774 $180 8.0 ee 
p03774 5190 NUM GET THE BLOCK NUMBER 
005775 613111 5200 JMP MSG83 SOME SORT OF FORMAP ERROR 
005776 643336 8210 AND (4777) MASK TO JUST THE BEOCK NUMRER 
909777 042004 8220 pac TEMPy 
006000 760000 58230 LAW 0 LOAD A DEVICE NUMBER/TYPE MASK 
906001 302163 5240 AND FDA RECOVER THE CURRENT DEVICE NUMBER/TYPE 
QoSo002 842001 3250 Tad TEMPY ADD IN THE REQUESTED BLOCK NyMBER 
906003 042163 5260 DAC FDA SET THE NEW FILE DEVICE ADDRESS 


006004 740001 58270 CMA 


DEBUG 


006005 
006006 
006007 
006010 
006041 
006042 
006043 


05/31/72 
D 


042164 
442164 
142165 
142166 
777401 
042167 
605472 


5280 
5290 
5300 
53190 
5320 
5330 
5340 


PDP9 TIME-SHARING SYSTEM MONITCR AND “4ESSAGE ROUTINES PAGE 


DAC 
tNX 
DZM 
BZ 
LAW 
Dac 
JMP 


OPEN FILE/DEVICE ROUTINES 


MFDA 

MFDA gET “INUs THE FILE DEVICE ADDREss 
FMIN BLOCK STARTS WITH WORD ZERO 

Me MIN 

«377 

FMAX SET MINUS THE MAXIMUM BLOCK ADDRESS 
BOPEN SET THE CORE PARAMBTERS AND &XIT 
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D MYSS DEBUGGER ~~ VALIDATE COMMAND 
5350 sSTITL MTSS DEBUGGER -- VALIDATE COMMAND 
. 006044 5360 USE PURE 
006044 525252 5570 VALWOD 525252 CONSTANT TO VALIDATE A USER 


006945 442125 5380 VAL1L »Acl6 $D15$ 
00046 262426 53399 VAL2 ,ACT6 $646$ 
006047 444555 5400 VALS ,ACI6 SDEMS 


5410 wHEAD = Dem 
006020 5420 VAL or 
5430 »HEAD OD 
006020 5440 NMESS <[MMMMMMMM(WWWWWWW (BBBESBBBI>: 28, 
004034 5450 LINE GET THE VALIDATION LINE ON INPUT 
006085 5460 WORD ge’ THE FIRST THRee CHARACTERS OF THe PASSWORD 
006036 5479 PORMAT FORMAT ERROR IF NONE 
906037 546017 5480 Sad VALS CHECK THE PUBLIC VALIDATION WORD 
006040 6060590 5490 UMP VAL9 
906041 346045 5500 Sad Vala CHECK THEM 
9o60a@2 741000 5510 SKP OK -- CHECK NEXT TAREE 
006043 611667 5520 JUMP MSG58 ELSE VALIDATION BRROR 
006044 5530 WORD2 GET THE NEXT THREE CHARACTERS 
006045 546046 3540 $aD VAL2 CHECK THEM 
906046 741000 3550 SKP VALIDATION SyccE Sst ul 
006047 614667 5560 JuMP MS$G58 ELSE VALIDATION &RROR 
006050 5570 VAL9 MPOFF 
, PMC SAVE,ON 
806050 705000 SPECIAL+0 TURN OFF MEMORY PROTECT 
006061 206014 5580 LAC VALWD 
ee 044779 3590 pac SVALID VALIDATE THIS USBR 
06083 701742 5600 MPEV 
906054 604023 5610 JMP MSMONXT GET THE NEXT COMMAND 
$620 * 
5630 * 
5640 * 
5650 * SEE IF THE CURRENT USER WAS BEEN VALIDATED, IF So, RATURN To THE 
5660 * CALLER. OTHERWISE PRINT A ® WHAT" ERROR MESSAGE, 
8670 * 
006085 5680 ENTER VALCHK 
,PMC SAVE,ON 
009215 VALCHK voy 
006055 5690 MPOFF 
.PMC SAVE,QN 
906085 703000 SPECIAL+0 TURN OFF MEMORY PROTECT 
906086 201770 53700 Lac SVALID LOAD THE VALIDATION WORD 
906087 704742 3710 MPBY 
006060 3460434 3720 $aD VALWD 1S THJS USBR VALIDATED 
006061 6232145 5730 RET VALCHK»X YES =~ RETURN 
006062 5740 FORMAT NO -- PRETEND WE DON'T KNOW FORMAT HE IS TALKING ABOUT 
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D MTSS DEBUGGER -- CLOSE -- LIMIT -- MASK -- BASE COMMANDS 
5750 »STITL MTSS DEBUGGER -- CLOSE -- LIMIT m- MASK -- BASE COMMANDS 
5760 * 
5770 * 
5780 * CLOSE THE CURRENTLY OPEN FILE 
5790 s 
006063 5800 Cio ee% 
006063 103344 5810 JMS FORCE COPY QUT THE CURRENT BUFFER IF IT HAS BEEN ALTERED 
006064 103306 5820 JMS UCORE SET UP THE USER CORE FILE PARAMETERS 
006065 103304 5830 JMS SNCOP SET UP THE BUFFER PARAMETERS 
006066 605671 5840 JMP DONE EXIT 
5850 * 
5860 * 
5870 ® 
006067 5880 LIM aes 
006067 202044 5890 Lat LOCOR 
905070 042041 5900 Dac LIMIT 
906071 605671 5910 JMP DONE 
5920 * 
8930 * 
5940 * 
004072 $950 MAS ton 
806072 202044 5960 LAG LOCOR 
905073 042046 3979 DAC MASK 
906074 603671 5980 JMP DONE 
5990 * 
6000 * 
6010 * 
906075 6020 BAS ens 
906075 202044 6030 Lac LOCOR 
006076 042047 6040 DAC RELOC 


006077 603671 6050 JMP DONE 


DEBUG 
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006100 
006100 


006101 
006102 
006103 
006104 


202044 
042042 
750001 
042007 


006105 


006105 
906106 
906107 
906140 


103251 
606136 
502046 
042014 


006141 


poesat 
06142 
006143 
006194 
006145 
906116 


302042 
108942 
222162 
502046 
§42014 
606125 


006147 


906147 
006120 
poeta 

06192 
906123 
906124 


202042 
842045 
604136 
taebas 
740000 
606144 


004125 


006125 
906126 
905127 
006130 
906131 
006132 
906133 


202042 
$02051 
042043 
422036 
103320 
#22162 
4220357 


006134 


006185 


606117 


006196 


0 
006137 
006340 
006141 
006142 
006143 


at 
53341 


605673 
§50324 
605671 
606100 


6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
63510 
6320 
6330 
6340 
63550 
6360 
6370 
6380 
63590 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6539 
6540 
6550 


01903823 


SEA 


SEAL 


SEA2 


SEAS 


S&A4 


SEAS 
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MTSS DEBLGGER -- SEARCH COMMAND 


MTSS DEBLGGER -- SEARCH COMMAND 


SEARCH FOR WORDS IDENTICAL TO THE SEARCH VALUE WHEN BOTH ARE MASKED 


ere 
CRLF 
WAC 
Dac 
cLe 
Dac 


LOCOR 
LOC 


TEMP7 


INVAL 
SEA5 
MASK 
TEMP12 


LOC 
LOCaT 
BPTR,X 
MASK 
TEMP12 
SEA4 


LOC 
HICOR 
SEAS 
LOC 


SEA2 


DUMSW, X 


S—EAS 


PUT TWE OUTPUT ON A FRESW LINE 
INITIALIZE THE WORKING LOCATION TO THE LOW END OF THE RANGE 


SET THAT OP CODES ARE LEGAL 


GET THE VALVE TO SEARCH FOR 

DONE IF a FORMAT EMROR OR NULL INPUT 
MODIFY BY THE SPECIFIED MASK 

SAVE THE ABJUSTED VALUE FOR THE SEARCH 


LOAD THE ADDRESS OF THE NEXT LOCATION TO BE EXAMINED 
LOCATE IT 

LOAD THE VALUE TO BE EXAMINED 

MODIFY BY THE SPECIFIED MASK 

CHECK FOR A GOOD FIND 

GOOD FIND +- QUTPUT IT 


LOAD THE LOCATION RPOINYER 
SEE IF DONE 


Yes 

NOT YET DONE ~~ ADVANCE THE POINTER 
SKIP JNSURANCE 

LOOP TO DO THE NEX? VALUE 


OUTPUT THE GOOD LOCATION AND CONTENTS 

LOAD THE SUCCESSFUL ADDRESS 

MASK TO THE ADDRES§ FIELD 

UPDATE THE PC TO TAE LATEST LOCATION OUTPUT 
PRINT THE ADDRESS IN TWE CORRECT FORMAT 
FOLLOWED BY A COLON AND SPACE 

LOAD THE CONTENTS 

PRINT THE CONTENTS IN THE CORRECT FORMAT 
END THE LINE 

CONTINUE 


DONE 
GET THE TERMINATING DELIMITER FOR THE LAST VALUE 


CARRIAGE RETURN ENDS THE COMMAND 


SYNTACTIC UNIT SBP&RATOR ENDS THE COMMAND 
ELSE DO THE NEXT SEARCW 
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D MTSS DEBUGGER -~ HARDWARE READ@IN PAPER TAPE PUNCH COMMAND 
6560 sSTITL MTS§ DEBUGGER -~- WARDWARE READ-IN PARER TAPE PUNCH COMMAND 
6570 
6580 
6590 
006144 777777 6610 LAW “4 
906145 342044 6620 Fad LOCOR 
805146 040010 6630 DAC 10 SET THE AUTO-INDEX REGISTER fO THE FIRST LOCATION TO gE PUNCHED 
006147 213337 6640 Lac (200) 8=-HOLE PUNCH FOR BENARY TAPE 
90,50 042004 6650 DAC TEMP, SAVE JT FOR THE SUBROUTINE 
006151 6660 HRI2 oes 
006151 220010 6670 Lac 10>X LOAD THE N&X? WORD TO PUNCH 
006152 652000 6680 MQ SAVE IT 
006183 403217 6690 JmMs OUTPUT PUNCH THE FIRST SIX BITS 
006154 £03217 6700 ums ourpuT PUNCH THE SECOND S4x BITS 
906155 200010 6710 Lag 10 LOAD THE ABDRGSS OF THE WORD 
906156 542045 6720 SAD H}COR DONE?? 
Bo618? $0616 6730 ume HRI6 ves 
06160 408217 6740 ums OUTPUT NO =~ QUTPUT THE TAIRD SIX BITS 
906161 606151 6750 JMP HRI2 PUNCH THE NEXT WORD 
006162 6760 HRI6 4 
906162 213340 6779 WA (300) LOaD BITS 7e8 FOR THE LAST LINE ON A&A HARDWARE READ-IN TAPE 
005463 042004 6780 bac TEMPs SAVE FOR THE SUBROWTING 
906164 09217 6790 JM$ OUTPUT PUNCH THE LaST SIX BITS OF THE TaPE 
9056165 740040 a HLT 
4 
006166 6820 ENTER OUTPUT SHIFT AND PUNCH THE NEXT SIX BITS 
, PMC SAVE,ON 
003247 OUTPUT aos 
906166 641606 6830 BAGCLAILLS 6 GET THE NEXT SIX BETS 
906167 342001 6840 Fad TEMP4 INGELUDB THE HIGHROMDER BIT (S) 
005179 «69700204 $859 PSA PUNCH [T 
906171 700201 6860 rer WAST FOR [7 TO SETILE 
006172 606171 6870 JMP ot 


006173 623247 6880 RET OUTPUT. X EXIT 


DEBUG 
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006174 


006174 
006175 
906176 
906177 
006200 
906201 
006202 
006203 
006204 
006205 


006206 
906207 
906240 
906241 
906242 
906243 
906244 
906245 


750004 
103312 
042007 
202044 
403251 
606216 
062162 
442156 
202044 
042043 


542045 
606216 
442044 
740000 
202044 
403342 
202000 
406202 


006246 
004216 


006247 
006220 
906221 
006222 
006223 
006224 
006225 
006226 


S53341 
605671 
§50324 
605671 
442044 
442045 
740000 
406174 


6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7450 
7160 
7470 
7180 
7190 
7200 
7210 
7220 
7230 


01703:23 


PAT 


PaT2 
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STITL 


ees 


CLC 
JMS 
Dac 
Lac 
JMS 
JMP 
Dac 
TNX 
LAc 
Dac 


CHECK FOR A BLOCK PATCH 


$aD 
JMP 
1NX 
NOP 
Lac 
JMS 
LAG 
JMP 
ee 
DELIJM 
Sad 
JMP 
$aD 
JMP 
TNX 
1NX 
NOP 
JMP 


MTSS DEBUGGER -- PATCH COMMAND 


MTSS DEBUGGER -~ PATCH COMMAND 


LOCAT 
TEMP7 
LOCOR 
INVAL 
Pate 
BPTR,X 
BALT 
LOCOR 
PC 


HICOR 
PaT2 
LOCOR 


LOCOR 
LOQOCAT 
TRMPO 
PATIL 


C$CR) 
DONE 
END$N 
DONE 
LOCOR 
HICOR 


Pat 


GET A POINTER To IT 

FLAG THAT OPCODES ARE LEGAL 

LOAD THE ADDRESS a? WHICH TO DO THE PATCH 
GET THE VALVE TO PATCH THERE 

DONE JF a FORMAT ERROR OR NO MORE INPUT 
ELSE DO THE PATCHIAG 

SET THE BUFFER ALTBRED FLAG 


UPDATE THE PC TO TAIS LAST LOCATION 


SEE IF TWE BLOCK I$ DONE 

1F §$O, RESUME NORMAL PATCHING 

ELSE MOVE THE POINTER TO THE NEXT WORD OF THE BLOCK 
SKIP INSURANCE 

LOAD THE NEXT LOCAVION TO PATCH 

LOCATE If 

RELOAD THE SAME CONTENTS 

AND PATCH IT 


GET THE LAST DELIMSTER 
CARRIAGE RETURN ENDS THE COMMAND 


SYNTACTIC UNIT D&LIMITER ENDS THE COMMAND 

ADVANCE THE POINTER IN CASE OF ANOTHER PATCH 

MAKE HICOR KEEP UP WITH LOCOR OR ELSE WE RUN WILD 
IN CASE OF A SKIP 

LOOP FOR ANOTHER CONTENTS TO PATCH 
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006227 
006227 442043 
905230 740000 
00231 202043 
002832 042045 
006233 6062414 


006234 
906234 202053 
906235 740200 
006236 605674 


006237 
006240 


#02044 
042043 


202087 
553341 
406277 
442004 


006245 
006245 
906246 202043 
906247 302031 
906250 122056 
906251 4103320 


006241 
905242 
906243 
006244 


006252 
006252 202043 
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7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
754Q 
7350 
7360 
7370 
7580 
7390 
7400 
7410 
7420 
7430 
7440 
7459 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
7740 
7750 


0149035323 


weeseeeesvsvet & & & & 


NXT 


—~s 8s &¢ Fe @ BS 


YO50 


T7020 


TTO30 
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MTSS DEBUGGER -~ DuMP COMMAND 


»STITL MTSS DEBUGGER -- DUMP COMMAND 


DUMP PRINTS ON TWE TELETYp& IN THE CURRENT FORMAT THE FIELD SPECIFIED 

FROM THE CURRENTLY OPEN FILE. DUMPING CONTINUES UNTIL A NEW COMMAND IS GIVEN, 
A NULL FIGLD WILL DUMP THE NEXT LOCATION, BUMP RESETS THE PC AS IT DUMPS, 

ON EXT FROM DUMP, Twe Pc WILL BE SET TO TyE LAS? LOCATJON DUMPED, 

(E,G, THE COMMAND (DUM ,) MILL DUMP THE CURRENT LOCATION AGAIN, 

WHILE THE COMMAND DUM 5) WOULD DUMP THE NEXT LOCATION, 


SEF TO DUMP THE NEXT LOCATION ~- GET HERE ON A VACUOQUS SYNTACTIC UNIT 


1NX PC ADVANCE THE COUNTER FOR THE BUMP 

NOP PROTECT FROM A POSSIQRLE SKIP 

ac RC 

pac HICOR SET TO DUMP ONLY TAE ONE LOCATION 

JM? TTD50 

ee GENERAL TELETYPE DUMP DRIVER 

LAG COMFLG LOAD THE COMMAND eAUREADY-PROCESSED FLAG 
SZA SKIP IF NONE 

JMP DONE ELSE EXIT 

SEY y? THE PC TO FOLLOW THE DyMP 

Lag LOCOR 

DAC PC PC ORIGINATES AT TAME LOW END OF THE FIELD 


YTDUM PRINTS QN THE TELETYPE THE CONTENTS OF YWE OPEN FILE, 
GURRENT FORMAT, FROM LOCOR THROUGH HICOR, FHE LOCOR 2S GQUaL TO THE LaTEST LOCATION 
PRINTED aT alt. TIMES, « SYMBOLIC DUMP {S "PRINTED FOUR LOCATIONS PER LINES 

ALL OTHER FORMATS aRE PRINTED EIGH? LOCATIONS PER LINE, OUTPUT 18 DOUBLE. 

SPACED BEFORE EaCh LINE WHOSE STARTING aDDRESS IS aN OCT AL HUNDRED, 


IN THE 


ac DUMSW LOAD THE DUMP FORMAT SWITCH 
AD (LAW SMQD) SKIP UNLESS A SYMBOLIC DUMP {S REQUESTED 
JM? TTD10 SPECIAL S&T%-URP FOR a SYMBOLIC DUMP 
DZM TEMP, NO OTHER FORMAT WAS A HALF LINE MASK 
eRLF GE? A FRESH LINE 
Lag PC LOAD THE NEX T ADDMESS TO PRENT 
AND PCMSK MASK TO THE ADDRESS FIELD IF NEEDED 
Jms DRSW, PRINT THE ADDRESS IN TWE PROPER FORMAT 
JMS COLSP PRINT A COLON AND SPACE AFTER THE ADDRESS 
ea PRINT THE NEXT CONTENTS ON TWE SAME LINE 
ac PC LOAD THE NEXT ADDRESS 
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D MTSS DEBLGGER -- DUMP COMMAND 
906253 103312 7760 JMS LOCAT GET A POINTER TO THIS CONTENTS 
905254 222162 7770 LAC BPTR,X LOAD THE CONTENTS ¥O PRINT 
906255 422037 7780 JMS DUMSW, X PRINY THE CONTENTS IN THE REQUESTED FORMAT 
7790 

006256 7800 TTD40 = ges DECIDE WHICH THING TO DO NEXT 
906256 202043 7810 WAC PC LOAD THE LOCATION JUST OUTPUT 
006257 542045 7820 SaD HICOR CHECK FOR DONE 
906260 605671 7830 JMP DONE DONE «> EXIT 
006261 442043 7840 INX PC NOT DONE YET -- MOVE THE POINTER TO THE NEXT WORD 
906262 740000 7850 NOP SKIP INSURANCE 
006263 202043 7860 Lac PC NOW LOAD THE YPDATED PC 
906264 513317 7870 AND (77) AC 8 0 IF A BLOCK OF OUTPUT WAS JUST ENDED 
006265 741200 7880 SNA WAS JT7?7 

006266 7890 CRLF YES -~ DOUBLE SPACE 
006267 202043 7900 Lac PC RELOAD THE LOCATION 
006270 513342 7910 AND (7) AC 8 O IF A LINE OF OUTPUT HAS JUST ENDED 
099271 P42 004 7929 SaD TEMP 4 CHECK FOR THE END OF A HALFeLINE 
006272 60624 7930 JMP TTD20 Yes 
006273 741200 7940 SNA CHECK FOR END OF A FULL LINE 
006274 606245 7959 JMP TTD20 YES 
006275 103316 7960 JMS SPACE PRINT A SPACE AFTER THE WORD 
906276 606252 7970 JMP TTD3O NO »* CONTINUE ON YHG SAME LINE 

7980 

006277 7990 TTD10 neg SET 4 LOCATION PER LINE FOR A SYMBOLIC DUMP 
006277 215343 8000 Lac (4) 
0053p0 042001 8010 Dac TEMP, SEY THE HALF-LINE FLAG 


006301 606245 8020 JMP TTD20 RESUME THE DUMP 
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D SENSE USER REGISTERS 
8030 STITL SENSE USER REGISTERS 
006302 8040 USE PYRE 
8050 * 
8060 a 
006302 8070 REG er . 
006302 213327 8080 Lac (SKP) LOAD THE REGISTERS BRANCW SwITCH 
P06303 042082 8090 pac REGBR AND SET [7 
906304 606575 8100 JMP ADONE NOW FIND OUT WHIGH REGISTERS TO DUMP 
8110 « 
8120 & 
8130 * GET, AND PRINT, FHE REQUESTED REGISTER 
8140 * 
006305 8150 RSTS #4 
906305 402052 8160 xcT REGBR 
006306 606553 8170 JMP ASTS BRANCH TO ALTER THE REGISTER 
006307 8180 MESS <§TSt >,5 PRINY THE REGISYBR NAME 
00345 202020 81909 Lac STSAVE LOAD THE USER'S PROGRAM INTERRUPY STATUS REGISTER 
906346 606545 apo JMP FREG PRINT IT IN OCTAL 
821 
006347 8220 Rac ceca 
906347 402052 8230 xcrt REGBR 
Q06320 606522 8249 JMP AAC BRANCH TO ALTER THE ACCUMULATOR 
006321 8250 MESS KAC! 904 PRINT THE REGISTER NAME 
0063@6 202045 8260 Lac ACSAVE LOAD THE USER'S ACCUMULATOR REGISTER 
006397 606515 8270 JMP FREG PRINT IT IN OCTAL 
8280 
006330 8290 RMQ ek 
006330 402052 8300 xcf REGBR 
006331 606526 8310 JMP AMQ BRANCH TO ALTER THE MQ REGISTER 
006392 8320 MESS CMO? >04 
006337 202016 83530 LA MQSAVE 
906340 606545 8340 JM FREG 
006341 8350 RACs aa 
£06341 402052 8360 xct REGBR 
906342 606570 8379 JMP Aacs BRANCN TO ALTER THE ACCUMULATOR SWITCHES REGISTER 
006343 8380 MESS CACSt 925 
606351 202022 8390 Lac ACSW LOAD THE USER'S ACCUMULATOR SWITCHES SOFTWARE REGISTER 
606352 606515 8400 ume? FREG PRINT ST IN OCTAL 
8410 
006353 8420 RSC ane 
006383 402052 8430 xc? REGBR 
006354 606532 8440 JMP ASC BRANCH TO ALTER THE STEP COUNTER REGISTER 
006355 8450 RSC2 MESS <SC3 >04 
606362 202021 8460 Lag SCSAVE 
906363 606512 8470 sme SREG 
8480 
006364 8490 RVAL ee 
006364 402052 8500 xct REGBR 
006365 8510 FORMAT CAN'T ALTER THE VALIDATION REGISTER 
006366 8520 MESS <VALIDATIONS >,12, 
006376 8530 MPOFF 


,PMC ss SAVE, ON 


DEBUG 


D 


705000 
204770 


006376 
006377 
806400 704742 
906401 606512 


006402 
906402 402052 
006403 606557 

006404 
906441 2020147 
006442 513276 
006443 606512 


006444 
006414 402052 
006445 606537 

006446 
006423 202017 
006424 740040 
006425 750040 
006426 6065142 


006437 
006427 402052 
006430 
006431 
005436 302015 
006487 122035 
006440 
006445 802046 
906446 422035 
006447 
906454 202047 
006455 813276 
006466 422035 
0049487 
006464 802047 
006465 740040 
006466 750010 
006467 
006471 
006477 202020 
006500 122035 
009501 
006507 202022 
006530 422035 
906541 606355 


006542 
006542 
006514 606575 
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8540 
8550 
8560 
85790 
6580 
8590 
8600 
8610 
8620 
8630 
8640 
8650 
8660 
8670 
8680 
8690 
8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 
8790 
8800 
6810 
6820 
8830 
6840 
8850 
8860 
8870 
8880 
8890 
8900 
8910 
8920 
8930 
8940 
8950 
8960 
8970 
8980 
8990 
9000 
9010 
9020 
9030 
9040 


01403123 


RAC 


Rik 


RALl 


SREG 
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SENSE USER REGISTERS 


SPECI AL+0 

LAC $VALID 

MPEY 

JMP SREG 

aes 

xcT REGBR 
wMP APC 

MESS <PCt 304 

LAC PCSAVE 
AND (47777) 

JMP SREG 

eee 

xcT REGBR 

JMP ALK 

MESS “LK & ded 
ac PCSAVE 
Al 

QL 

JMP SREG 

ees 

xc? REGBR 
FORMAT 

MESS CACt 904 

Lac ACSAVE 
JMS R@EGSEW, Xx 
MESS «MO De4 

Lac MQSAVE 
JMs R&GSW,Xx 
MESS <PC3 04 
Lac PCSAVE 
AND (47777) 
JMs REGGW,X 
MESS <LKE 04 
ac PCSAVE 
Al, 

GLK 

OCcTZ 

MESS <ST$!t >,5 

LAC STSAVE 
JMS REGSW,X 

MESS <ACS$i 2,5 
Lac ACSW 

JMS REGQwW, Xx 
JMeP RSC2 

ere 

ocTz 

JMP ADONE 


TURN OFF MEMORY PROTECT 


BRANCH TO ALTER THE PROGRAM COUNTER REGISTER 
PRINT THE REGISTER NAME 

LOAD THE USER'S PROGRAM COUNTER AND MACHINE STATE 
RECOVER JUST THE PROGRAM COUNTER 

PRINT IT IN LEADING-ZERQES-SUPPRESSED OCTAL 


BRANCH TO ALTER HE LINK REGISTER 
PRINT THE REGISTER NAME 

LOAD THE USER'S PC AND MACHINE STATE 
MOVE THE LINK BIT (ac (0)) TO THE LINK 
RECOVER JUST THE LINK 


DO ALi OF THE REgISTERS 
CANNOT ALTER ALL REGISTERS 
PRINT THE REGISTER IN YHE DESIRED FORMAT 


PRINT THE REGISTER IN THE DESIRED FORMAT 


PRINT THE REGISTER IN THE DESIRED FORMAT 


PRINT THE REGISTER IN THE DESIRED FORMAT 


PRINT THE REGISTER JN TwE DESIRED FORMAT 
PRINT THE SC REGISJER 


PRINT THE AC IN LEADING-ZERQES*SUPPRESSED OCTaL 
1S THERE ANOTHER REGISTER REQUEST? 
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DEBUG 05/31/72 
D 
006545 
§06545 122035 
906516 606575 


9050 
9060 
9070 
9080 


01405323 


FREG 


JMS REGSW, x 


PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 
SENSE USER REGISTERS 
ao) PRINT THE FULL AC YN QCTAL 


PRINT THE AC IN THE DESIRED FORMAT 
JMP ADONE {S THERE ANOTHER REGISTER REQUEST? 


PAGE 
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DEBUG 


D 


006547 


006547 
006547 215304 
006520 042052 
006521 606575 


006522 

006522 

006583 
006524 042015 
906525 606575 


006526 

006526 

006527 
006530 042016 
006531 606575 


006532 

006532 

006533 
006534 5133147 
006535 042021 
906536 606575 


006537 
006537 
0046540 
006541 744020 
006542 740200 
006543 
06544 74002 
06545 04200 
906546 202017 
905547 513344 
006550 #42000 
006581 042047 
906552 606575 


006563 

004553 

006584 
006555 042020 
006556 606575 


006557 
009557 


05/31/72 


01705123 


A§cC 


ASTS 


APC 
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NOW ALTER THE REQUESTED 


PAGE 


ALTER THE USER REGISTERS 


ALTER THE USER REGISTERS 


PURE 


(NOP) 
REGBR 
ADONE 


ACGSAVE 
ADONE 


MQSAVE 
AQDONE 


(77) 
SCSAVE 
ADONE 


TEMPO 
PCSAVE 
(377777) 
TEMPO 
PCSAVE 
ADONE 


STSAVE 
ADONE 


LOAD THE ALTERS BRANCH SWITCH 
AND SET IT 
NOW FIND OUT WHICH REGISTER TO ALTER 


REGISYER 


GET THE NEW VALUB FOR THE USER'S AC 
FORMAT ERROR 

SEY THE NEW USER'S ac VALUE 

ANOTHER REGISTER?72 


GET THE NEW VALUE FOR THE USER'S Mg 
FORMAT ERROR 

SET TWE USER'S NEW MQ VALUE 

ANOTHER REGISTER? 79 


GET THE NEW VALUE FOR THE USER'S STEP COUNTER 
FORMAT ERROR 

SC 1S A SIXBIT REGISTER 

SET THE USER'S NEW STEP COOUNT VALUE 

ANBTHER REGISTER?79 


GET THE NEW VALUE For THE USBR'S LINK 
FORMAY ERROR 

MOVE THE VALUE INTO& THE LINK 

SKIP JF A VALUE OF ZERO OR ONE WAS TYPED - GOOD VALUE 
ANY OTHER VALUE IS AN ERROR 

MOVE THE YALVE INTO ac (0) 

SAVE IT 

LOAD THE WYBER'S PC AND MACHINE STATE 
GET RID OF THE OLD LINK 

INSERT THE NEW LINK 

SAVE YHE UPDATED PC AND MACHINE STATE 
ANOTHER REGISTER?7¢ 


GET THE NEW VALUE FOR THE USER'S PROGRAM INTERRUPT STATUS NUM 
FORMAT ERROR 

SET THE UUSER'S NEW PROGRAM INTERRUPT STATUS REGISTER 

ANOTHER REGISTER?79 


GEr TWE NEW VALUE FOR THE USFRIg§ PC 
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D ALTER THE USER REGISTERS 
006560 96140 WHAT FORMAT ERROR 
006561 513276 9620 AND (47777) REDUCE IT FO vUST PRC 
006562 042000 9630 pac TEMPO . 
906563 202017 9640 Lac PCSAVE LOAD THE USER?S OLD PC AND MACHINE STaTE 
906564 513324 9650 AND (700000) GET RID OF THE OLD PC 
905565 242900 9660 KOR TEMPO PUT IN THE NEW PC 
006566 042017 9670 Dal PCSaVE SaVE YHE UPDATED PE aND MaCHINE STaTUS 
906567 606575 9689 JMP ADONE ANOTHER REGISTER?29 
9690 
006570 9700 AACS. er 
006570 9710 NUM GEY THE NEW VALUE FOR THE USER'S AC SWITCHES 
006571 9720 WHAT FORMAT ERROR 
906572 042022 9730 pac ACSW SEY THE NEW VALUE OF THE USER'S aC SWITCHES 
906573 606575 9740 JMP ADONE ANOTHER REGISTERI79 
9750 
006574 9760 AVAL ere 
006574 9770 WHAT CAN'T ALTER VALIDATION REGISTER 
9780 * 
9790 * 
9800 * ALMOST DONE ~~ FLAG THE COMMAND AND LOOK FOR TWE NEXT 
9810 * 
006575 9820 ADONE nay 
006575 442033 9830 {NX COMFLG FLAG YHE COMMAND 


906576 605560 9640 JmP MODE TRY TO PICK UP ANOTHER ONE 


DEBUG 


D 


006577 
006577 342150 
006600 
906601 6131114 
006602 613345 
006603 253346 
906604 042002 
006605 813347 
00606 042004 
006607 


705000 
204771 
604431 


202047 
606602 


906607 
006640 
006641 


805642 
90643 


006644 
006694 302151 
906645 50333 
006646 744000 
906647 6064622 
006690 802132 
006691 042151 
0066@2 4105314 
006623 604023 


05/31/72 


01303123 


9850 
9860 
9870 
9880 
9890 
9900 
9910 
9929 
9930 
9940 
9959 
9960 
9970 


9989 

9990 

10000 
10020 
10020 
£0030 
40040 
40050 
40060 
10070 
10080 
£0090 
40100 
10110 
10120 
40130 


TRA 


v4 


EX! 


EXl2 
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USER JUMP/TRANSFER/CONTINUE COMMANDS 


USER JUMP/TRANSFER/CONTINUE COMMANDS 


~STETL 

eee 

DZM PHFLAG 
NUM 

UMP MSG83 
AND (417777) 
XOR (100000) 
Dac TEMP2 
Lac (507000) 
bac TEMPy 
MPOFF 

PMC SAVE,QN 
BSPECIAL+0 

Lac SNUMBR 
JMP MSMX5 
LAC PCSAVE 
JMP J4 

eee 

Lac F TYPE 
Sad ACF 

SKkP 

JMP EX!I2 

Lac OF TYP 
Dac FYYPE 
wM8 FORCE 
JM? MSMONXT 


SET THE NEXT PROGRAM TO BE A USER PROGRAM 
GET THE ADDRESS 
DON'T ACCEPT A NULL ADDRESS 


SET TWE RESTART ADDRESS 
LOAD THE SWAPPER CONTROL WORD 


FURN OFF MEMORY PROYECT 
LOAD THE USER CORE PROGRAM Name 
SWAP TO IT 


LOAD THE USER'S RESTART ADDRESS 
AND RESTART HIM THERE 


GET OUT OF ACTUAL CORE MODE 
LOAD HE CURRENTLY OPEN FILE 7YPE 
SKIP UNLESS WE REALLY DO HAVE THE ACTUAL CORE FILE OPEN 


&LS& JOB [8 DONE -= EXIT 

LOAD THE PREVIOUS FILE TYPE 

AND RESTOR IF TO IVS RIGHTFUL PLACE 
FORCE THE BUFFER BEFORE QUITTING 
NEXT COMMAND 
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DEBUG 


05/31/72 
D 


006624 


005221 
006624 
006626 625221 


006627 


005223 
906627 652000 


906630 641606 
006651 pes 
632 5 
BBcess $43606 
0066834 $53350 

403503 


905635 
906636 641606 
353330 


meee? : 
Bocead b93233 
006642 


008225 
006642 652000 
006643 4103227 
906644 4103227 
906645 4103227 
006646 623225 


006647 


003227 
006647 641606 
006650 355351 
006651 741100 
906652 $53352 
906653 §53350 
006654 103503 
006655 625227 


01503823 


10140 
10150 
10160 
10170 
10160 
10190 
10200 
10210 


10220 
102350 
10240 
10250 
10260 


10270 
10260 
10290 
10300 


10540 


10320 
40330 
10340 
10350 


10360 
40370 
10380 
40390 
10400 
40410 
40420 
40430 


10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 


esses es 8&8 & 


QOMOD 


AMOD 


6MOD 


SIX 


PDP9 TIME*SHARING SYSTEM 
MTSS DEBUGGER -- 


sSTITL MTSS DEBUGGER -- 


SUBROUTINES TO OUTPUT FO 
IN ANY OF THE LEGAL FORM 


ENTER OMOD 
»PMG SAVE,ON 
aes 

oct 

RET OmMOD, Xx 
ENTER  AMOD 
»PMC SAVE,QN 
eo 

MQ 

» OUP 3,3 
EABCLA!ILLS 6 
Tad (240) 
JMS TSTTYOT 
EABECLAILLS 6 
TAD (240) 
JMs TSTTYOT 
EAECLAILLS 6 
TaD (240) 
J43 TSTTYOYT 
RET AMOD>X 
ENTER 6MOD 
PMC SAVE,ON 
ae 

1) 

JMS SX 

JMS $}X 
JMS. Sx 

ref 6M0D.X 
ENTER SJx 
PMC SAVE,ON 


ee 
BAECLAILLS 6 
Fad 


(+49) 
SPA 
vad (100) 
Fad (240) 
JMS TSTTYOT 
RET S]xX,X 


MONITOR AND MESSAGE ROUTINES 
OUTPUT SUBROUTINES 


PAGE 


QOWTPUT SUBROUTINES 


THE TELETYPE THE CONTENTS OF THE ACCUMULATOR 
avs, 


PRINT THE AC» INCLWDING LEADING ZEROES, IN OCTAL 


EXIT 


PRINT THe AC IN aC86 SIXBIT aSCI1 


SET UP THE WORD TO PRINT 
ONGE FOR EACH CHARACTER 
RECOVER THE NEXT CAARACTER 
RECONSTITUTE THE ASCI! 
PRINT THE CHARACTER 
RECOVER THE NEXT CAARACTER 
REGONSTITUTE THE ASCI] 
PRINT THe CHARACTER 
REBOVER THE NEXT CMARACTER 
RECONSTITUTE THE ASCII 
eo THE CHARACTER 


PRINT THE AC IN TRIMMED SIXBIT 


SAVE THE VALUE 

PRINT THE FIAST CHARACTER 
PRINT FHE SECOND CAARACTER 
PRINT THE THIRD CHARACTER 
EX{T 


PRINT THE NEXT CHARACTER FROM THE MQ AS TRIMMED SIXBIT ASCII 


RECOVER THE CHARACTER 

300'S GO NEGATIVEs 200'S Go POSITIVE 
CHECK WHICH IT WAS 

IT WAg A 300 

1T WAS A 200 

PRINT THE CHARACTER 

EXIT 
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DEBUG 


D 


006656 


0052381 
906656 640511 
906657 103503 
906660 640611 
906661 103503 
006662 623231 


006663 


003233 
006663 513353 
006664 103503 
006665 623233 


006666 


003235 
006666 640507 
906667 513354 
009679 499508 
006671 640607 
006672 513354 
909673 403503 
906674 623235 


006675 


003237 
906675 664000 
906676 042000 
906677 744400 
906700 606704 
906701 442000 
0057p2 760255 
906703 103503 


006704 
006704 762001 
906705 040040 
006706 202000 
006707 653323 
906740 000012 
006741 0960010 
006742 641002 
906713 744200 


05/31/72 


01405323 


10520 
105350 


10540 
40550 
10560 
10570 
40580 
10590 
40600 
10640 


10620 
10650 
10640 
10650 
10660 
10670 


10680 
10690 


i87f3 


16720 
40730 
40740 
40750 
10760 
£0770 


40780 
40790 
40800 
40810 
40820 
10830 
40840 
40850 
40860 
40870 
40880 
40890 
40900 
40910 
10920 
10930 
40940 
40950 


MMOD 


8mM00 


70D 


DMOD 


0&C2 


Dace 
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LACQ 
SZAICLL 


PAGE 


MTSS DEBUGGER -- QUTPUT SUBROUTINES 


HMOD 
SAVE,ON 


9, 
TSTTYOT 
9, 
TSTTYOT 
HMOD,X 


8MOD 
SAVE,ON 


(377) 
TSTTYOT 
8MOD.X 


7M0OD 
SAVE,ON 


7 
(477) 
TSTTYOT 
7 


(177) 
TSTTYOT 
7M0D,X 


DMODp 
SAVE,ON 


TEMPO 


DEC2 
TEMPO 
SMINUS 
TSYTYOT 


TEMP2 a4 


PRINT THe AC AS ONE ASCII CHARACTER IN G€ACH HALF*WORD 


KEEP THE UPPER CHARACTER 
PRINT [T 

RECOVER THE LOWER CHARACTER 
PRING U7 

EXIT 


PRINT THE AC AS QNE ASCII CHARACTER IN AC(40-17) 


MASK TO THE CHARACTER 
PRINT THE CHARACTER 


PRINT THE AC AS STEXYT FORMAT (CHARS IN BITS 4#10311-47) 


KEEP THE UPPER CHARACTER 
MABK TO SEVEN BIT CODE 
PRINT IT 

REGOVER THE LOWER CHARACTER 
MASK TO SEVEN BIT CODE 
PRINT IT 

EXIT 


PRINT THE AC AS A SIGNED DECIMAL VALUE 


GET THE SIGN AND MAGNITUDE OF YH AC 

SaVE THE MAGNITUDE -~- IT IS CORRECT FOR POSITIVE QUANTITIES 
SKIP IF THE NUMBER WAS NEGATIVE 

ELSE PREPARATIONS ARE DONE 

ALLOW FOR @SMIS ONE'S COMPLEMENT CONVERSION 

LOAD A MINUS SIGN 

ANB PRINT UT 


LOAD A POINTER TO FHE OUTPUT BUFFER 
AND SET {Ff 

LOAD THE VALUE TO PRINT 

DIVIDE BY 10 


STORE THE NEXT DIGIT -- NOTE THERE CANNOT BE MORE THAN 5 
LOAD THE QUOTIENT 
SKIP JF DONE 
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DEBUG 


006744 
006745 


006746 
006747 
906720 
606721 
906722 
§0°723 
00°724 
006725 
906726 


05/31/72 
D 


606707 
777777 


340010 
§53355 
606727 
040010 
#20040 
353305 
408303 
977776 
606716 


006787 


006727 
006730 
006731 


760256 
403503 
625237 


0047$2 
005241 


906732 
906733 
905734 
906735 
905736 
006787 


042000 
744000 
640516 
353356 
04200 
35335 


04705425 


40960 
40970 
40960 
40990 
11000 
41010 
11020 
41030 
11040 
11050 
41060 
41070 
41080 
41090 
41100 
41110 
41120 
41130 
41140 
11150 
41160 
41170 
11180 
41190 
11200 
41240 
41220 
41230 
414240 
41250 
41260 
41270 
11280 
11290 
41300 
41310 
41320 
41330 
41340 
41350 
41360 
11370 
11380 
11390 


41400 
11410 
41420 
41450 
£14406 
41450 


DEC6 


DECS 


Seat eeeoesese ee be eveeeszeaee see se 8 8 


$M00 
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JMP 
LAW 


TAD 
Sad 
JMP 


MTSS DEBUGGER -+ QWTPUT SUBROUTINES 


DEC4 ELSE LOOP 
-1 AMOUNT TO BACK UP THE POINTER FOR OUTPUT 


10 BAGK UP THE POINTER 
(LAW TEMP2-2) SKIP UNLESS PONE 


DECS8 DONE *- EXIT 

10 ELSE RESET TwE POINTER 

10.X LOAD THE NEXT CHARACTER TO PRINT 

(260) MAKE JT ASCII 

TSTTYOT PRINT IT 

=2 AMOUNT TO BACK UP THE POINTER 

DEC6 FRY FOR aNOTHER CHARACTER 

SPERILOD LOAD A PERIOD (,) 

TSTTYOT AND PRINT IT TO SIGNIFY DECIMAL OUTPUT 
DMOD.X EX!T 


SMOD PRINTS THE AC AS A SYMBOLIC VALUE UNDER THE FOLLOWING RULES? 
4) IF THE OP CODE FIELD IS a MEMORY REFERENCE INSTRUCTION OR 


@) 


3) 


A LAW INSTRUCTION, IT 2S $O PRINTER, IN THIS CASE THE PRESENCE 

OF A 1 IN BIT 4 CAUSES A %pX" TO BH PRINTED aFTER THE ADDRESS 

TO SIGNIFY INDIRBCTIONs THE ADDRES§ FIELD WILL Be PRINTED 

aS THE USER SYmpoL IT IS chOSGST 16 PLUS OR MINUS THE DIFFERENCE. 
IF THE ABSOLUTE VALUE OF THE DIFFEMENCE EXCEEDS THE pRE-ASSIGNED 
LIMIT, THEN THE ADBRESS {S$ PRINTED ENTIRE, 


IF THE OPCODE FIELD J§ AN EAB, THE EAE INSTRUCTION WHICH #5 
CLOSEST TO TwE VaLUVE WILL BE PRINTED, ALONG WITH PLUS OR MINUS 
THE DIFFERENCE, 


IF THE VALUE IS AN JOT INSTRUCTION OR AN OPERATE INSTRUCTION 
IT WILL BE PRINTED aS A SEQUENCE OF MICROCODED INSTRUCTIONS, 


TEMPORARY VARIABLE USAGE 18; 

TEMPQ <~ STORE THE VALUE TO BE OUTPUT 

TEMPy ~- STORE THE INDIRECT BIT JF NECESSARY 

TEMP2 == SCRATCH 

TEMP3Z ~~+ POINTER TO TRE CLOSEST SYMBOL VALUE LOCATED 


ENTER 
PMC 
ee 

DA 
Cli 
RS 
fad 
DA 
val 


TEMP4 e= ABSOLUTE VaLUE OF THE DIFFERENCE BETWEEN VaLUE SOUGHT AND SYMBOL VaLUE FOUND 


SMOD PRINT THE AC AS A $YMBOLIC VALUE 
SAVE,ON 
TEMPO SAWE THE VALUE 

PROTECT THE SHIFT 
16,4 RETAIN JUST THE OP CODE 
(OPTAB} FORM A POINTER TO YHE OPCODE TABLE 
TEMP4 SET THE POINTER 


(OP TABR15) EAE, [0T, AND OPR ENSTRUCTIONS STAY POSITIVE 
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D MTSS DEBUGGER -- QUTPUT SUBROUTINES 
906740 740100 11460 SMA SKIP IF IY WAS A MEMORY REFERENCE INSTRUCTION 
906744 622001 11470 JMP TEMP 1,X ELSE BRANCH TO A SPECIAL HANDLING ROUTINE 
006742 222001 11480 LAG TEMP, X LOAD THE OPCOQDE 
606743 403223 11490 JMS AMOD PRINT IT 
906744 409316 11500 JMS SPACE FOLLOWED BY A SPACE 
006745 g02000 11510 Lag TEMPO RELOAD THE VALUE 
906746 5413360 11520 ANQ (920000) RECOVER THE INDIRECTION BIT 
909747 042003 411530 pac TEMP, SAVE IT 
006780 g@02000 11540  SsmM0D2 Lat TEMPO RELOAD THE FULL VAKUE 
006751 813276 411550 AND (47777) RETAIN JUS? THE ADDRESS FIELD 
905782 042000 11560 pac TEMPO REPLACE THE VALUE «- THE REST OF IT 18 ALREADY PRINTED 
906783 403276 11570 JMs UVSCH SEARCH THE USER TABLE FOR a SYMBOL FOR THE ADDRESS 
906784 g02004 11580 Lac TEMP4 LOAD THE ABSOLUTE VaLUE OF THE DIFFERENCE BETWEEN SOUGWT AND FOUND 
006755 41590 NEG NEGATE IT 
906787 942041 11600 TaD LIMIT ADD THE ALLOWED MARGIN 
206760 740100 11610 SMA SKIP JF We ARE QUTSIDE THE ALLOWED MARGIN 
906761 607040 aec JMP SYMQ ELSE PRINY THE SYMBOL AND DIFFERENCE 
116 a 
ere a NO SUITABLE SYMBOL, SO PRINT THE ADDRESS IN OCTAL 
4165 * 
806762 202000 11660 Lac TEMPO RELOAD THE ADDRESS 
006763 41670 Ocr2 PRINT IT IN OCTAL 
906765 202001 11680 LAG TEMP4 LOAD THE INDIRECT BIT FLAG 
006766 7443200 411690 SNA SKIP IF THERE 3S ONE 
006767 629241 41700 RET SMOD,X ELSE DONE 
906770 2067735 £1710 ad IND LOAD THE COMMA X 
906771 £03245 411720 JMg SAMOD PRINT {IT 
006772 623241 eet RET sMOD.X DONE 
t . 
006773 004470 11750 IND ACI6 e aXe 
906774 623244 41760 RET SMOD,X EX{T 
41770 s 
41780 0 ® THE VALUE IS A LAW INSTRUCTION 
41790 ® 
006775 844467 411890 SLAW? »ACT6 *LAWe 
006776 41840 SLAW a 
906776 206775 41820 Lac SLAW2 LOAD TWE MNEMONIC 
906777 403223 11830 JMS AMOD PRINT THE LAW SYMBOL 
807000 403326 11840 JMS SPACE 
807001 4142001 11850 pzM TEMPS LAW INSTRUCTION HAS NO INDIR&cCY BIT 
907002 606750 11860 UMP SMOD2 PRINT THE ADDRESS 
41870 
11880 
Po70p3 454145 411890 SAS eACT6 = PE AE ® 
007004 11900 SHAE a4 EAE INSTRUCTION e- DO A BIT MATCH FOR BEST AND PRINT NUMERICAL RESIDUE 
007004 213361 11910 Lac (640000) 
907005 042007 41920 pac TEMP7 SET THE OP CODE 
007006 213301 11930 Lad (749000) 
907007 042010 11940 DAG TEMPS SET THE OP CODE MASK 
907040 202000 11950 Lac TEMPO 
907041 $15306 11960 AND (037777) GET RID OF THE OF Cone FROM THE OLD VALUE 


Oo7042 042000 11970 DAC TEMPO 


DEBUG 


907043 
907044 
807045 
907046 
90/047 
007020 


007 
907023 


05/34/72 
D 


103302 
202004 
740200 
607024 
202000 
2535361 


021 
625241 


007024 


90/0284 
007025 
007026 
907027 
907030 
007031 
007032 
007033 
907034 
007035 
907036 
007037 


007040 
007041 
007042 
007043 
907044 
007045 
907046 
90/047 
907050 


777777 
362003 
740001 
342000 
353361 
042004 
664000 
347024 
740001 
342041 
744100 
607047 


4035243 
202004 
744200 
623241 
760233 
403503 
202004 
103237 
623241 


007051 
003243 


907051 
907052 
807083 
907054 
007055 
007086 
007057 
907060 
907061 


442002 
777775 
342005 
040010 
#20010 
403245 
220010 
105245 
623243 


007062 


01305423 


11980 
11990 
12000 
12010 
12020 
12030 
12040 
42050 
42060 
42070 
12080 
42090 
12100 
12110 
12120 
421350 
42140 
42150 
12160 
42170 
42180 
42190 
42200 
42210 
42220 
42230 
12240 
42250 
42260 
42270 
12280 
42290 
42300 
42310 
42320 


12350 
12340 
12350 
12360 
12370 
12380 
42390 
12400 
412410 
12420 
12450 
12440 
12450 
12460 


SEAES 


SEAE2 
M4 


SYM2 


SyM4 


* *¢ ¢ & 


PDPO TIME=SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


JMS 
Lac 
SZA 
JMP 
LAG 
XQOR 
ocr 
RET 


Lai 
FAD 
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MTSS DEBUGGER -- QUTPUT SUBROUTINES 


PBSCH 
TEMP4 


SEAE2 
TEMPO 
(640000) 


SMOD,X. 


1 
TEMPS,X 


TEMPO 
(640000) 
TEMP4 


M4 
LIMIT 
SEAES 


SYM4 
TEMP4 


SMOD,X 
SPLUS 
TSTTYOY 
TEMp4 
DMOD 
SMOD,X 


SYM4 
SAVE,ON 


TEMPO 


SEARCH FOR THE CODE WITH THE LARGEST NUMBER OF COMMON BITS 
LOAD THE NUMBER OF COMMON BITS 

SKIP IF THERE WERE NONE 

ELSE CHECK TWE FIT 

RELOAD THE VALUE 

PUY THE OPCODE BACK 

PRINT IT 

AND EXIT 


LOAD THE YABLE VALWE 

NEGATE IT 

ADD THE ORIGINAL MICROCODE 

ADD YHE OPCODE 

SAVE THE SIGNED pIFFERENCE BETWEEN THEM 
GET SIGN AND MAGNITUDE 


NEGATE THE MAGNITUBE OF THE DIFFERENCE 
ADB THE ,LLOWsBLE DIFFERENCE 

SKIP [IF 17 {8 OK 

ELSE PRINT IT IN OCTAL 


PRINT THE BEST SYMBOL FOUND 
LOAD THE vake ta any IN VALUES 
SKIP_IF THERE {§ 

DON'T BOTHBR TO PRINT A ZERO 
LOAD A PLUS SIGN 

AND PRINT IT 

RELOAD THE VALUES DIFFERENCE 
PRINT IT IN DECIMAL 

EXIT 


PRINT THE BEST SYMBOL FOUND 


INITIALIZE THE FIRSTeCHARACTERePRINTED FLAG 
AMOUNT TO BACK UP FHE POINTER 

MOVE THE POINTER Back TO THE SYMBOL 

SANE THE POINTER 

LOAD THE FERST HALF -SYMBOL 

PRINT IT 

LOAD THE SECOND WALF «SYMBOL 

PRINY IT 


PRINT THE AC JIN SIXBIT (ACI6) ASCII, DELETENG LEADING BLANKS 
AND CHANGING OTHER BLANKS YO DOLLAR SIGNS {$§), 


ENTER 
PMC 


SAMOD 
SAVE,QN 


60 


DEBUG 


05/31/72 
D 


005245 


007062 
007063 
007064 


652000 
777775 
042001 


007065 


90/7065 
90/066 
007067 
907070 
007074 


641606 
741200 
607076 
$53350 
442002 


007072 


007072 


403503 


007073 


907073 
907074 
907075 


442001 
607065 
623245 


007076 


907076 
007077 
007100 
907101 
007102 
007103 


007104 


202002 
741200 
6070738 
773362 
142002 
607072 


§65760 


007105 


907105 
907106 
907107 
907140 


007141 
907142 
007143 
907144 
G07145 
007196 
907147 
007120 


202000 
313363 
553363 
606776 


213301 
042007 
042010 
202000 
513306 
gizog 
1333 
042091 


007121 


907121 
007122 
907123 
007124 
007125 
007126 
007127 
907130 
907131 


105302 
202004 
744200 
607146 
4105243 
222008 
242000 
242007 
744200 


01405323 


12470 
42480 
12490 
12500 
12510 
12520 
125350 
42540 
42550 
42560 
12570 
42580 
12590 
12600 
12610 
12620 
126350 
42640 
12650 
12660 
12670 
12680 
12690 
12700 
42740 
42720 
427350 
42740 
12750 
42760 
42770 
42780 
42790 
42600 
42810 
12620 
428350 
42840 
42850 
42860 
42870 
426880 
12890 
42900 
12910 
12920 
42930 
42940 
12950 
42960 
12970 


SAMQD 


SAM2 


SAM6 


SAMB 


SAM4 


QPRS 
SOPR 


OPR2 
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eee 
MQ 
LAW 
DAC 
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MYSS DEBUGGER -- QUTPUT SUBROUTINES 


“3 
TEMP 


EAECLAILLS 6 


SNA 
JMP 
TaD 
INX 


ees 


JMs 


SAM4 
(240) 
TEMP2 


TSTTYOT 


TEMP1 
SAM2 
SAMOQD,X 


TEMP2 


SAM8 
(SDOLLAR) 
TEMP2 
SAM6 


eNOPe 


TEMPO 
(LAW) 
(LAW) 
SLAW 


(740000) 
TEMP7 
TEMPS 
TEMPO 
(037777) 
TEMP9 
(001000) 
TEMPS 


Pa@SCH 
TEMP4 


OPR6 
SYM4 
TEMPS, X 
TEMPO 
TEMP7 


SAVE THE VALVE TO BE PRINTED 
LOAD THE CHARACTER COUNT 
AND SET [Tf 


GEY THE NEXT CHARACTER 

SKIP JF NON-BLANK 

ELSE TAKE APPROPRIATE ACTION 
MAKE INTO ASCI? 

COUNT THE PRINTED CHARACTERS 


PRINT THE CHARACTER 


COUNT THE CHARACTERS IN THIS WORD 
LOOP TO PRINT THE NEXT CHARACTER 
ELSE DONE += EXIT 


LOAD THE FIRST*CHARACTER-PRINTED FLAG 

SKIP JF THERE WAS BEEN A CHARACTER PRINTED 
ELSE DON'T PRINT TAIS ONE 

YES ~~ REPLACE THE BLANK WITH A DOLLAR SIQN (§) 
AND SUPPRESS PRINTING FURTHER BLANKS 

PRINT THE ROLLAR SIGN 


PRINT A STRING OF OPERATE INSTRUCTION MICROCODES 

LOAD THE VALUE 

RETAIN THE OPCODE PLUS THE LaW BIT IF PRESENT 

CHECK THE LAW BIT 

YES w- LaW INSTRUCTIONS aRE DIFFERENT FROM THE REST OF THE OPER,TE GROUP 


SET THE OP CODE 

SET THE MASK FOR TAE OP CODE TABLE SEARCH 
LOAD THE VALVE 70 BATCH 

GET RID OF THE OP Sue 

Set JUST THE MICROCOD 

RECOVER THE INVERTED. SKIP BI? 

AND SAVE IT 


SEARCH THE PERMANENT SYMBOL TABLE FOR THE OPR INST W/LGST # OF COMMON BITS 
LOAD THE NUMBER OF COMMON BITS 

SKIP IF THERE ARE ANY 

ELSE PRINT THE NUMERICAL DIFFERENCE 

PRINT THE BEST MATCH FOUND 

LOAD THE TABLE VALWE OF THE "MATCH" 

GET RID OF THE MICROCODE yuST PRINTED 

GET RID OF THE OPCODE 

SKIP UNLESS DONE 


DEBUG 


D 


625241 
042000 
513364 
741200 
607143 
202000 
543365 
242041 
042000 


00/132 
007133 
90/134 
907435 
§07136 
007137 
907140 
007144 
007142 


007143 
907143 760241 
007144 105503 
907145 607121 


207104 
4035223 
623241 


907146 
007147 
007150 


007151 615764 
007152 
007182 4142041 
907453 213366 
907454 042010 
907155 502000 
007156 042007 
007157 202000 
00/160 513306 
907161 042000 
907162 105247 
007163 
007163 202011 
907164 740200 
007165 607176 
007166 202000 
907167 741200 
007170 607173 
007171 253324 
007172 607201 
007173 
00/173 207151 
807174 103223 
997175 623241 


007176 
007176 760253 


05/31/72 


01503823 


12980 
12990 
13000 
435030 
135020 
130350 
43040 
43050 
13060 
43070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
43170 
13180 
43190 
43200 
43240 
43220 
43250 
435240 
43250 
43260 
43270 
43260 
43290 
415300 
43340 
43320 
43330 
13340 
135350 
13360 
43370 
13380 
43390 
13400 
13410 
15420 
134350 
13440 
13450 
13460 
43470 
13480 
13490 


OPR1 


OPR6 


ee 8&6 & & 


S]OTS 
SOT 


SIoT4 


S}]OTS. 


SJOT6 
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MTSs DEBUGGER -~ OUTPUT SUBROUTINES 


SMOD>»X 
TEMPO 
(000700) 


OPR4 
TEMPO 
(776777) 
TEMPO 
TEMPO 


SEXCLAM 
TSTTyOT 
OPR? 


OPRB 
AMOD 
SMOD.X 


IN WHICH CASE EXIT 
SE? THE REDUCED MICROCODE 

RECOVER ANY REMAINENG SKIP BITS 

SKIP UNLESS THERE ARE NONE 

IN WHICH CASE THE MICROCODE IS CORRECT 

STILL HAVE SKIP BITS, SO RELOAD THE MICROCODE 
GET RJD OF ANY INVERTED SKIP BIT 

PUT YWE PROPER INVERTED SKIP BIT IN 

RESTORE THE MICROCODE 


LOAD AN EXCLAMATION MARK FOR THE MICROCODING INDICATION 
AND PRINT IT 
DO THE REMAINDER OF THE CODE 


LOAD THE MNEMONIC 
PRINT JT 
EXIT 


DECQDE THE JOT INSTRUCTION AND PRINT IT aS a STRING OF MICROCODES 


PLUS ANY QCTAL OFFSET, 


1OT*<OFFSET>, 
sACI6 «= - oS 0T® 
ee ¢ 

DZM TEMPS 
Lac (777760) 
pac TEMPS 
AND TEMPO 
pac TEMP? 
Lac TEMPO 
AND (937777) 
pac TEMPO 
JMS S10T2 
La TEMPS 
SZA 
Jue SJ0T6 
Lag TEMPO 
SNA 

JMP S1OT3 
KOR (700000) 
JMP S077 
eee 

LAC $1OT8 
JMS AMOD 

RET SMOD,X 
e*¢ 

AW SPLUS 


UNRECOGNIZED DEVICES WILL BE PRINTED aS 


CLEAR THE CODE PRINTED FLAG 
SET THE OP CODE REVAINING MABK 


SET THE OP CODG FOR THE TABLE SEARCH 
LOAD THE VALUE 

GE’ RID OF THE OP AND DEVICE cODES 
SAVE THE MICROCODE 

PRINT THE INSTRUETEON aS a MICRO-CODED STRING 
no MATCH FoUyp FoR THE REMAINING CODE 
LOAD THE CODE PRINTED FLAG 

SKIP IF NO COPE MAS YET BEEN PRINTED 
ELSE PRINT THE OFFSET 

LOAD THE UNACCOUNTED FOR BITS 

SKIP IF THERE ARE ANY 

ELBE PRINT THE [OT MNEMONIC 

RESTORE THE OF CODE 

PRINT JT 


LOAD THE [OT MNEMOMIC 
PRINT THE OP CODE 
EXIT 


PRINT ANY REMAINING OFFSET 
LOAD A PLUS SIGN 
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DEBUG 


007177 
90/200 


007 
907203 


05/31/72 
D 


405503 
202000 


201 
625241 


007204 


003247 


007204 
907205 
007206 
007207 
007240 
007241 
907242 
90/243 
907294 
007245 
007246 
907247 
907220 
007204 
007222 
007223 
907224 


907225 
907226 


007227 
907230 
907231 
007232 
00/7233 
007234 
007235 
00/7236 

00/287 
ery 
007241 
09/242 
007243 
00/7244 
007245 
007246 


403302 
202004 
744200 
623247 
2020414 
741200 
607245 
760244 
4035038 
442011 
403243 
202007 
$43301 
242000 
262008 
744200 
623241 


042000 
603250 


434454 
444443 
525563 
447255 
5444 43 
795762 
444444 
644444 
794364 
546372 
455644 
634444 
925569 
607904 
607152 
607105 


01703323 


135500 
13510 
45520 
13530 
13540 
13550 
13560 


43570 
13580 
43590 
43600 
43610 
13620 
435630 
45640 
13650 
13660 
13670 
15680 
43690 
43700 
13710 
43720 
13730 
43740 
13750 
43760 
43770 
43780 
43790 
13800 
13810 
43820 
45859 
45849 
43859 
43860 
45879 
45889 
1589p 
15990 
15910 
15920 
43930 
13940 


S]OT7 


S]0T2 


S$lo1T5 


OPTAB 


PDPO TIME~SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


JMS 
Lac 
ocTZ 
RET 


ENTER 
~PMC 
pe 
JMS 
LAG 
SNA 
RET 
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T$TTYoOT 
TEMPO 


SMOD,X 


S1OT2 
SAVE,ON 


PBSCH 
TEMP4 


SJOT2,x 
TEMPS 


S}OTS 
SEXCLAM 
TSTTYOT 
TEMp9 
SYM4 
TEMP7 
(740000) 
TEMPO 
TEMP3,X 


SMOD,X 


TEMPO 
SJOT2 64 


*CAL? 
*DACe 
*JMSe 
*DZMe 
tLace 
*XOR* 
*ADDe 
*TAD? 
*XCTe 
*¢1S$Ze 
*ANDe 
*SADe 
* IMP eo 
SEAE 

SJOT 

SOPR 


PRINT IT 
LOAD THE REMAINING UNMATCHED CODE 
PRINT IT IS ZEROeSWPPRESSED OCTAL 
EXIT ; 


PRINT A STRING OF MICROCODES AND EXIT WHEN NO MORE MATCH CAN Be FOUND 


SEARCH THE PERMANENT SYMBOL TABLE FOR THE INST W/LGST # OF COMMON BITS 
LOAD THE NUMBER OF MATCHING BITS 
SKIP JF THERE ARE SOME 
ELSE EXIT 
SE& IF THERE HAS ALREADY BEEN A PIECE OF CODE PRINTED 
SKIP IF SO 
ELSE DON+T PRINT AM EXCLAMATION POINT 
LOAD AN EXCLAMATION POINT FOR THE MICROCCDING INDICATOR 
PRINT IT 
UNT THE PRINTED CoDE 
PRINT THE BEST MATCH FOUND 
LOAD THE QLD OPCODE a DEVICE NUMBER 
RECOVER YUST THE OP CODE 
INCLUDE THE LATEST SEARCHED-FOR BITS 
GET RID OF THE MICROC CODE JUST PRINTED 
SKIP UNLESS DQNE 
IN WHICH CASE, EXIT 


SET THE REDUCED MICROCODE 
{TERATE 


TABLE OF PBP-9 OPCODES 


DEBUG 


05/31/72 


D 


007247 


005254 


90/267 
907260 
907251 
907262 
9072853 
007254 
907255 
(07256 
907287 
907260 
007261 


007262 
907263 


$42000 
442006 
767456 
042002 
442010 
103260 
607432 
442006 
202007 
744200 
607264 


105266 
607302 


01405323 


13950 
13960 
13970 
13980 
43990 
44000 
44010 
44020 
44030 
44040 
44050 
44060 
44070 
44080 
44090 
14100 
44110 
44120 
44150 
44140 
44150 
44160 
44170 
44180 
44190 
44200 
44210 
414220 
44230 
44240 
14250 


44260 
44270 
44260 
44290 
44300 
44340 
44320 
44330 
44340 
44350 
44360 
44370 
£4380 
14390 
14400 
14410 
14420 
14430 
44440 


*ecs @eh&eeve_esve vpesxsrseweeaesxeeness © se && & & 8 


INVAL 


INV2 


** 28 & 


* * 
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MYSS DEBUGGER -- INVAL SUBROUTINE 
,STITL MTSS DEBUGGER -- INVAL SUBROUTINE 


INVAL EVALUATES THE NEXT EXPRESSION THE USER WAS TYPED, 
RETURN {S$ #1 IF TWERE IS NONE 


#2 IF TWE EKPRESSION IS erurece es EVALUATED 
FORMAT ERROR MESSAGE OTHERNW? 


TEMPORARY VARIABLE USAGE IS: 
TEMPQ + ACCMULATED VALUE 
TEMP, +» LATEST TERM VALUE OR HEAD SYMBOL 
TEMP2 == OPBRATOR SWIYCH 
TEMPS -~ TELETYPE BUFFER POINTER TO START OF CURRENT WORD 
TEMP4 ~~ WORD COUNT AT THE START OF THE CURRENT WORD 
TEMPS e= DELIMITER aT THE START OF THE CURRENT WORD 
TEMP6 == FLAG FOR VaLVE HAS BEEN RECEEVED (NEED FOR PC SIGN) 
TEMP7 == ay FOR OP COBE INPUT ALLOWED (PERMANENT SYMBOL TABLE WILL BE CHECKED) 
20 FOR OP GODE INPUT NOT ALLOWED (PERMANENT SYMBOL TABLE WILL NOT BE CHECKED) 
TEMP@ em FLAG THAT a PREVIOUS VALUE WAS FROM THE PERMANENT SYMBOL TABLE 
TEMP9 »- USED BY THE SYMBOL PICK-UP ROUTINE 
TEMPZ0 ~~ USED BY TWE SYMBOL PICK-UP ROUTINE 


A SPACE IS A DELIMITER FOR THE VALUE UNLESS THE WORD IT 1S DELIMITING IS AN 
OP CODE AND THE NEXT WorRD JS NOT AN OP CODE, IN THAT CASE IT {$8 AN 
IMPLIED PLUS, 


A COMMA IS A DELIMITER FOR THE VALVE UNLESS IT 18 FOLLOWED BY EITHER 
XCDELIMITER> OR ICDELIMITER>, IN THAT CASE THE COMMA X OR COMMA I 18 
REPLACED BY <EXCLAMATION PT>920000, 


ENTER INVAL 
,PMC SAVE,ON 


DZ TEMPO TALIZE THE ACCWMULATED VALUE 

nZM TEMPS TALIZE THE VALWE RECEIVED FLAG 

Law INPLU 

pac TEMP2 INITIALIZE THE OPERATOR SWITcH TO PLUS 

p2ZM TEMPS INITIALIZE THE PREVIOUS VALUE FLAG 

umMS SYMBOL BUILD THE ASSUMED SYMBOLIC INPUT 

Jp INULL NO INPUT AVAILABLE ~~ REQUIRES FURTHER CHECKS 
J NX TEMP6 FLAG A NONeNULL SYMBOL 

Lac TEMP7 LOAD THE OP CODES FLAG 

SNA SKIP IF THEY ARE ALLOWED 

ump INV3 ELSE DO NOT CHECK TWE PERMANENT SYMBOL TABLE 


SEARCH ONE OR BOTH SyMB0L YaBLES FOR THE SymBOL wE WAVE BUILT, RETURN 
WITH THE SYMBOL VALUE IN TEMP1, 


JMS PSRCH SEARCH THE PERMANENT SYMBOL TABLE 
JMP INV6 SUCCESS -- FURTHER CHECKS NEEDED 


THE SYMBOL IS NOT FROM TWE PERMANENT SYMBOL TABLE 


DEBUG 


05/31/72 


D 


007264 


00/264 
00/265 
007266 
00/267 
00/270 
007274 
007272 
007273 


202010 
740200 
607274 
202002 
553367 
607345 
553370 
607313 


007274 


007274 
007295 


007276 
0072977 
0073p0 
007301 


49327 
200 
202002 
553370 
697534 
607325 


007302 


007302 
007303 
907304 
007305 
907306 
907307 
807340 
907341 
007342 
907343 
007344 
907345 
907346 
907347 
007320 
0o73e1 
007322 
907393 
907324 


442007 
042001 
202010 
754201 
607322 
202002 
653367 
741000 
607322 
202003 
043451 
202004 
043456 
202005 
043485 
607365 
042040 
202001 
622002 


007325 


907325 
907326 
007397 
007330 
00733141 
907332 


202003 
043454 
202004 
043456 
202005 
043455 


0073935 


907334 
907385 
907336 


742000 
622002 
#02010 


019505825 


14450 
44460 
14470 
414480 
414490 
44500 
445140 
44530 
44540 
44550 
44560 
14570 
14580 
44590 
14690 
44610 
44620 
44630 
44640 
44650 
44660 
44670 
14680 
44690 
44700 
44710 
44720 
14730 
44740 
44750 
44760 
44770 
44780 
44790 
44800 
14810 
14820 
44830 
44840 
£4850 
£4860 
14870 
44880 
44890 
14900 
14910 
14920 
449350 
44940 
44950 
44960 


INV3 


INVS 


INV6 


INV62 
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MTSS DEBUGGER -- INVAL SUBROUTINE 


LOAD THE PREVIOUS SYMBOL TYPE 

SKIP IF IT WAS NOT FROM THE PERMANENT SYMBOL TABLE 
ELSE WE ARE O,K, 

1F SO, LOAD THE OLO DELIMITER 


OLD DERIMJTER WAS & SPACE -» BACK THE POINTERS AND EXIT 
OLD DELIMITER WAS & COMMA -~ BACK THE POINTERS AND EXIT 


NOW SEARCH THE USER SYMBOL TABLE CIF ANY? 
SUCCESS ~~ DQ THE INDICATED OPERATION 
FAILURE -- LOAD THE BRANCH CONTROL 

CHECK FOR A PREV{QUS COMMA 

{Ff §0, HANDLE IT 

ELSE SEE JF JT WAS a NUMBER 


FLAG NO MORE OP CODES ALLOWED 

SAVE THE VALUE 

LOAD THE PREVIOUS VALUE FLAG 

SKIP JF THE PREVIOWS VALUE WAS A PERMANENT SYMBOL 
ELSE WE ARE O.K, 

LOAD THE BRANCH CONTROL 

BEE JF THE PREVIOUS DELIMITER WaS a SPact 

1F $0, FORGET THIS SYMBOL AND EXIT 

IF NOT) THIS SYmBQL 1S 0.K, 


RESTORE THE TELETYPE BUFFER POINTER 
RESTORE THE PREVIQUS WORD COUNT 


RESTORE THE PREVIOUS DELIMITER 
EXIT THIS ROUTINE 


65 


SET THE FLAG THAT THIS VALUE IS FROM THE PERMANENT SYMBOL TABLE 


RELOAD THE VALUE FOUND 
DO THE OPERATION 


SYMBOL IS UNRECOGNIZABLE ~~ MAYBE IT [8 A NUMBER 


Lac TEMPS 

SZA 

JUMP INV4 

Lac TEMP2 

SaD (LAW INSPA) 
JMP INV62 

$aD (LAW INCOM) 
JUMP INV62 

peg 

JmMs USRCH 

JMP TEMP2,X 
Lac TEMP2 

SAD (LAW INCOM) 
JMP INCOM 

JMP INV3ZO 

ere 

pZM TEMP? 

pac TEMP1 

LAG TEMPS 
SNAICLA!CMA 

JMP INV61. 

Lac TEMP2 

$aP (LAW INSPa) 
KP . 
JMP INV64 

LAC TEMPS 

pac TSBPTR 

Lae TEMP 4 

DAC TSCOUNT 
Lac TEMPS 

DAS TSDLMTR 
JMP INV49 

DAG TEMPS 

LAG TEMPS 

JMP TEMP2,X 
THE 

ee | 

Lag TEMP3 

Dac TSBPTR 

Lac TEMP4 

DAC TSCOUNT 
Lac TEMP5 

Dae TSDLMTR 
NUM 

8KP 

JMP TEMP2,X 
Lac TEMPS 


BACK UP TQ THE START OF THE LAST WORD 
RELOAD THE LATEST COUNT 
AND BACK IT UP TO THE PREVIOUS WORD 


RESTORE THE PREVJOWS DELIMITER 

ANB TRY READING THE INPUT AS aA NUMBER 
FAILURE -- INPUT IS NOT RECOGNIZABLE 
DO THE OPERATION 


DEBUG 05/31/72 01503323 PDP9 TIME=SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PaGE 66 


D MTS§ DEBUGGER -- INVAL SUBROUTINE 
007337 744200 14970 SNA 
007340 613165 4£4980 umP MSG87 FRULY AN ILLEGAL S¥MBOL 
PO7341 607343 ane JMP INV62 ELSE EXIT NORMALLY AFTER BACKING THE POINTERS 
4500 * 
45010 * ; 
45020 * NOW THE OPERATION IS DONE ~= CHECK WHETHER OR 
45030 * NOT THERE ARE MORE TERMS TO COME 
45040 ® 
007342 45060 DELIM LOAD THE DELIMITER 
007343 553371 45070 SAD (SEXCLAM) (hy 
907344 607405 45080 MP INV34 
007345 553372 45090 Sad (SAMPREN) (é) 
907346 607407 45100 JMP InV32 
907347 $53373 45110 SAD ($STAR) (*) 
EEL, 607441 15120 JMP INVSS3 
07381 553374 45130 SAD (SPLUS) (+) 
Oo7382 607443 45440 JMP INV34 
007353 553375 45150 sad (SMINUS) (-) 
907384 607445 45160 JMP IyV¥38 
907355 353376 45170 $aD ($8L ASH) (/)? 
007356 607423 45180 Je INV36 
907357 $53377 45190 Sad (SBSLASH) (\) 
007360 607423 415200 JMP IyV¥37 
907361 553380 4152140 SAD (SSPACE) t) 
007362 607425 45220 UMP INV38 
907363 85340 15230 SAD (SCOMMA) (>) 
907364 607427 45240 JMP INV3B4 
45250 r 
45260 = Tig DELIMITER IS NOT AN OPERATOR, RELOAD THe VALUG AND EXIT 
45270 0 
907365 202050 452860 %IJNV49 Lat INDIR LOAD THE INDIRECT FLAG 
907366 740200 15290 $ZA SKIP IF NO INDIRECTION WHaS BEEN INDICATED 
007367 607375 45300 JMP INV48 
007370 202006 15310 Lac TEMP6 LOAD THE VALUE RECEIVED FLAG 
907371 740200 15320 8ZA SKIP JF NONE HAS BBEN RECEIVED 
007372 4432351 15330 TNX INVAL ELSE BUMP THE RETURN TO INDICATE SUCCESS 
007373 202000 15340 Lac TEMPO RELOAD THE ACCUMULATED VALUE 
007374 623254 45350 RET INVAL ,% AND EX]T 
45360 
007375 45370 INV4B 9 yoy 
007395 777777 95360 LAW “4 
0073976 342050 15390 Fad INDIR COUNT THE INDJREGT LEVEL DOWN 
907377 042050 15400 Dac INDIR 
007400 202000 15410 Lac TEMPO LOAD THE ABDRESS FOR TWE INDIRECTION 
607401 £03312 15420 JMS Loca? FIND IT IN THE OPEN FILE 
007402 #222162 15430 Lac BPTR,X LOAD THE INDIRECT WORD 
907403 042000 45440 pac TEMPO SEY THE NEW VALUE 
007404 607365 45450 JMP INV49 FINISH UP AND EX{!T 
15460 
907405 767522 45470 INV34 = aw INTIOR LOGICAL OR 


907406 607430 15460 JMP INV39 


DEBUG 


00/407 
007440 
007441 
907442 
907443 
007444 
007445 
007446 
007447 
007420 
007421 
007422 
007423 
007424 
007425 
007426 
007427 


007430 
007431 


05/31/72 
D 


767516 
607430 
767465 
607430 
767456 
607430 
767462 
542002 
607413 
607430 
767474 
607430 
767520 
607430 
767461 
607439 
7675381 


042002 
607254 


007432 


907482 
907433 
007434 


202009 
550325 
607443 


007435 


907436 
907437 
907440 


007441 
907442 


350316 
744000 
607342 


442050 
607254 


007443 


907443 
907444 
007445 
007446 
007447 
007450 
007451 
007452 


442006 


01705123 


45490 
15500 
15510 
15520 
15530 
45540 
15550 
45560 
45570 
45580 
45590 
45600 
15610 
15620 
15630 
415640 
45650 
15660 
15670 
15680 
45690 
15700 
45710 
15720 
45730 
45740 
45750 
45769 
45770 
45780 
15790 
45800 
45810 
45820 
458350 
45840 
45850 
45860 
45870 
45880 
45890 
45900 
45910 
15920 
15930 
45940 
45950 
45960 
45970 
45980 
45990 
416000 


INV32 
INV3S 
INV34 
INV35 


INV36 
INV37 
INV38 
INV384 
INy39 


NULL 
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MTSS DEBUGGER -- [NVAL SUBROUTINE 


LAW INAND LOGICAL AND 

JMP INV39 

LAW INMUL, MULTIPLICATION 

JMP INV39 

LAW INPLU ADDITION 

JMP INVS9 

Law INMIN LOAD THE SUBTRACT? SWITCH 

Sad TEMP2 CHECK THE OLD SWITCH FOR ALSO SUBTRACTION 

JMP INV34 YES, AND TWO MINUSES MAKE A PLUS 

JMP INV39 NO. SO SET UP THE SUBTRACTION 

LAW INDIV DIVISION 

JMP INV39 

Law INXOR LOGICAL EXCLUSIVE OR 

JMP INV39 

Law INSPA SPACE MAY TERMINATE THE VALUE OR MAY BE “OPCODE> <ADDRESS> 
JMP INVS9 

Law INCOM COMMA MAY TERMINATE THE VaLUE OR INDICATE INDIRECT aDDRESSING 
DAC TEMP2 SEY THE NEW OPERATOR SwITCH 

JMP INV2 GET THE NEXT TERM 


THE FIRST WORD OF INPUT 1S A NULL, IF THE DELIMITER 1S A DOLLAR SIGN ($) 
THEN A SYMBOL FOLLOWS, IF IT IS AN INDIRECT SIGN, THEN INDIRECT 
ADDRESSING 18 BEING REQUESTED, OTHERWISE I¥ IS TRUE NULL INPUT, 


ac TEMPS GEY THE DELIMITER 

aD PCSGN CHECK FOR THE CURRENT PROGRAM COUNTER SIGN 
JMP INPC YES -~ GO SET {T WP 
DELIM GE? THE LAST DELIMITER 
$aD INDSN CHECK FOR AN INDIRECT ADDRESS REQUEST 
8KP 

JMP INV45 NOW CHECK FOR A LOGICAL OR ARITHMETIC OPERATOR 


INDIRECT ADDRESSING WAS BEEN REQUESTED 


1NX INDIR FLAG THE REQUEST FOR INDIRECTION 
JMP INVQ AND GET THE NEXT WORD 


USE THE CYRRENT VALUE OF THE PC, TERMINATED BY AN IMPLIED PLUS SIGN 


{NX TEMP6 FLAG THERE HAS BEEN aT LEASY ONE COMMAND COMPLETED 
ac TEMP2 LOAD THE BRANCH GONTROL 
AD (LAW INSPA) CWECK FOR PREVIOUS DELIMITER WAS A SPACE 
JMP INPC4 YES -=- BACK UP TWE POINTERS AND GXIT 
SAD (LAW INCOM) CHECK FOR A COMMA 
JMP INPCd YES -- BACK UP THE POINTERS AND EXIT 
Lae PC LOAD THE PE TO USE aS THE VALUE 
JMP TEMP2,X AND INCLUDE IT IN THE CALCULATIONS 


DEBUG 


05/31/72 
D 


007453 


007454 
007455 


042005 
607343 


01703323 
416010 INPCL 
16020 
16050 


PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 
MTSS DEBUGGER -- INVA SUBROUTINE 
DEI, IM GET THE REAL DELIMETER 


DAC TEMPS AND SET {T FOR RESTORATION 
JMP INV62 BACK UP THE POINTERS AND EXIT 


PAGE 


68 


DEBUG 


D 


007456 
80/456 342000 
007457 042000 
007460 607342 


007461 
007461 607456 


007462 
? 


007462 
907464 607456 


007465 
907465 652000 
907466 213401 
007467 103253 
907470 744400 


007471 
007471 652000 
007472 215402 
907473 103253 
007474 741100 


007475 


003253 
007475 043255 
907476 202000 
907477 741100 
007500 353332 
907504 042000 
907502 641002 
907503 74141100 
907504 353332 
907505 664000 
007506 043256 
007507 202000 
807540 $03255 

003255 
905255 740040 


05/31/72 


01°03323 


16040 
16050 
16060 
16070 
16080 
16090 
16100 
46110 
16120 
16150 
16140 
16150 
46160 
16170 
16180 
16190 
16200 
46210 
16220 
16250 
46240 
16250 
46260 
16270 
46280 
16290 
46300 
463410 
16320 
16330 
16340 
16350 
16360 
16370 
16360 
46390 


16400 
16410 
16420 
46430 
46440 
16450 
16460 
16470 
46480 
46490 
46590 
16510 
46520 
46530 


soe & & 


INPLU 
TNPL2 


INSPA 


TNMIN 


INMUL 


INDIV 


MULDIV 
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LOGICAL AND ARITHMETIC OPERATIONS SECTION 
COMBINE THE AC WITH TEMPO, STORE THE RESULT IN TEMPO, AND RETURN TO THE MAIN ROUTINE 


TEMPO 
TEMPO 
INV45 


INPLU 


INPLU 


(MULS) 
MULDIV 


CIDIVS) 
MULDIV 


MULDIV 
SAVE,ON 


MD4 
TEMPO 


IMPURE 


TEMPO t= TEMPO + AC 


SPACE =- TEMPO tm TEMPO + AC 


TEMPO t= TEMPQ - AC 
NEGATE THE AC 
THEN JS SAME AS ADBITION 


TEMPO t= TEMPO # AC 

SEY THE MyhTIPLICAND 

LOAD A MULTIPLY INSTRUCTION 

DO THE MULTIPLICATION 

MULTIPLY TEST FOR & NEED TO apJUST THE ONE!S COMPLEMENT ANSWER 


TEMPO f2 TEMPO/AC 

SEY THE DIVISOR 

LOAD A DIVIDE INSTRUCTION 

DO THE DIVISION 

DIVIDE TEST FOR a NEED TO aDYUST THE ONE'S COMPLEMENT ANSWER 


SET THE INSTRUCTION 
LOAD THE MULTIPLIER/DIVIDEND 


NERD TO ADJUST NEGATIVE NUMBERS TO BE ONE?18 COMPLEMENT 
RESTORE THE MULTIPLIER/DIVIDBND 

LOAD THE MULTIPLICEND/DIVISOR 

NERD TO ADJUST NEGATIVE NUMBERS TO BE ONE'S COMPLEMENT 
SET UP FOR THE OPERATION 

SET THE OPERAND 

DO THE OPERATION 


SET THE MULTIPLY/DIVIDE INSTRUCTION HERE 


DEBUG 05/31/72 01705423 PDP9 TIME-SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 70 


D MTSS DEBUGGER -~ INVAL SUBROUTINE 
005256 740040 16540 MD2 XX SET THE MULTIPLICAND/DIVISOR HERE 
005257 607511 16550 JMP MD4 RETURN TO PURE CODE 
007511 16560 ,USE PURE 
907541 16570 D4 ne 
907541 740040 16580 Ral MOVE THE SIGN OF TRE PRODUCT TO THE LINK 
907542 644002 16590 aca LOAD THE RESULT 
007543 423253 16600 xcT MULDIV.X TEST THE NEED TO ABYUST TO BE ONE'S COMPLEMENT 
00/7544 353331 16610 TaD (4) IF YESe MAKE THE ABJUSTMENT 
007545 607457 46620 JMP INPL2 SAVE THE RESULT gND EXIT 
16630 
16640 
007546 16650 INAND as TEMPO t= TEMPO (AND) AC 
007546 802000 16660 AND TEMPO DO THE AND 
007547 607457 46670 sme INPL2 SAVE THE RESULT AND EXIT 
16680 
46690 
007520 46700 INKOR (x4 TEMPO t= TEMPO (EXCLUSIVE OR) AC 
80/7520 242000 16710 xoR TEMPO 
907521 607457 16720 JMPOINPL2 . SAVE THE RESULT AND EXIT 
46730 
46740 
007522 46750 $$ INTOR ,, TEMPO t= TEMPO (INCLUSIVE OR) AC 
0075e2 042001 16760 pac TEMPS 
007523 740003 46770 CMA 
007524 502000 46780 AND TEMPO 
907595 242001 16790 KOR TEMPY 
907526 607457 46800 JMP INPL2 SAVE THE RESULT AND EXIT 
46810 
46820 


907527 000070 36830 COM sACT6 0¢ Xe 


807530 000051 16840 COMI ACI6 oe) Je 
007531 16850 INCOM, PREVOIVS DELIMITER WaS COMMA -~ TERMINATOR OR INDIRECT ADDRESSING? 
007531 203326 16860 tae TSWORDB LOAD THE UPPER HaLF OF THE SYMBOL 
907532 740200 16870 SZA SKIP IF THERE [S NONE 
007533 607343 416880 JMP INY6Q OOPS «= NOT INDIRECTION ~~ Back UP THE POINTERS AND BXIT 
007534 203327 46890 Lac TSWORDB oy LOAD THE LOWER WaLf OF TWE SYMBOL 
907535 847527 416900 SAD COMX 
807536 607542 46910 uMP INCM2 INDIRECT ADDRESSING 
007537 547530 416920 Sad COM] 
007540 607542 46930 UMP INCM2 INDIRECT ADDRESSING 
007541 607313 per JMP INV62 NO INDIRECT ADDRESSING -- BACK UP AND EXIT 
41695 
807542 213360 46960 INCM2 Lac (020000) LOAD THE INDIRECT? ADDRESS BI? 


907543 607522 16970 JMP INIOR AND PUT {7 IN THE WALUE 


DEBUG 


05/31/72 


D 


007544 


005260 


007544 
907545 
907546 
007547 


0075 
0075514 


007552 
007553 
007554 
007555 
007556 


90/557 
007560 
007561 
007562 
007563 
907564 
007565 
907566 
007567 


203454 
042003 
203456 
042004 


30 
042005 


777774 
042041 
4420142 
403477 
607640 


443260 
403475 
103501 
103262 
740000 
353403 
650634 
043326 
442011 


01*035%23 


16980 
46990 
47000 
47010 
47020 
17050 
17040 
47050 
47060 
47070 
47060 
17090 
47100 
47110 
417120 
17190 
47140 
47150 
17160 


47170 
47160 
47190 
47200 
47210 
47220 
47290 
47240 
47250 
17260 
47270 
47280 
17290 
47300 
47340 
47320 
473350 
47340 
47350 
47360 
47370 
47380 
47390 
47400 
47410 
47420 
47430 
47440 
47450 


174690 
47470 


xesteepeeenoce ees 6 € 


QOR 


SyMB3 


$¥M331 


ss 
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BUGGER -- SYMBOL PICKUP SUBROUTINE 


THIS SUBROUTINE EXAMINES THE INPUT STRING CHARACTER BY CHARACTER TO BUILD 
A LEGAL SYMBOL IN TSWORDB AND TSWORDB+4 IF POSSIBLE, EXITS ARE} 
*1 -> NULL INPUT -- FIRST CHARACTER [$ A NONWSPACE DELIMITER 
#2 -~ SYMBOL SUCCESSFULLY BUILT AND SYORED IN TSWORDB @ TSWORDB+1 
ELSE -- JLLEGAL SYMBOL ERROR MESSAGE 


TEMPORARY vARJABLE USAGE! 
TEMPS «= 
TEMP4 == 
TEMPQ = == 
TEMP10 ~~ 


OPDEF 


ENTER 
PMG 


642000 


SYMBOL 
SAVE,QN 


SAVE YTY BUFFER POINTER IN CaSE RESTORATION I8 LATER NEEDED 
SAVE WORD COUNT IN CASE LATER RESTORATION IS NEEDED 

NUMBER OF CHARACTERS IN THE MAIN PART OF THIS SYMBOL 

HEAD SYMBOL 


OR THE AC 70 THE MO 


FIRST SAVE THE TELETYPE BUFFER POINTERS 80 WE CAN BACK UP LATER IF NECESSARY 


TgBPTR 
TEMP3 


TSCOUNT 
TEMP 4 


TEMPS 


SET THE CHARACTER POINTER 
SAVE THE COUNT 
SAVE THE DELIMITER 


INITIALIZE THE INPUT, FHROMING AWAY LEADING BLANKS 


LAW 
Dac 
DZM 
JMS 
UMP 


~7 
TRMPO 
TEMP10 
TSINTIN 
SYMBy 


FIRST CHARACTER 


{NX 
JMS 
JMS 
JMS 
NOP 
FaD 
CLOYLLS 
Bac 
InXx 


SYMBoL 
TSFGET 


INSTIALIZE THE CHARACTER COUNT 

INSTIALIZE TO NO HEAD SYMBOL 

RETURN +4 WITH_A DELIMITER: ELSE +2 

INITIAL DELIMITER Special .. PERIOD AMBIGUOUS; DOLLaR SIGN HEAD SYMBOL 


BUMp THE RETURN FoR A NoN-VACUQUS SYMBoL 
GET THE FIRST CHARACTER 

IDENTIFY If 

ROUTINELY ANALYZG FHE DELIMITER 

LEVTERS AR@ NOT SPECIAL 

MAKE IT SIXBIT 

MOVE IT TO THE FIRST CHARACTER POSITION 
BavE [T 

CoUNT THE FIRST ELEMENT OF THE SYMBOL 


THE S&COND CHARACTER I8 ALSQ SPECIAL ~~ IF IT I$ A DglLLaAR SIGN ($) 


DEBUG 


907570 
007571 
007572 
907573 


007574 
00/595 
007576 
907597 
907600 


907601 
907602 
007603 
007604 
007605 
907606 
907607 
007640 


60/641 
0076432 
907643 
907644 
907645 
poréss 

07647 
90/620 


007621 
007622 
907623 
907624 


90/625 
607626 
00/627 
907630 
907631 


05/31/72 
D 


403475 
403504 
607674, 
740000 


442011 
353403 
669706 
243326 
043326 


103475 
4105504 
103262 
740000 
442041 
353403 
243326 
043326 


654000 
405264 
660714 
403264 
660706 
403264 
642000 
142012 


403475 
403501 
405262 
607624 


203326 
4420114 
745000 
607633 
640506 


04505123 


47480 
47490 
17500 
47510 
17520 
47530 
17540 
47550 
47560 
47570 
17580 
47590 
47600 
17610 
47620 
47630 
17640 
47650 
$7660 
47670 
17680 
17690 
47700 
417710 
47720 
47730 
47740 
47750 
47760 
47770 
47780 
47790 
47800 
17810 
47820 
47830 
417640 
47850 
17860 
47870 
47860 
47890 
47900 
47940 
47920 
47930 
47940 
47950 
47960 
47970 
47980 
47990 
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THE FIRST CHARACTER WAS a HEAD SYMBOL -= OTHERWISE THE FIRST CHARACTER 
WAS THE TRUE FIRST CHARACTER OF THE MAIN SyMBOL, 


JMS TSFGET GEy THE SECOND CWARACTER 

JMS TSCHRID IDENTIFY IT 

JMP SYMB2 DELIMITERS HERE REQUIRE SPECIAL ANALYSIS 
NOP LETTERS aR@ NOY SPECIAL 


THE SECOND CHARACTER IS EITHER A LETTER OR A DIGIT. THEREFORE THE 
PREVIQUS CHARACTER WAS NOT a HEAD SYMBOL, 


INX TEMPS COUNT THE SYMBOL EREMENT 

Tad (7240) CONVERT TO SIXBIT 

AL SS 6 MOVE THE CHARACTER TO THE SECOND CHARACTER POSITION 
XOR TSWORDS CONCATBNATE WITH TRE FIRST CHARACTER 

Dag TS$WORDB SAVE THEM 


GET THE THIRD CHARCTER AND STORE [3s THEN STORE THE FIRST HALF OF THE SYMBOL 


JMS TSFGET GET THE THIRD CHAREYER 

Jms TSCHRID IDENTIFY [fF 

JMs SYMB4 DO THE STANDARD DELIMITER ANALYSIS ON IT 

NOP LESTERS ARE NOT SPECIAL 

{NX TEMPO COUNT THE THIRD CHARACTER 

vad (=240) MAKE meee 

XOR TSWORDB ACCUMULATE IN THE ac WITH THE FIRST TWO CHARACTERS 
Dac TSWORDB SAVE THE FIRST HALF OF THE SYMBOL 


GET THE LOWER HALF OF TWE SYMBOL 


BABCLA!CLQ INIFIALIZG THE SECOND WALF ACCUMULATION 

JMS SYMB5 GET THE FOURTH SIXBIT CHARACTER IIN AC(42"47) 
ALSS 12, MONE IT TO THE FOURTW CHARACTER POSITION 

JMS SYMB5 SAVE JT AND GET THE NEXT CHARACTER 

ALSS 6 MOVE JT TO THE FIFTH CHARCTER POSITION 

Jms SYMB5 SAVE IT AND GET THE NEXT CHARACTER 

MQOR SAVE THE SIXTH CHARACTER 

D2M TEMP4Q THE HEAD SYMBOL IS CANCELLED DUE TO SJX OR MORE CHARS IN MAIN SYMBOL 
JMS TSFGET GET THE NEXT SYMBOL 

JMS TSCHRID IDENTIFY [T 

JMS SYMB4 DO THE STANDARD DELIMITER ANALYSIS 

JMP SYMB6 ELSE LOOP TO THROW AWAY THE CHARACTER 


THE SYMBOL IS COMPLETE ~~ RIGHT JUSTIFY IT AND RESTORE THE HBAD SYMBOL 


Lac TSWORDB LOAD THE HIGH-ORDER WALF OF THE SYMBOL 

1sZ TEMPS CHECK FOR JUSTIFICATION COMPLETE 

SKPICLL NO -- PROTECT THE SHIFT AND JUSTIFY BY ONE MORE CHARACTER 
JMP SYMB8 SYMBOL IS JUSTIFIED 


LRS 6 JUSTIFY BY ONE MORE CHARACTER 


DEBUG 


007632 


007633 
007634 
007635 
007636 
907637 


907640 
007641 
907642 

07644 
097645 
907646 


05/31/72 
D 
607626 


242912 
043326 
641002 
043327 
623260 


553404 
607647 
55336 
6,755 
583405 
69766 
62326 


007647 


907647 
007650 
007651 
907652 
907653 
007654 
907655 
007666 
ea 

07660 
907661 


042005 
403475 
403501 
623260 
740000 
777776 
343454 
049453 
607557 
777777 
607655 


007662 


005262 


907662 
007663 
907664 
907665 

07666 

07667 
807670 


907674 
907672 
007673 
907674 


007675 
907676 
907677 
007700 
007701 


559362 
613477 
959405 
623262 
§53404 
623262 
607685 


353362 
607675 
103262 
607574 


202012 
740200 
613177 
641002 
0420142 


01405423 


48000 
48040 
48020 
18030 
18040 
18050 
18060 
18070 
18080 
48090 
18100 
48110 
1812 

1813 

19140 
46150 
18160 
46170 
48180 
48190 
48200 
48210 
18220 
48290 
48240 
48250 
48260 
48270 
48260 
48290 
48300 
48310 


18320 
19330 
18340 
18350 
19360 
48370 
18380 
18390 
18400 
18440 
18420 
18430 
48440 
16430 
18460 
18470 
18480 
48490 


SyM38 


Syma 


SYMBi1 


SYMB44 


SY¥MB43 


SYMB4 


SYMB2 


SY¥MB21 
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JMP 


KQR 
Dac 
LACQ 
DAC 
RET 


$a0 
JMP 
§$aD 


ret 


eee 
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MTSS DEBLGGER -~ SYMBOL PICKUP SUBROUTINE 


SYMB714 


TEMP10 
TSWORDB 


TSWORDBei 
SYMBOL +X 


($PERTOD) 
SYMBi4 
(SDOLLAR) 
SYMB3 
(SSHARP) 
SYMB13 
SYMBOL. X 


TEMP5 
TSFGET 
TSCHRID 
SYMBOL, X 


SYMB14 


SYMB4 
SAVE,ON 


(SDOLLAR) 
MS$G68 
(SSHARP) 
SYMB4,X 
(SPERIOD) 
SYMB4, X 
SYMB7 


($DOLLAR) 
SYMB21 
SYMB4 
SYMB25 
TEMP1Q 
MSG88a8 


TEMP49 


SEE IF MORE JUSTIFICATION Ig NEEDED 


PUT ANY HEAD SYMBoL INTo THE SYMBoL 
STORE THE WPRPER WaALF SYMBOL 


STORE THE LOWER HALF OF THE SYMBOL 
EXIT 


FURTHER CHECKS NEEDED IF PERIOD WAS THE FIRST CHARACTER 
DOLLAR SIGN FOR THE FIRST SYMBOL MERELY DENOTES NO HEADSYMBOL 


SHARP SIGN 1S A NORMAL CHARACTER IN THE SYMBOL 
IMMEDIATE RETURN FOR NULL INPUT 


SAVE THE PERIOD 

GET YHE CHARACTER AFTER THE PERIOD 

IDENTIFY JT 

EXIT «= MEANS TQ USE THE PC 

LETTERS ARB NOT SPECIAL 

LOAD THE AMOUNT TO Back UP TO INCLUDE THE PERIOD IN THE SYMBOL 
ADB THE TELETYPE BUFFER POINTER 

STORE THE BACKEDeUP ROINTER 

PERIOD IS A LEGAL COMPONENT OF THE SYMBOL. 
eee AMOUNT TO BACK UP FOR A SHARP SIGN 
po | 


STANDARD DELIMITER ANALYSIS 


ILLEGAL MEAD SYMBOL ATTEMPT 

SHARP SIGN [9 A LEGAL SYMBOL COMPONENT 
PERTOD 18 & LEGAL SYMBOL COMPONENT 
ELSE THE SYMBOL HaS BEEN ComPLETED 


DOLLAR SIGN MEAN THE FIRSY CHARACTER WAS A HEAD SYMBOL 

ELSE DO NORMAL DEKIMI TER ANALYSIS 

RETURN 

LOAD THE PREVIOUS HEAD SYMBOL 

SKIP IF NONE 

BL8E a SECOND DOLLAR SIGN 1S aN ILLEGAL FEAD SYMBOL CONSTRUCTION 


SET THE VALIO HEAD SYMBOL 


DEBUG 05/31/72 04403323 PpP9 TIME-SHARING SYSTgM MONITOR aND MESSaSE ROUTINES PAGE 74 


D MYSS DEBUGGER -- SYMBOL PICKUP SUBNOUTINE 
90/702 777771 48500 LAW ~7 RELOAD THE CHARCTER COUNT 
907703 042011 418510 pac TEMPO ANB RSET IT 
907704 607587 48520 JMP SYMB3 GEY A NEW FIRST CHARACTER 
185350 
18540 
007705 18550 ENTER SyMB5 STORE THE PREv!OyS CHARACTER AND GET A NEw SIyBIT CHAR IN AC(12~-17) 
PMC SAVE,ON 
003264 SYMB5 oes 
007705 642000 18560 MQOR ACCUMULATE THE NEW cwARACTER IN THE MQ WITH TWE PREVIOUS ONES 
007706 403475 48570 JM8 TSFGET GET THE NEXT CHARACTER 
007707 403501 48580 ms TSCHRID IDENTIFY [f 
007740 103262 148590 JM8 SYMB4 ANALYZE a DELIMITER 
007741 740000 18600 NOP LETTERS aRE NOT SPECIAL 
807712 442041 18640 INX TEMPO COUNT THE CHARACTER 
007743 353403 18620 Fad (9240) MAKE JT ASCII 


907744 623264 18630 ref SYMBS, x 


DEBUG 


D 


007745 


005266 
9077495 773447 
007746 4105272 
007717 443266 
907720 623266 


0077281 


003270 
No7791 774564 
907722 41035272 
907723 443270 
007724 623270 


007785 


003272 
007725 040040 
007726 220040 
007727 042001 

007730 
007780 442004 
007731 741060 
007732 623272 
907733 220010 
907734 $43326 
£07735 741000 
907736 607743 
007787 220010 
007740 543327 
907741 807746 
907742 741000 


007743 440010 
£07744 440010 
907745 607730 


05/31/72 


017035423 


18640 
18650 
18660 
18670 
48680 
48690 
48700 
48710 
48720 


48730 
18740 
48750 
18760 
18770 
18780 
48790 


18800 
18810 
48820 
48830 
48840 
48850 
48860 
48870 
18860 
48890 
18900 


48910 
18920 
18930 
48940 
48950 
18960 
48970 
48980 
48990 
49000 
19040 
49020 
49030 
49040 
19050 
49060 
19070 
49080 
49090 


PSRCH 


USRCH 


a@aee2ses8 


IRCH 


SRC 


SRCH2 


PDP9 TIME~SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


SSTlth 


PAGE 
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MYSS DEBU3GER -~ SYMBOL TABLE LABEL gEARCH SUBROUTINES 


SEARCH THE INDICATED SyMBOL TABLE FOR THE LaBEL pASSED IN TSWORDB AND 
TSWORDB+1, RETURN TO THE CALLER #2 JF THE LABEL CANNOT 8& FOUND: 

#1 WITH TME VALUE IN THE AC IF IY IS FOUND 

YEMP4 1S USED AS & COUNTER 


PSRCH 
SAVE,QN 


SYMQ-4 
SRCH 
PSRCW 
PSRCW, X 


USRCH 
SAVE,QN 


SYM 1-4 
SRCKH 
USRCH 
USRCH,X 


SEARCH THE PERMANENT SyMBOL TaBL@ FOR A LABEL MATCH 


LOAD A POINTER TO FHE PERMANENT SYMBOL TABLE 
SEARCH IT: 

BUMP THE RETURN IF We FAILED TO FIND A MATCH 
EXIT 


SEARCH THE YSER SYMBOL TABLE FOR A LABEL MATCH 


LOAD A POINTER TO FHE USER SYMBOL TABLE 

AND SEARCH IT 

BUMP THE RETURN {F WE FAILED TO FIND A MATCH 
EX!T 


SEARCH THE SYMBOL TABLE BEGINNING AT al pOINTER paSSED IN THB ac 
o4 WITH THE VALUE IN THE a€ IF IY JS FOUND 
FOR FAILURE) RETURN «2 WITH THE VALUE IN TAE ac FOR SUCCESS, 


ENTER 
, PMC 
e¢¢ 
Dac 
LAC 
pac 
ere 
{SZ 
SKR 
RET 
Lac 
Sad 
SKP 
JMP 
Lac 
SAD 
JMP 
8KP 


1NX 
INX 
ATL 


SRCH 
SAVE,QN 


10 
10,x 
TEMPS 


TEMPS 


SRCW, X 
10.X 
TSWORDB 


SRCH2 
10.%X 
TSWORDB ot 
SRCH4 


10 
19 
SRCH1 


SET THE SYMBOL TABLE POINTER 
SET MINUS THE NUMBER OF SYMBOLS IN THIS TABLE 
DONE?? 


NO 

YES -- RETURN #1 FOR FAILURE 

LOAD THE FIRST HALF OF THE NEXT SYMBOL 
NO =~ TEST AGAINST TWE GIVEN SYMBOL 
GOOD MATCH ~~ KEEP ON YRYING 

NO MATCH -= TRY THE NEXT SYMBOL 

LOAD THE SECOND WAKF OF THE SYMBOL 

AND TEST IT 

EUREKA.., 


MOVE THE POINTER BY THE SECOND WALF OF THE SYMBOL 
MOVE THE POINTER BY THE VALUE 
LOOP 


75 


DEBUG 05/31/72 O1y¥0S5t23 PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 76 


D MTSS DEBUGGER -- SYMBOL TABLE LABEL SEARCH SUBROUTINES 
007746 49100 SRCHW4 oa 
007746 220010 19110 Lat 10-x LOAD THE VALVE OF THE FOUND SyMBOL 
007747 443272 19120 {NX SRCH BUMP TRE RETURN FOR SUCCESS 


007750 625272 19150 RET SRCH.X 
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D MYSS DEBUGGER -- SYMBOL TABLE VALYE SEARCH SUBROUTINES 
19140 »STITL MTSS DEBUGGER -- SYMBOL TABLE VALUE SEARCH SUBROUTINES 
19150 » 
49160 * 
007751 19170 ENTER  pVSCH SEARCH THE PERMANENT SY¥MBoL TABLE FoR THE CLOSEST MATCH To VALUE IN TEMpO 
POMC SAVE,QN 
_ 005274 PYSCH or 
Q07751 773447 419180 LAW SYMOQ~4 LOAD a POINTER TO THE PERMANENT SYMBOL TABLE 
907752 4103300 19190 JM3 VSRCH FIND THE CLOSEST MATCH IN THE PERMANENT TABLE 
007783 623274 419200 RET PVSCH,X 
49210 
19220 
007754 149230 ENTER UVSCH SEARCH THE USER SYMBOL TABLE FOR THE CLOSEST MATCH TO THE VALUE :N TEMPO 
, PMC SAVE,OQN 
003276 UVSCH ace 
007754 774564 19240 AW SYMi=4 LOAD A POINTER TO THE USER SYMBOL TABLE 
007755 £03300 19250 JMS VSRCH FIND THE CLOSEST MATCH IN THE USER TABLE 
007756 623276 19260 RET UVSCw)X 
49270 
19260 * 
19290 «6 SEARCH THE SYMBol TABLE WHOSE POINTER 1S paSSED IN THE AC FoR 
49300 «# THB CLOSEST MATCH TO TWE VALUG PASSED IN TEMRQO, RETURN WITH AUTOINDEX 
49310 * REGISTER 10 POINTING TO THE VALUE FOUND, 
19320 »® 
49330 *# TEMPORARY VARIJABLS USAGES 
49340 = =® TEMPQ == THE VALVE TQ BE MATCHED AS CLOSELY AS POSSIBLE 
19350 « TEMP2 «~ SYMBOL TABLE LENGTH COUNTER 
19360 * TEMPS w= POINTER TO THE BEST VALUE FOUND $0 FaR 
49370 84 TEMP4 -~ ABSOLUTE VALUE OF YHE DIFFERENCE BETWEEN THE VaLUE 
19360 =® SOUGHT AND THE VALUE FOUND 
149390 » 
007787 19400 ENTER VSRCH 
PMC SAVE,ON 
003300 VSRCH : 
07787 040040 19410 bac 10 SET THE POINTER TQ TWG SYMBOL TABLE TO SEARCH 
907760 220010 19420 Lac 10,X LOAD THE SYMBOL TABLE COUNT 
007761 042002 194350 pac TRMP2 SEY THE SYMBOL TABKE LENGTH 
907762 913344 19440 Lac (377777) LOAD A RIDICULOUS OFFSET 
007763 042004 49450 Dac TEMP4 ser ly 
007764 19460  V§R2 ate 
007764 442002 19470 {Sz TEMPO CHECK FOR DONE 
007765 744000 19480 SKP No? yer 
007766 623300 19490 RET VSRCH,X DONE == EXIT 
007767 440010 19500 INX 10 MOVE THE POINTER PAST THE FIRST HALF SYMBOL 
007770 440010 19510 NX 10 MOVE THE PO|NTER PAST THE SEGOND HALF SYMBOL 
007771 220080 19520 LAG 10.X LOAD YHE NEXT VALUE TO BE COMPARED 
007772 49530 NEG NeGaTe IT 
907774 $42000 19540 Tad TEMPO SUBTRACT JY FROM TAE DESIRED VALUE 
007775 664000 19550 Q3M GET SIGN AND MAGNIFUDE OF THE DIFFERENCE BETWEEN THE VALUES 
007776 652000 19560 LQ SAWE THE MAGNITUDE 
007777 19570 NEG NEGATE THE MAGNITUDE 
010001 342004 19566 vad TEMP4 ADD THE OLD BEST MAGNITUDE 


0190002 744100 19590 SPA 


DEBUG 


010003 
010004 
010005 
010006 
010007 
010090 
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607764 
200010 
042003 
641002 
042004 
607764 


014403323 


19600 
19610 
19620 
196506 
19640 
19650 
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MP 
Lac 
DAC 
Lacg 
Bac 
JMP 


MTSS DEBUGGER -- SYMBOL TABLE VALUE SEARCH SUBROUTINES 


VSR2 THE OLD ONE WAS BETTER -- KEBp IT AND LOOp 
10 

TEMPS THE NEW ONE IS BETTER -- RECORD ITS POINTER 
TEMP 4 RECORD ITS MAGNITUDE 


VSR2 LOOP 


PAGE 


78 
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D MTSS DEBUGGER -- SYMBOL TABLE BIT SEARCH SUBROUTINE 
19660 »STITL MTSS DEBUGGER -- SYMBOL TABLE BIT SEARCH SUBROUTINE 
19670 * 
19680 * 
19690 * SEARCH THE PERMANGNT SYMBOL TABLE FOR THE WALUE WHOSE BITS 
19700 « ARE THE LARGEST SUBSET OF THE BITS IN TEMPO, 
49710 # AND WHOSE MASKED AREA 1S IDENTICAL. 
19720 * 
19730 0 # TEMPORARY VARIABLE USAGE! 
19740 * TEMPQ ~~ THE VALVE WHOSE SITS ARE TO BE MATCHED aS CLOSELY aS POSSIBLE 
19750 TEMP1 -- SCRATCH 
19760 * TEMP2 ~~ TABLE LENGTH 
49770 «# TEMPS -- POINTER TQ THE BEST VALUE FOWND SO FaR 
49780 * TEMP4 -~- NUMBER QF MATCHING BITS IN THE BEST VALUE 
49790 = ® TEMP5 ~~ CURRENT VALUE BEING COMPARED 
49800 & TEMP6 *- SCRATCH 
19810 = ® TEMP7 =~ OF CODE FOR THE VALUE 
19820 =® TEMPg -- RETAINING MASK FOR YRE OP CODE FIELD 
49830 = 
010041 19840 ENTER pBSCH 
»PMC SAVE,ON 
003302 PBSCH nue 
910041 773447 49850 LAW SYMQ~4 
010042 0400140 19860 Bac 10 SET THE TABLE POINTER 
010043 220010 19870 LAG 10.X 
010044 042002 19880 pac TEMP2 SET TWE TABLE COUNT 
010045 142004 49890 DZM TEMPS INITIALIZE TO NO BETS MATCHED 
010046 49900  PeSe es CHECK THE NEXT LIS? ELEMENT FOR & BETTER MATCH 
010026 442002 419910 {$2 TEMP2 CHECK FOR BONE 
010047 744000 19920 SKF NO 
010020 623302 49930 rer PSSCH,X YES =~ EXIT 
010021 440010 19940 {NX 10 
010022 440010 19950 1NX 10 MOVE YHE POINTER TO THE NEXT VALUE 
010023 220010 19960 LAG 10>X 
010084 042005 49970 pac TEMPS SET THE NEW VALUE TO COMPARE 
010025 502010 19980 AND TEMPS APPLY THE MASK 
010026 842007 19990 Sad TEMP7 COMPARE THE MASKED AREAS 
010027 744000 20000 8kP THEY ARE JDENTICAL. SO CONTINUE 
010030 610016 20010 umP PBS2 THEY ARE DIFFERENT, 8Q TRY TYME NEXT ONG 
010031 302007 20020 Lac TEMP7 LOAD THE OLD EXTENDED OF CODE 
010032 5133014 20030 AND (740000) RECOVER THE OF CODE 
010033 242000 20040 KOR TEMPO ADD IN THE VALUE WE ARE TRYING YO MATCH 
010034 740001 20050 CMa FORM THE SUBSET MARK 
010035 S$02005 20060 AND TEMPS KEBP THOSE BITS NOV IN THE ORIGINAL VALUE 
010036 740200 20070 $ZA SKIP IF THERE ARB NONE (1,E, SKIP IF N&W IS a SyBSET OF THE OLD) 
010037 610016 Aas JMP PBS2 ELSE LOOP ON THE NOX? SYMBOL 
e 
20100 * COUNT THE NUMBER OF BITS THE OLD yALUE (TEMPO) AND THE VALUE BEING 
20140 ® TESTED (TEMPS) HAVE IN COMMON, REPLACE THE BEST~VALUG POINTER 
20120 * If THIS IS BETTER THAN TWE PREVIOUS NUMBER OF COMMON BITS, 
20130 * 
010040 442001 20140 DZM TEMP4 ZERO THE COMMON BITS COUNT 


010041 777767 20150 LAW “9, LOAD YHE NUMBER OF BIT PAIRS 
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D MTSS DEBUGGER -- S¥MBOL TABLE BIT SEARCH SUBROUTINE 
P10042 042006 20160 pac TEMPS SET THE LOOP CONTROL 
010043 202000 20170 Lac TEMPO RELOAD TH& OLD VALWE 
010044 §$02005 20180 AND TEMPS KEGP THOSE BITS THE TWO WORDS HAVE IN COMMON 
010045 745010 20190 CLELYRAL!ISKP 
010046 20200 8S4 a) 
010046 742010 20210 RTL MOVE THE NEXT BIT PaIR TO THE LINK AND AC(O) 
010047 744400 20220 sZ. SKIP UNLESS THE NEXT BIT Was ON 
010050 442001 20230 INX TEMPY YES -~ COUNT JT 
010051 7443100 20240 SPA SKIP UNLESS THE NEXT BIT WAS ON 
010052 442001 20250 1NX TEMP1 VES -» COUNT [T 
010053 442006 20260 {$Z TEMP6 SEG JF DONE LOOPING 
010054 610046 20270 ume PBS4 NO ~-= L00R AGAIN 
20280 
010085 777777 20290 LAW “4 
010056 342001 20300 TAQ TEMPS 
010057 740001 20340 CMA AC = MINUS NUMBER OF COMMON BITS 
010060 342004 20320 Tad TEMP 4 ADD THE PREVIOUS BEST NUMBER 
010064 740100 20330 SMA SKIP IF TWE NEW ONE {S$ BETTER 
010062 619016 20340 JMP Pas2 ELSE LOOP e- CHECK YWE NEXT VALUE 
010063 202001 20350 Lac TEMPL 
010064 042004 20360 bac TEMPS REPLACE THE BIT COWNT 
010065 200010 20370 Lac 10 
010066 042003 20380 pac TEMPS REPLACE THE POINTER TO THE BEST VALUE 


010067 610016 20390 JMP PaS2 LOoP 
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010070 


003304 


919070 
010071 
010072 
0100973 
010074 
010075 
010076 
0100977 


442164 
442157 
442157 
750004 
042150 
202163 
042153 
625304 


019100 


003306 
010100 


010100 
010101 
0101492 
0101403 
010104 
010105 
010406 
010107 
010140 
010141 
010192 
010443 
010144 
010145 
0101496 
010147 
010120 
010191 
010122 
040423 
010424 
010125 


708000 
201766 
704742 
744000 
640510 
253307 
0424163 
740004 
042164 
442164 
213406 
042345 
776000 
042166 
210125 
042167 
210332 
042151 
213276 
042034 
623306 
762000 


01405323 


20400 
20410 
20420 
20450 
20440 
20450 
20460 
20470 
20460 
20490 
20500 
20510 


20520 
205350 
20540 
20550 
20560 
20570 
20580 
20590 
20600 
20640 
20620 
206380 


20640 


20840 
20850 


Seeeete8s: &@© ese 8 & 


SNCOP 


VCORE 


CQRCT 
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STSS DEBUSGER -~ 
»STITL STSS DEBUGGER -- 


MISCELLANEOUS SUBROUTINES 


MISCELLANEOUS SUBROUTINES 


THE FILE pARAMETE2S WAVE ALREADY BEEN FILLED IN AND NOTHING OF 
IMPORTANCE IS LEFT IN THE BUFFER, NOW SET WP THE BUFFER PARAMETERS 
WITH THE MINIMUM SORE ADDRESS PRESENT IN TAE BUFFER SET TO BE 
GREATER THAN THE MAXIMUM, THIS WILL FORCE & PAGE OPERATION 

THE FIRST TIME THe BUFFER IS REFERENCED, 


ENTER  SNCOP 
,PMC = SAVE, ON 


eve 


OZ BMAX 
OZ BMIN 
{NX BMIN 
CLC 

dat MBMIN 
Lac FDA 

Dac BDA 

RET SNCQOP,X 


ENTER UCORE 
,PMC SAVE,QN 


MPQFF 

PMC SAVE,ON 
SPECIAL+0 

Lag SUCORE 
MPRY 

CLL 

LLRs 8, 

xOR (9040000) 
Dac FDA 

CMA 

DAG MFDA 

INX MFDA 

Lac (SBOUNDARY) 
Dac FMIN 

AW ~SBOUNDARY 
Bac MFMIN 
LAG CORCT 
Bac FMAX 

Lac UGF 

Bag F TYPE 
Lac (47777) 
pac POM§K 
RET UCORE,X 
«$8K 


SET 
SET 


TME MAXIMUM ADBRESS IS 0 
THE MINIMUM ADBRESS IS o4 


SET MINUS THE MINIMUM BUFFER ADDRESS 


SET 


THE BUFFER ADDRESS TO CANCEL OUT ANY TROUBLESOME OLD ONE 


TURN OFF MEMORY PROTECT 


PROTECT THE SHIFT 
DIVIDE BY 400 70 GET THE BLOCK NUMBER 


ADD 
SET 
SET 
SET 
SET 
SET 


IN THE DISK 9 BEVICE ADDRESS 

THE FJLE DEVICE ADDRESS 

MINUS THE FILE DEVICE ADDRESS 

THE MINIMUM FILE CORE ADDRESS 

MINUS THE MINIMUM FILE CORE ADDRESS 
MINUS THE FILE MAXIMUM CORE ADDRESS 


LOAD TWE USER CORE FILE FLAG 


AND 


SET THE CURRENY TYPE OF FILE 


LOAD A STANDARD ADDRESS MASK 


AND 


SET {T 


81 


Dt BUG 
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010126 


003310 
010126 


010126 
010127 
010430 
010431 
010132 
010433 
040434 
010435 
040436 
010437 
010440 
010441 
010442 
010443 
010444 


708000 
204767 
7014742 
744000 
640510 
353307 
042463 
740001 
042144 
442164 
442165 
442166 
205720 
042167 
623310 


010145 
003342 


010445 
010146 
040147 
0101450 
010181 


010152 
010153 
010154 
010155 
010156 
010157 
019160 
019461 
010162 
010163 


$02051 
042162 
202151 
350333 
610210 


744002 
202162 
342167 
740400 
6132352 
202166 
741200 
744000 
342162 
740400 


01905325 


20860 
20870 
208680 
20890 


20900 


20910 
20920 
20930 
20940 
20950 
20960 
20970 
20980 
20990 
21000 
21010 
21020 
21030 
21040 
21050 
21060 
21070 
21080 
21090 
21100 


21110 
21120 
21150 
21140 
21150 
21160 
21170 
21180 
21190 
21200 
21210 
21220 
21250 
21240 
21250 
21260 
21270 
21260 
21290 
21300 
21310 


VDISK 
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STSS DEBUGGER ~~ MISCELLANEOUS SUBROUTINES 


ENTER UDISK 
,PMC SAVE,ON 
eo? 

MPOFF 

PMC SAVE,QN 
SPECIAL+0 

LAC SUDISK 
MPEY 

CLL 

RS 8, 

Pad (040000) 
Dac FDA 

CMA 

Bac MFDA 
1NX MFDA 
D2zM FMIN 
0ZM MP MIN 
Lag DIScT 
Dac FMAX 
RET UDISK,X 


TURN OFF MEMORY PROTECT 


PROTECT THE SHIFT 

DIVIDE BY 400 TO GET THE BLOCK COUNT 
ADB THE DISK DEVICE aDDRESS 

SEY THE FILE DEVICE ADDRESS 


SEY MINUS FHE FILE DEyICE ADDRESS 
USER DISK STARTS FROM ZERO 


SET MINUS THE MAXIMUM ADDRESS 


LOCAT IS ENTERED WITH THE DESIRED ADDRESS IN TWE AC, 
LOGAT EXITS WITH THE POINTER TO THE DESTREB ADDRESS IN THE AC AND IN BPTR 


ENTER 
PMC 


ees 


LOCAT 
SAVE,ON 


SEG WHICH FILE WE ARE WORKING ON 


AND PCMSK 
Dac BPTR 
Lac FTYPE 
SAD ACF 
JMP PUCF4 


MASK TO JUST THE ABDRESS 
SAVE THE REQUIRED LOCATION 
LOAD THE TYPE OF FILE WE HAVE OPEN 


IT IS AN ACTUAL CORE FILE; TME CALLER'S POINTER WaS CORRECT 


CHECK TO SEE THAT THE ADDRESS IS WITHIN THE CURRENT FILE 


STI 
Lat BPTR 
Tad FMAX 
SN 
JM MSG94 
Lac MPMIN 
SNA 
CLL 
Tad BPTR 
SNL 


SET THE OVERFLOW FLAG 

RELOAD TME DESIRED LOCATION 

SUBTRACT THE MAXIMWM ADDRESS IN THE FILE 

SKIP ON NO OVERFLOW -- SKIP $F REQUESTED LOCATION 1S NOY PAST THE FILE END 
YES ~- THE ADDRESS 1$ OUT OF BOUNDS 

LOAD THE MINIMUM ABDRESS IN FHE FILE 

SKIP IF aLb IS CORRECT 

ELSE CLEAR TWE LINK TO MAKE THE CORRECY NUMBER 

AND ADD THE DESIREB LOCATION 

SKIP IF REQUESTED ADDRESS IS BEFORE THE BUFFER START 
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D STSS DEBUGGER -- MISCELLANEOUS SUBROUTINES 
610164 610171 21320 JMP PAGE6 NO -- PAGE IT 
21330 0s 
21340 « 0.4K, 7- NOW SEE WHAT KIND OF A FILE WE ARE WORKING WITH 
21350 8 *® 
010165 202154 21360 LAC FTYPE 
0140166 550332 21370 Sad UCF 
010167 610204 21380 JMP PUCK IT IS A USER CORB FILE -~ CHECK FOR 037 
010470 613232 21390 JUMP MSG91 {LLEGAL ADPRESS BEFORE THE BUFFER START 
21400 * 
214140 * YHE FILE {S a NORMAL DEVICE FILE -» 1S THE DESIRED LOCATION IN CORE NOW? 
21420 = * 
010171 21430 paGEs ie 
010271 202162 21440 Lac BPTR RELOAD THE DESIRED LOCATION 
0101472 342164 21450 Fad BMAX SUBTRACT THE MAXIMUM LOCATION WHICH IS IN TWE BUFFER 
010173 740300 21460 SMAISZA {S THE DESIRED LOCATION PAST THE BUFFER END? 
010174 910217 21470 JMP PNEW YES ~~ GET A NEW PAGE 
010175 202162 21480 Lac BPTR NO -- RELOAD THE pESIREp LOCATION 
010176 342160 21490 Tad MBMIN SUBTRACT THE MINIMWM ADDRESS WHICH IS IN THE BUFFER NOW 
010477 741100 21500 SPA 1S THE DESIRED LOCATION BEFORE THE BUFFER START? 
010200 610247 215140 JmMP PNEW YES -~ GET A NEW PAGE 
21820 * 
21530 * THE DESIRED LOCATION JS IN CORE NOW <= SBT UP THE POINTER, THE 
21540 * AC ALREADY CONTAINS THE ADDRESS RELATIVE TO THE START OF THE BUFFER, 
214550 = 
010201 342154 21560 Fad BCA ADB IN THE BUFFER ADDRESS 
010202 042162 21570 aGES Dae BPYR SET THE POINTER TO THE BUFFER LOCATION 
010203 623342 tare ref LOCAT,X 
215 ° 
21600 * THE FILE [S aA USER CORB FILE ~= LOCATIONS g-37 ARG SPECIAL, $0 CHECK FOR THEM 
21610 * 
619204 21620 PUCF es 
010204 777741 21630 LAW «37 LOAD MINUS THE MAXEMUM LEGAL SPECIAL ADDRESS 
010205 342162 21640 fad BPTR ADD THE REGYESTED ADDRESS 
010206 740300 21650 SMA!SZA 1S THE DESIRED LOCATION A LEGAL SPECIAL ADDRESS? 
010207 610212 21660 JMe PUCK 2 NO =~ IS If LEGAL at ALL? 
010249 202162 21670 Pycr4 Lac BPTR YES, THE ADDRESS 18 LEGAL -= DON'T ALTER IT 
010244 623312 21680 ket LOCAT,X 
216990 
010242 776000 21700 PUCF2 Law “BOUNDARY LOAD THE MINIMUM NORMAL L&GAL ADDRESS 
010243 942162 21710 Fad BPTR ADB THE REQUESTED ADDRESS 
010244 741100 21720 SPA 1S IT LEGAL? 
910245 613232 217350 ume MSG94 ADDRESS OYT OF BOUNDS 
010296 6101714 21740 JMP PAGES VEB <= CARRY ON 
24750 « 
21760 »* 
21770 = ® PNEW GETS A NEW THO-BLOCK PAGE SURROUNDING YWE LOCATION GJ VEN 
21780 — ®t IN BPTR, THE NEW "PAGE" WILL BE THE BLOCK CONTAINING THE DESIRED 
2179000 ® LOCATION AND THE FOLLOWING BLOCK, 
21800 = 
010247 21810 pNEW ak 
010247 403324 21820 JMs FORCE FIRST FORCE THE OLB PAGE 


010220 762170 21850 LAW BUFFER 


DEBUG 


910221 
010222 
010223 
010224 
010225 
010226 
010297 
010230 
010231 
010232 
010233 
0402034 
010235 
010236 
010237 
010240 
010241 
010242 
010243 
040244 
010245 
010246 
010247 
010250 
010251 
010252 


U 010253 
010254 
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042154 
213334 
042155 
202162 
342166 
744000 
640510 
342163 
042153 
342164 
6607140 
342465 
0424157 
740004 
353331 
042160 
202157 
353332 
353334 
740004 
042161 
4424614 
770171 
652000 
762153 
703003 


100000 
610247 


010255 


0033144 


010255 
010256 
010257 
010260 
010261 
010262 
010263 
010264 
010265 
010266 
010267 


202156 
142156 
744200 
623314 
202151 
550333 
625314 
203314 
652000 
762153 
705005 


01903823 


21840 
21850 
21860 
21870 
21880 
21890 
21900 
21910 
21920 
219350 
21940 
21950 
21960 
21970 
219860 
21990 
22000 
22010 
22020 
22050 
22040 
22050 
22060 
22070 
22080 
22090 
22100 
22110 
22120 
22150 
22140 
22150 
22160 
22170 
22180 
22190 
22200 


22210 
22220 
222350 
22240 
22250 
22260 
22270 
22280 
22290 
22300 
22310 
22320 
22350 


PNEW2 


*e*ets 


FQRCE 


FORCE2 
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Dac BCA 
LAC (BUFLEN) 
Dac BLEN 
LAC BPTR 
vad MFMIN 
CLL 

RS 8, 
Tad FDA 
Dac BDA 
TaD MFDA 
ALSS 8, 
Tad FMIN 
Dal BMIN 
CMA 

vad (1) 
BAg MBMIN 
LAE BMIN 
TAD (e4) 
Tad (BUFLEN) 
CMA 

Dat BMAX 
{NX BMAX 
LAW PAGES 
MQ 

aw BDA 
RBAD 


RESTORE THE BUFFER CORE ADDRESS 


RESTORE THE BUFFER LENGTH 

NQ =~ RELQAD THE DESIRED ADDRESS 

SyByRaCy HE MINIMYM ADDRESS IN FHE FILE 

PROTECT THE ROTATE 

ELSE DIVIDE BY 4090 TO GET THE BLOCK NUMBER IN THE FILE 

ADB TO THE FILE DEVICE ADDRESS 

SEY THE NEW BUFFER DEVICE ADDRESS 

SUBTRACT THE FILE DEVICE ADDRESS 

MULTIPLY BY 400 T0 GEY THE OFFSET FROM THE BEGINNING OF THE FILE ¢IN WORDS) 
ADD A) MINIMUM CORE ADDRESS TO GET THE MENIMUM IN TWE QUFFER 
AND SET If 


SE¢ MINUS THE MINI MyM ADDRESS 
RELOAD TNE ADDRESS 
ADB THE BUFFER LENGTH TO GET THE MAXIMUM ADDRESS IN THE BUFFER 


SEY MINUS THE MAXIMUM ADDRESS IN THE BUrrER 


SE? THE RESTART ADBRESS . 
LOAD A POINTER TQ THE READ PARAMETERS 
READ IN A NEW BUFFER 


MARQDWARE &RROR RETURN 1S HERE 


JMS ERROR 
JMP PNEW2 


FORCE IS A ROUTING TO OUTPUT THE CORE BUFFER IF IT WAS BEEN 
ALTERED, AND TO ZERO THE ALTERS PLAG, 


ENTER FORCE 
oPMC SAVE.QN 


LAG BALT 
OZ BaLT 
SNA 

RET FORCE,X 
Lac FTYPE 
8aD ACF 

RET FORCE,X 
Lac FORCE 
MQ 

Law BDA 
PWRITE 


ERROR RETURN IS WERE 


LOAD THE BUFFER ALVERS FLAG 

CLEAR IT IN ANY CaSE 

SKIP IF THE BUFFGR wWaS BEEN ALTERED 
ELSE EXIT NOW 

LOAD THE CURRENT Type OF FILE 

SKIP IF IT CAN BE FORCED 

{T IS AN ACTUAL CORE FILG&, AND CANNOT BE FORCED 
LOAD THE RESTART ADDRESS 

AND PaSS [¥ TQ THE EXEC | 

LOAD A POINTER TO Twe PARAMETERS 
WRITE THE BUFFER OWT 
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D STSS DEBUGGER -- MISCELLANEOUS SUBROUTINES 
22340 «@ 
U 010279 400000 22350 ums ERROR 
010271 610264 aa UMP FORCE2 RETRY THE OPERATION 
7 * 
22380 = 8 
22390 = PRINT A SPACE 
22400 * 
010272 22410 ENT&R SPACE 
,PMC SAVE,ON 
003346 SPACE its 
010272 760240 22420 . LAW 240 
040273 £03503 22430 JMS TSTTYOT 
010274 623316 22440 Ref SPACE, X 
22450 « 
22460 # PRINT A COLON FOLLOWED BY A SPACE 
22470 ® 
010275 22460 ENTER  COQLSP 
, PMC SAVE,QN 
003320 COLSP eee 
010275 760272 22490 LAW $COLON 
010276 £03503 22500 JMS TSTTYOT PRINT THE COLQN 
0190277 760240 22510 Law SSPACE . : = 
010300 £03503 22520 ums TSTTYOT PRINT THE SPACE 
010301 623320 22530 ner COLSP,X 
22540 * 
22550 + *® 
010302 22560 ENTER TOVAL MAKE SURE THE USER IS VALIDATED IF WE IS TRYING TO pO A DISK OPERATION 
,PMC SAVE,ON 
003382 TOVAL aes 
010302 042000 22570 oF Ve) TEMPO SAVE THE DEVICE ADDRESS 
010303 640703 22580 ALS 3 MOVE THE DEVICE-TYPE BIT To act0) 
040304 ed Oy 22590 SPA SKIP FOR DECTAPE 
010305 403245 22600 JMs VALCHK ELSE CHECK THE YSER'8 VALIDATION 
010306 802000 22610 LAG TEMPO RELOAD THe DgVICg ADDRESS 
010307 623322 22620 RET TOVAL»X 
22630 
22640 
22650 
010340 22660 ENTER BINIT 
PMC SAVE,QN 
008384 BINIT aa 
010340 £03344 22670 gua FORCE FORCE ANY OLO BUFFER BEFORE MESSING AROUND WITH THE POINTERS 
ous a. seen Lac (BUFFER) 

10392 048154 22690 Bac BCA SE’ THE BUFFER CORE ADDRES 
010343 219334 22700 Lac (BUFLEN) ahi : 
010344 0428155 22710 pac BLEN SET THE BUFFER LENGTH 
010345 623324 22720 RE? BINIT,X 


DEBUG 


910346 
010347 
010390 
010391 
0103g2 
0103g3 
010394 
010325 
010396 
010327 
010330 


010334 
Q10332 
010333 
010334 
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0003356 
000300 
000245 
000240 
000254 
000272 
000275 
000256 
000275 
000274 
000276 


340000 
000001 
600002 
000003 


014503323 
22730 
22740 * 
22750 @ 
22760 * 
22770 INDSN 
22780 8=6FOEL 
22790 RSGN 
22800 WNSGN 
22810 BYSGN 
22820 MCSGN 
22830 ENOSN 
22840 PCSGN 
22850 PATSN 
22860 8KSN 
22870 JSGN 
228860 + 
228900 * 
22900 @ 
22910 Orcr 
22920 YGF 
22930 ACF 
22940 §©6.QGF 
22950 
22960 
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MTSS DEBUGGER -- MISCELLANEOUS STORAGE 


sSTITL MTSS DEBUGGER -= MISCELLANBOUS STORAGE 


DDT CONTROL SIGN DEFINITIONS 


SUPARR 


MISCELLANEOUS CONSTANTS 
#11004400 


END 


Up ARROW INDICATES INDIRECT ADDRESSING 

AT DELEMITS FILENAMES 

BHARP SIGN DENOTES REGISTER NAMES 

SPACE IN FIELD DENOTES SPECIFICATION BY LENGTH 
COMMA DENOTE FIELD SPECIFICATION BY BOUNDARIES 
COMMERCIAL AT SIGN DENOTES MQDE/COMMAND WHEN NEEDED 
SEMI-COLON DENOTGS END OF a SYNTACTIC UNIT 
PERIOD {3S SYMBOL fOR PROGRAM COUNTER 

(37 13 PATCH COMMARD 

(<)? 13 BREAKPOINT CoMMAND 

(>) IS JUMP/TRANSFER COMMAND 


USER CORE FILE FLAG 
ACTUAL CORE FLAG 
LOBICAL FILE FLAG 
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013450 


015450 777473 
013451 
015454 414444 
015455 625764 
015486 742000 
013487 
013462 
013465 
013470 
015473 
013476 
019501 
0139504 
019507 
015542 
019545 


013520 
015523 4359461 
0159594 945463 
015525 650600 

0195286 

EEF 

013594 

019537 

019542 

013545 

019590 

019583 

013556 

019561 

or tres 

013567 

013572 

ae 

49600 
b13693 

013606 

019641 

013614 

0149647 

0156282 

013685 

013690 


01503323 


oP 


SYMO0 
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MYSS DEGUSGER -~ PERMANENT SYMBOL TABLE 


»STITL MTSg DEGUGGER -~- PERMANENT SYMBOL fPABLE 
USE SYMTAB PUT LT LAST IN CORE SO TWE USER CAN ADD YO IT INDEFINITELY 
PMC SAVE, OFF DON'T EXPAND THE SYMBOL TABLE -- IT GOES ON FOR PAGES!3! 
+INSRT INSERTI90R§ 
.CRSM SAVE,OFF 
,DEFIN 

cACIO = / #47 

#1 

.ENDM = OP 

eo SYM4-4/3~4 NUMBER OF SYMBOLS IN THE PERMANENT SYMBOL TABLE ~4 
oP < ABS> 
»ACTO =e ADDROTS 
742000 

OP < ALS> 

oP < ALSS> 

oP < BEG> 

oP <  CAF> 

oP <  CCK> 

op < CDF> 

oP < CLA? 

oF < c¢cLeo> 

oP < CLL? 

OP < CLOF> 

oP < CLON> 

on «< CLO> 
ATS *CLQLise 
CLOILLS 

OP < CLSF> 

oP <  CMA> 

oP < CML> 

oP <  6MQ@> 

oP < COND 

ol < CPB> 

OP < DBK> 

ap < DBR> 

oP < DCE 

oP < pans> 

OP < 0GS8%> 

oP < DIV> 

op < pDivs> 

oP < DLAH> 

OP < DLALO 

oP < DL@R> 

OP < DLOK> 

OP < DLP > 

oP « DOVD 

oP < DPBS> 

OF <« DPCF> 

oP < DPEP> 

OF < DPMK> 
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D MTSS DEGUGGER ~~ PERMANENT SYMBOL TABLE 
013633 560 oP < DPOF> 
013636 570 oP < DPON> 
019641 580 OP < DROP? 
013644 590 oP < DPQT> 
013647 600 oP < DPRC> 
013682 610 OP « DPRS> 
0143685 620 oP < DPsF> 
013660 630 oP « DPWC> 
013663 640 oF « DRAH> 
01 $666 990 oF « DRAL> 
013671 660 oP < pRBR> 
013674 670 OP « DSCO> 
013677 680 oP < pscDd> 
013702 690 oP < Dacr> 
013705 700 OP < DSCN> 
013740 710 oP < DSFX> 
013743 720 oP < DSRS> 
013746 730 oP < Dssc> 
019781 749 oP < DSssf> 
013784 750 oP < DTCA> 
013727 760 oP < DTOF> 
015792 970 oP < DreF> 
013735 780 oP < DTLA? 
015740 790 oP « DTRA> 
013743 800 oP < DTRB> 
013746 810 oP < prxa> 
013784 820 oP <BAECLA> 
013754 830 oP < &CR> 
019757 840 oP < §C8> 
013762 950 oP < &EM> 
0139765 860 ap < 8t8> 
013770 870 oP «BLP 
019773 880 oP <« £0V> 
013776 890 oP < &85> 
014001 900 oP « FRDIV> 
014004 910 oP <FRDIVS> 
014007 920 oP. « GLK 
044942 930 oP <¢ G8™M> 
014045 940 oP « WoT? 
014080 950 oP < IDIV> 
014023 960 OP. < IDlya> 
014026 970 oP «© IDX 
014091 960 oP < INX> 
014034 990 oF. < 10F> 
014037 4000 OP. < OND 
014042 4010 OP. < JORS> 
014045 4020 oP < 1SA> 
014050 4030 oP < KRB> 
014083 1040 QP <KRBLTL> 
014086 1050 oP <KRBLT2> 
014061 4060 oP < KS$F> 


014064 1070 oP <KSFLT4I> 


90PS 05/31/72 01503323 POPS TIME*SHARING SYSTEM MONITOR AND MESSABE ROUTINES PAGE 69 


D MTSS DEGUGGER -- PERMANENT SYMBOL ABLE 
014067 1080 OP. <KSFLT2> 
014072 1090 OP «€ Laca> 
014075 1100 OP < (Lacs> 
014100 4110 oF <  Las> 
014103 4129 oP < LAW 
014106 4130 oP < LBL> 
014141 1140 oP < bCK> 
014144 1150 OP < LDA> 
o19147 4160 oP < .De> 
0141%2 4170 oP < LD&> 
014125 1180 oP < (LeM> 
014130 1190 oP < LLS> 
014133 4200 oP < LLSC> 
014136 4210 oF < LLSS$> 
014141 4220 oP <  LMa> 
014144 4230 oP < LPB> 
014147 1240 on © LPM 
014152 1250 oP <  LRB8> 
014185 4260 oF <LRSCLA> 
014160 4270 oP < LRSS> 
014163 4280 OF < L™%> 
014166 4290 oF < LY> 
044471 4300 oP < MPCNE> 
014174 4310 oP < MPEU> 
014477 4320 OP < MPCVD 
014202 1330 oF < MPBY> 
014205 4340 oP < MPLD> 
014240 4350 oP < MPOFF> 
: sPMC SAVE,ON 
014242 705000 SPECIAL+0 TURN OFF MEMORY PROTECT 
b442t3 4360 oP < MPSK> 
014236 4370 OF < MPSNED 
014281 000053 3380 oACT6 © MGOR® 
914292 615762 
§1428@3 642000 43906 642000 
0142284 4400 oF < MUL> 
014287 4410 oP < MULS> 
014232 4420 oP <€ NOP> 
014235 4430 oP < NORM> 
014240 4440 oP < NORMS> 
014243 4450 op < 0Aa8> 
014246 4460 OP < OCK> 
01421 4470 oF < OMa> 
014284 4480 oP < 0f8> 
014287 1490 oP < 08c> 
014262 “4500 oP < PCF> 
014265 1510 oP < PLB> 
014270 4520 oP « = PBAD 
014273 4530 OP < P8@> 
014276 4540 Ld < P8F> 
014301 4550 oP < RAEF> 
014304 4560 oF ¢ RAL 
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D MTSS DEGUGGER -- PERMANENT SYMBOL TABLE 
014307 4570 oP < = RAR> 
014342 4580 oP < RCF> 
014345 4590 oP < RCL> 
014320 4600 oP « RCRD 
0143283 1610 oP < = RET 
014326 4620 oP € RLPD> 
014331 1630 oF < = RPL> 
014334 4640 OP < RLPED 
014397 1650 oP <  RRB> 
014342 4660 oP < ASa> 
014345 4670 oP <€ R§B> 
014380 1680 ld < RSF> 
014383 4690 » « RTL 
014386 4700 oP < RTR> 
014361 4710 oP «€ $CK> 
014364 4720 OP < s8™> 
014367 4730 oP < SKP> 
014372 4740 oP < §KP7> 
014375 4750 oP < SMA> 
014400 4760 oP <€  8NADd 
014403 4770 oF < S$NL> 
014406 147890 oF < SPA> 
014441 4790 oP < SPa> 
014444 4600 OP < SPI> 
014447 4810 OF < 8TL> 
014432 1820 oP < sza> 
014435 4830 oP <« $82L> 
014490 4640 ol) < TCF> 
014433 4850 OP <TCFLTL> 
014436 4860 OP <TCFLT2> 
014441 1870 oP < TL_S> 
014444 4680 oP <TLSLTi> 
014447 4890 oP CTLELY2> 
014482 4900 or < T9F> 
014455 4919 oP CTSFLTI> 
014460 4920 oF <TSFLT2> 
014463 4930 oP « TTS> 
014466 1949 oP <« WBL> 
014471 1950 oP < WCGA> 
014474 4960 oP < WDA> 
014497 4970 oP < wDee> 
014502 4980 oP < WwDBS> 
014505 4990 oP < CAlL> 
014540 2000 oP « pac> 
014543 2010 oP <  JMS> 
014546 2020 oP <€ DZM> 
014581 2030 oP < Lac> 
014524 2040 OP < XOR> 
014527 2050 oP <« aDD> 
014532 2060 oP < Tad> 
014535 2070 oP < XxCT> 
014540 2080 oP < {SZ> 


9OPS Q5/31/72 01503323 POP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 91 


D MTSS DEGUGGER -- PERMANENT SYMBOL TaBLle 
014543 2090 OP. < AND> 
014546 21090 OP < $AD> 
014591 2110 oP < JMP> 
014534 2120 oP < EAR> 
014557 2130 OP «< 10T> 
014562 2140 oP < OPR> 
014565 777777 2150 SyMy #1 NUMBER OF SYMBOLS §€N TWE USER SYMBOL TABLE ~4 
2160 »CRSM RESTORE 
2170 »END 
40000 PMC RESTORE 
003326 40010 »VSE IMPURE 
; 40020 »48AD 
000001 10090 Q&BUG 2GQV 1 TURN ON THE HANDLER INSERTS LISTINGS 
40040 » MAD D 
40050 sINSRT <tDLIBRARYSPDPOLIB: TT YNON 
100 2 INE SDEBUG,1 


420 TPG SDEBUG,1 


TTYNON 
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015035823 


eesesse eseeeeseeteeaeseseesee eee e 6s & & & 
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MTSS-PDPO NON-INTERRUPTING TELETYPE WANDLER 

eSTITL MTSS=-PDP9 NON-INTERRUPTING TELETYPE WANDLER 

»HBAD T 

PROGRAMMED BY ROBERT W, BLEAN 

LAST REVISED 24 MARCH 1972 

THIS HANDLER PERMITS NON- INTERRUPT DRIVEN INPUT FROM AND OUTPUT 

TO THE CONSOLG TELETYPE ON THE PDRad COMPUTER, 


THIS HANDLER ALTERS THB ac, AND MQ, If DOMS NOT ALTER ANY CORE 
MEMORY OUTSIDG OF ITSELF, 3N PARTICULAR {7 pOES NOT ALTER ANY AUTOmINDEX REGISTER, 


DATA FORMATS! 
4) OCTAL 


2) SUXBIT == SIXBIT 18 8-817 ASCIS MINUS 240, THIS MAPS THE PRINTING 
CHARACTERS ONTO THE SRY O~77. ASCIE VALUE 333 €() I$ USED FOR 
CARRIAGE RETURN AND 335 (}) 1S USED FOR LINEPEGD, NOTE THAT NEITHER 
333, 335, NOR ANY BONTROL CHARACTERS CAN BE RECOGNIZED IN SIXBIT, 


3) ASCII ©~ QNE ASCII CHARACTAR JS STORED P&R WORD, LINE INPUT 
I$ STORED IN THIS FORMAT, SINCE THERE IS ONLY ONE LINE-BUFFER 
THE EXTRA BUFFER LENGTH WASTES LESS SPACE THAN WOULD THE HANDLING 
ROUTINES NECESSARY FOR OTHBR FORMS OF PACKING CHMRACTERS, 


92 


TTYNQN 


05/31/72 


T 


005326 


005326 
000120 
005330 


905450 
905451 
§05452 
005453 
005454 
905455 
905456 


003447 
000000 
000000 
600000 
000000 
000000 
000000 


010335 


420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
$30 
540 
550 
560 
570 
580 
590 
600 
610 
620 


015035323 


POP9 TIME-SHARING SYSTEM MONITOR AND MESSAGE ROUTINES PAGE 93 
(MTSS TELETYPE HANDLER? STORAGE ARBA 
sSTITL (MTSS TELETYPE HANDLER) STORAGE ARBA 


sIFE PURCODe1 
USE IMPURE 


»BLQCK 2 ROOM TO ACCUMULATE TWO VALID WORDS 

EQy 80, STANDARD IS AN 8O-CHARACTER LINE BUFFER 
18LQCK STD 

VARIABLES 

A | END oF THE CHARACTER BUFFER 

08a POINTER TQ CURRENTLY ACTIVE WORD IN LINE QUFFER 
,DSA — TEMPORARY VARIABLE 

OSA TEMPORARY VARIABLE 

,08A STORES LATEST CHARACTER FROM FGET 

,O08A STORGS LATEST DELIMITER THROUGH CHRID 
»D8A 

PE PURCOD»1 

USE PURE 
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’ (MTSS TELETYPE MANDLER) LINE BUFFER INPUT 
630 eSTITL (MTSS TELETYPE HANDLER} SNE BUFFER INPUT 
640 
650 
660 * 
670 ® THE PROGRAM IS PROTECTED AGAINST OVERFLOW @R UNDERFLOW OF THE LING 
680 * BUFFER, UNDERFLOW (EXCBSS DELETIONS) IS IGNORED, AND OVERFLOW CHARACTERS 
& ARG LOST, EXCEPT FOR TwE LAST CHARACTER TyPeEep, 
7 * 
710 
010335 720 ENTER INLIN SUBROUTING TO READ IN AND BUFFER A LINE FROM THE TELETYPE 
s PMC SAVE,ON 
003457 INLIN yey 
010335 700312 730 KRB ONCE, ON BNTRANCE, CLEAN UP ANY PRIOR INPUT 
010336 213410 740 INL Lac (BUFFR=1) LOAD a POINTER TO START OF THE BUFFER MINUS ONE 
040337 043424 750 bac BPYR INITIALIZE THE BUFFER POINTER 
010340 £4345 760 DZM COUNT INIT] abIZE THE WORD FETCHED COUNT 
010341 143455 770 DZM DLMTR INITIALIZG THE LAST DELIMITER STORAGE 
010342 700313 780 TNL KSFKRB GET THE NEXT JNPYT CHARACTER 
010343 610342 790 JMe a 
010344 553411 800 Sad (SBKARR) 
010345 610367 810 Jme 1CHAR DELETE ONE CHARACTER IF IT WAS A BACKARROW 
010346 553412 820 SAD (SCONTX) 
010347 610365 830 JMp 1 UNE DELETE THe ENTIRE CINE IF IT WAS A CONTROL X 
010350 652900 840 TN4 ima SAME THE CHARACTER 
010351 203451 850 LAG BPTR LOAD THE CURRENT BUFFER POINTER 
010352 543450 860 9,0 BEND SKIP IF NO OVERFLOW 
010353 741000 870 SKP AV@ID DAMAGE DUE TO OVERFLOW 
010354 443454 880 {82 BPTR ADVANCE THE POINTER ~~ IF IS STILL WITHIN THE BUFFER 
010355 6414002 890 aca RELOAD THE CHARACTER 
010356 063454 900 pac BPTR,X AND PUT {7 IN THE BUFFER 
010357 $53341 910 ad (SCR) 
010369 743900 9%20 SkP EXIT WHEN A CARRIAGE RETURN IS FOUND 
010361 610342 930 JMP IN4 ELBE GET THE NEXT CHARACTER 
019362 763327 940 LAW BUFF Ret 
010363 043451 950 Dac BPTR RESET THE BUFFER POINTER aY THE END OF THE LINE 
010364 623457 ace ume INLIN,X AND RETURN TO THE CALLER 
010365 103505 980 tLINE ym CRLF PRINT THE RESPONSE YO A LINE-DELETE 
010366 610336 990 JMP INL REREAD THE LING 
010367 203451 4000 1GHAR LAG BPTR LOAD THE BUFFER POINTER 
0103790 $50336 4010 Sad INL SKIP IF NO UNDERFLOW 
010371 610342 1020 JMP ING ELSE IGNORE THE GCOBMAND 
010372 353332 4030 vad (#4) DECREMENT THE BUFFER POINTER 
040373 04345, 4040 bad BPTR AND SaVE [YT 


010374 61034 1050 JMP IN1 GEY THE NEXT CHARACTER 
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010375 


003461 


910375 
010376 
040377 
010400 
010401 
010402 
010403 
010404 
0104905 
010406 
010407 


010440 
010441 
010442 
010443 


010494 
010445 
010446 
010447 
010420 
010494 
010422 


010423 


010494 
010425 
010496 
010427 
010430 
040434 
010432 
010433 
010434 
010435 


443453 
403477 
623461 
403475 
103501 
610424 
623461 
743400 
443453 
513443 
043452 


640503 
203326 
640603 
043326 


203327 
744000 
653122 
000012 
641002 
343452 
043327 


610400 


§53404 
610433 
203453 
744200 
623461 
205326 
610442 
403475 
403501 
410441 


1060 
10790 
4080 
4090 
4100 
41110 
4120 
41390 
4140 
1150 
1160 
4170 


4180 
1190 
4200 
4210 
4220 
1230 
1240 
1250 
1260 
4270 
1280 
1290 
4300 
4310 
1320 
4330 
4340 
4350 
1360 
4370 
1380 
4390 
4400 
1410 
4420 
1430 
1440 
4450 
1460 
4470 
1480 
4490 
4500 
1510 
1520 
1530 
4540 
4550 
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e*eseeeseess 8s 


NWMIN 


NWM20 


NUM26 


NUM27 
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(MTSS TELETYPE HANDLER) OCYAL WORD INPUT/OUTPUT 


»STITL (MTSS TELETYPE HANDLER) OCTAL WORD INPUT/OUTPUT 
OPERATION RETURN : AC MQ MEANING 
INPUT +1 0 X x FORMAT ERROR DISCOVERED 
+1 1 DELIM xX FIRST NON-BLANK CHARACTER I9 A DELIMITER 
+2 1 OCTaAL BDELIM SUCCESSFUL READ OF aN OCTAL NUMBER 
OUTPUT +1 xX xX x SUCCESSFUL WRITE OF AN OCTAL NUMBER 
ENTER NUMIN 
,PMC SAVE,ON 
DZM T2 INITIALIZE THE DECEMAL=DIGIT-RECEIVED FLAG 
JMS INTIN INITIALIZE THE INPUT STRING, ETC 
MP NUMIN,X RETURN +4 FOR DELIMITER IS FIRST NON-BLANK CHARACTER 
ums FGET GET THE NEXT CHARACTER 
JMS CHRID IDENTIFY [T 
JMP NUM26 1T 3S A DELIMITER, SO EXIT 
JmMP NUMIN,X 1T 1S A LEFTERe SQ EXIT +141 FOR A FORMAY ERROR 
SZ. SKIP IF THE CHARACTER IS AN OCTAL DIGIT 
182 T2 ELSE BE SURE THE DECIMAL©DIGIT*RECEIVED FLAG IS SET 
AND (47) RETAIN JUS? THE DIGIT 
Dac T41 AND SAVE IT FOR DECIMAL ACCUMULATION 
LRS 3 SAVE THE WOCTAL DIGIT 
LAc WORDS LOAD THE PREVIOUSLY GATHERED "OCTAL NUMBER" 
L$ 3 CONCATENATE THE "OCTAL DIGITS" 
pac WORDB AND SAVE THE RESULT 
Lac WORDBo4 LOAD THE PREVIOUSLY GATHERED "DECIMAL NUMBER 
Cik SET THE LINK FOR THE MULTIPLY 
MUL MULTIPLY THE PREVIQUS "DECIMAL VALUE" 
40, 10 FOR QECIMAL 
LAcQ LOAD YWE RESULT 
FAD Tq ADD THE CURRENT wDECIMAL DIGIT 
Dac WORDB +4 AND SAVE THE TOTAL DECIMAL NUMBER® 
JMP NUM20 LOOP 
SaD (SPOINT) CHECK FOR A PERIOD 
JMP NUM27 IF $0, PICK UP THE DECIMAL VALUE 
Lac T2 ELSE LOAD THE DECIMAL- i aac ae FLAG 
eextest AND SKIP IF THERE WERE NON 
JmMP NUMIN,X RETURN +4, LK8O0 FOR a FORMAT ERROR: DECIMAL DIGITS, BUT NO PERIOD 
uae WORDB LOAD THE QCTAL VALWE 
MP NUM29 
JMS FGET GET THE NEXT CHARACTER 
JMS CHRID AND IDENTIFY If 
JMP NUM28 A DELIMITER IS LEGAL. SO EXIT 
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910436 623461 
010437 7440900 
010440 6235461 
010441 203327 
010442 043326 
010443 443464 
010444 623461 
010445 
003463 
010445 652000 
010446 741400 
040447 759201 
010450 777772 
010451 043452 
010452 644002 
010453 744000 
010454 744900 
010455 641603 
010456 740200 
010457 7449000 
0104609 6353305 
01046, 749400 
010462 1059503 
040463 4434352 
010464 610455 
010465 700401 
010466 610465 
010467 623463 


1560 
4570 
1580 
4590 
4600 
4610 
1620 
4630 
4640 
4650 
1669 


1670 
4680 
16990 
4700 
1710 
1720 
1730 
4740 
4750 
1760 
1770 
1780 
1799 
4800 
1810 
1820 
4830 
1840 
4850 


01403323 


NYM28 
NUM29 


ocTor 
OCT42 


OCT44 
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JMP 
CL 


(MTSS TELETYPE HANDLER} OCTAL wORD INPUT/OUTPUT 


NUMIN,X 


NUMIN,X 
WORDB et 
WORDB 
NUMIN 
NUMIN,X 


ocTor 
SAVE,QN 


A LETTER <= EX!7 «2% FOR A FORMAT ERROR 

A NUMBER -© CLEAR ¥HB LINK FOR A FORMAT ERROR 
AND EXJT #1 

LOAD THE DECIMAL VALUE 

SAVE THE CORRECT VALUE 

BUMP TO a RETURN +2 FOR SUCCESSFUL 


SET THE VALVE TO BE OUTPUT 

SKIP IF NO LEADING ZEROES aR TO SE SUPPRESSED 

SET A FLAG TO PRINT ONE CHARACTER, ANYWAY; IF THE ac IS ZERO 
ELSE SET THE COUNT FOR TWE STANDARD SIX CHARACTERS 

SET THE NUMBER OF CHARACTERS TO BE OUTPUT 

RELOAD THE USER'S VALUE 

SKIP FOR A NON-ZERO VALUE 

ELSE FORCE A SINGLE ZERO TO PRINT 

GET THE NEXT OCTAL DIGIT 

1F IT JS ZERO, DON*T CHANGE PRINT-SUPPRESSION STATE 

ELSE CLEAR THE PRINT INHIBIT aT THE FIRST NON-ZERO FOUND 
MAKE ASCII IN ANY CASE 

BUT SKIP IF PRINT €§ INWIBITED 

ELSE PRINT THE DI{GiT 

DONE??? 

NO «- LOOP 


WAIT FOR TNE TELETYPE YO SETTLE 
YES -- EXIT 
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y (MTSS TELETYPE HANDLER) SIXBIT WORD INPUT &@ SIXBIT BUFFER OUTPUT 
1860 ~STITL (MTSS TELETYPE HANDLER) SIXBIT WORD INPUT 8 SIXBIT BUFFER OUTPUT 
4870 
1880 
1890 sd 
4900 * OPERATION RETURN | ae MQ MEANING 
910 * wer ww wee Bee Oe = ere wre rer aw eter rm guvecnecse ed Se : 
+930 ry INPUT +1 L DELIM X FIRST NONwBLANK CHARACTER IS A DELIMITER 
1930 * +2 tL SIXBIY DELIM SUCCESSFUR READ oF aA SIXBIT WoRD 
1940 ry OUTPUT +1 x xX X SUCCESSFURK WRITE OF «a SIXBIY BUFFER 
1950 * 
1960 
010470 1970 ENTER SJXIN 
,PMC SAVE,ON 
003465 SJXIN ewe 
010470 763326 4980 LAW WORDB 
010471 043452 41990 DAG Td INITIALIZE THE SIXBIY BUFFER POINTER 
010472 403477 2000 JMS INTIN INITIALIZE THE INPUT 
010473 623465 2010 JMP SUXIN,X RETURN «4 FOR DELIMITER IS FIRST NON-BLANK CHARACTER 
010474 443465 2020 182 SJXIN ELSE BUMP TO A GOOB RETURN 
010475 103467 2030 S$] X2 JMS S]X5 GET THE FIRST GOOD CHARACTER 
010476 660714 2040 ALSS 12, AND PUT {T IN THE FIRST CHARACTER POSITION 
010477 063452 2050 Dac T1>x AND SAVE IT 
0105900 103467 2060 JMS $1 X5 GET THE SECOND CHARACTER 
010501 660706 2070 ALSS 6, PUT IT IN THE SECOND CHARACTER POSITION 
010502 263452 2080 XOR T4»X CONCATENATE THE CHARACTERS 
010503 063452 20990 pac T4sX AND SAVE THE RESULY 
010504 403467 2100 uM8 S[X5 GET THE THIRD CHARACTER 
010505 263452 2110 XOR Thx CONCATENATE THE GHERACTERS 
010506 063432 2120 Dac Tax ANB SAVE THE RESULT? 
010507 443452 2130 182 Ta BUMP THE STORAGE BUFFER POINTER 
010540 610475 2140 JMP $JX2 LooP 
2150 
010541 203326 2160 S1X9 ac WORDB LOAD THE FIRST SIXBIT WORD 
010542 623465 ae JMP SIXIN,X EXIT 
010543 21490 ENTER SIX5 SUBROUTINE TQ GET THE NEXT CHARACTER, MAKE IT SIXBIT, EXIT IF A DELIMITER 
PMC SAVE,ON 
003467 SIX5 a) 
010543 103475 2200 JMS FGET GET THE NEXT CHARACTER 
010544 403501 2210 JMS CHRID IDENTIFY [fT 
010545 610511 2220 JMP S1X9 EXIT IF 7 19 A DELIMITER 
010546 740000 2230 NOP PERMIT LETTERS 
010597 953403 2240 rad (240) MAKE SIXBIT 
010529 623467 2259 JMP SI[x5.X 
2260 
2270 
010521 2280 ENTER SIXOT 
. PMC SAVE,ON 
003471 S|XoT eae 
010521 043452 2290 pac Th SET THE NEGATIVE CAARACTER COUNT 
010522 223471 2300 S1X24 Lac S[XOT,X LOAD THE NEXT WORD OF OUTPUT 
010523 652000 2510 MQ SAVE IT FOR PRINTING 


TTYNON 


910524 
010525 
010526 
010527 
010530 


05/31/72 
T 


443471 
403473 
103473 
103473 
610522 


0105351 


003473 


010531 
010532 
010533 
010534 
040535 
010536 
010537 
010540 
010541 
010542 
010543 
010544 


641606 
353350 
$53444 
760245 
553415 
760212 
403503 
443452 
623473 
700401 
610542 
625471 


2520 
2530 
2340 
2550 
23560 
2370 
2380 


2590 
2400 
2419 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 


01903123 


31X26 


s 
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182 
Ms 
JMS 
UMS 
JMP 


ENTER 
"BMC 
LL8c 
fad 
SAD 


(MTSS TELETYPE HANDLER) SIXBIT WORD INPUT @ SIXBIY BUFFER OUTPUT 


SIXOT 
$1X26 
S1X26 
S1X26 
S1X24 


$1x26 
SAVE,ON 


S{X269X 


owt 
SIXOT,X 


BUMP TYNE POINTER 

OUTPUT THE FIRST CWARACTER 
OUTRUT THE SECOND CHARACTER 
OUTPUT THE THIRD CAARACTER 
LooRr 


GET THE NEXT SIXBIF CHARACTER 
MAKE IT AaSCI2 
CHECK FOR CARRIAGE RETURN MAPPING 


CHECK FOR LINE FEED MAPPING 
PRINT THE CHARACTER 

ALL CHARACFERS PRINTED? 

NO -- LOOP 


WAIT FOR THE TELETYPE TO SETTLE 
YES -~ EXIT 


98 


TTYNON 


05/31/72 
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01090545 


003475 


910545 
010546 
010547 
010550 


443451 


223451 
043454 


623475 


010591 


003477 


010554 
010562 
010553 
010554 
010565 
010556 
010567 
010560 
010561 
010562 
010563 
010564 
010565 
010566 


443456 
443326 
443327 
403475 
553350 
610554 
403501 
623477 
740000 
443477 
750004 
343454 
043451 
623477 


2530 
2540 
2550 
2560 
2570 
2580 


2590 
2600 
2610 
2620 
2630 
2640 


2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 


01303323 


FGET 


FGETS 


INTIN 
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(MTSS TELETYPE HANDLER) MISCELLANEOUS LINE BUFFER ROUTINES 


(MYSS TELETYPE HANDLER) MISCELLANEOUS LINE BUFFER ROUTINES 


FGET 
SAVE,ON 


BRTR 
BPTR,X 
CHAR 
FGET,X 


INTIN 
SAVE,ON 


COUNT 
WORDB 
WORDge1 
FgeT 
(S$SPACE) 
072 
CHRID 
INTIN,X 


INTIN 
BPTR 


BPTR 
INTIN,X 


SUBROUTINE TO GEY THE FIRST REMAINING CHARACTER FROM THE LINE BUFFER 


NO -~ BUMP THE POINTER 
LOAD THE N@XT CHARACTER 
AND SAVE IT 


INITIALIZE INPYT WORD-GETTING 

COUNT THE WORDs SUCCESSFUL OR NOT 

INITIALIZE THE TWO FIRST WORDS OF THE INPUT BUFFER 
GET THE NEXT CHARACTER 

CHECK JT FOR A SPACE 

THROW AWAY SPACES 

IDENTIFY THE NON@BPACE 

RETURN +4 FOR A DELIMITER 

ELSE BUMP FRE RETURN FOR A NUMBER OR A LETTER 


BAGK UP THE POINTER TO POINT TO THE FIRST GOOD CHARACTER 


TTYMNON 


05/31/72 
’y 


010567 


003501 


010567 
040579 
0105741 
010572 
010573 
010574 
040575 
010576 
0105977 
010600 
010601 
010602 
010603 
010604 
0140605 
010696 
010607 
010640 


0106414 
010642 
010643 


010644 
010645 
010646 
010647 


5413353 
043503 
353416 
745102 
610611 
353417 
745400 
610614 
353420 
745102 
610614 
953421 
745302 
610611 
543422 
353423 
7414102 
610615 


205503 
043455 
623501 


443501 
443501 
£03503 
623501 


010620 


005503 


010620 
010621 


700401 
610620 


01903%23 


sees ee ees es & & & 


CHRID 


TTYOT 
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(MTSS TELETYPE HANDLER) MISCELLANEBUS CHARACTER=WANDLING SUBROUTINES 


sSTITL 


(MTSS TELETYPE HANDLER) MISCELLANEOUS CHARACTER@HWANDLING SUBROUTINES 


CHRID -~- SUBROUTINE TO CLASSIFY EIGHT-8I1T ASCII CHARACTERS, 
ENTER WITH THE CHARACTER IN THE ACY LEAVE WITH TWE EIGHT-BIT CHARACTER 


IN AC(O~-17) AND 


THE LINK AS FOLLOWS: 


RETURN LINK MEANING 


a oe ee oe | 


o1 1 THE 
o2 0 THE 
«3 0 THE 
a3 1 THE 
ENTER CHRID 
PMC SAVE,QN 
eee 
AND (377) 
Dac TTYoT 
Tad (#260) 
SPaySTL 
JMP DLMR 
TAD (-10) 
SPASCLL 
JMP DIGIT 
YAD (#2) 
SPAISTL 
JMe DIGIT 
TaD (#6) 
SNAISPA!STL 
JMP DLMR 
AND (777737) 
Yad (#33) 
SPASCML 
JMP LETTR 
LAC TTYOT 
Daeg DLMTR 
JMP CHRID,X 
1$zZ CHRID 
{$2 CHRID 
LAC TTYOT 
JMP CHRID,X 
ENTER TTYOT 
, PMC SAVE,ON 
eee 
TSF 
JMP rm | 


Oe eee ed Oe ee Se ee ee 


CHARACTER IS A DELIMITER” (1,6, NEITHER A DIGIT NOR A LETTER 
CHARACTER S$ EITHER AN UPPER CASE OR A LOWER CASE LETTER 
CHARACTER IS AN OCTAL DIGI? 

CHARACTER 1S a DECIMAL DIGIT (8 OR 9) 


SAVE THE EIGHT-BIT ASCII CHARACTER 
AC < 0 FOR DELIMITERS 


CHARACTER JS A DELEMITER 
AC < 0 FOR OCTAL DIGITS 


CHARACTER IS AN OCTal DIGIT 
AC <€ 0 FOR DECIMAL DIGITS 


CHARACTER IS A DECEMAL DIGIT 
AC <3 0 FOR DELIMITERS 


CHARACTER IS A D&LEMITER 

MAP LOWER CASE INTO UPPER CASE 

AC <€ 0 FOR LETTERS -- Lsi FOR LETTERS! L*9 FOR DELIMITERS 
THE CHARACTER IS A LETTER 


LOAD THE DELIMITER 
SAVE IT 


RELOAD THE CHARACTER 


WAIT FOR THE TELEPRINTER TO BE FREE 


TTYNON 


910622 
010623 
010624 


05/31/72 
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700301 
700406 
625503 


010625 
003505 


010625 
014626 
010627 
010630 
010631 
010632 
010633 
010634 
010635 


760215 
1035503 
760245 
103503 
760212 
1055035 
700404 
610653 
625505 


004042 


002170 
003344 


01+035%23 


3270 
3280 
3290 
3500 
3310 
3520 


3330 
3340 
3550 
3360 
3370 
3380 
3590 
3400 
3410 
3420 
3430 
3449 
3450 
3460 
10060 
10070 
10080 
10090 
10100 


CRLF 


NEXT, 


CATLOG 
FORCE 
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(MTSS TELETYPE HANDLER) MISCELLANEQUS CHARACTER-HANDLING SUBROUTINES 


SMONSYM 
M 
BUFFER 
DSFORCE 
MTSSCaAT 


KILL-THEeQUTPUT FEATURE 
PRINT THE CHARACTER IN THE AC 


WAIT FOR THE TTY TQ SETTLE 


TURN OFF THE INSERT'$ WEAD SYMBOL 


GEY BaCK UNDER THE mMaIN WEAD SYMBOL 
REDEFINE THE CATALOG BUFFER 
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MTSSCaT 


05/31/72 


M 


400 
110 
120 
130 
£40 
150 
460 
170 
180 
490 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
310 
520 


01903323 


ee#e eee ce Pe ese ebeeceeoee see esceean eevee eean eee ee eee e 
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sSTITL DESCRIPTION OF THE GROWTH SYSTEM CATALOG STRUCTURE 
sHBAD C 


MAJOR REVISION == JAN 21, 1972 BY ROBERT W, BLEAN 


A GROWTH CATALOG FOR A FILE-ORJENTED DEVICE IS LOCATED IN THE 4090 WORDS 
OF LOGICAL BLOCK 1 OF THE LOGICAL DEVICE, THIS PERMITS DISK AND DECTAPE 
70 BE USED INTERCHANGEABLY BY THE GROWTH SYSTEM PROGRAMS, 


THE DEVICE ADDRESS OF a HANDLER IS THE HANBLER NUMBER IN BITS 0-2 
AND TME TYPE (DISK (1) OR DECTAPE (0)) IN BIT 3, 


THE DEVICE aDDRESS OF , FILE IS THE DEVICE ,DDRESS OF THE HaNDLER IT 
1S ON PLUS IN BITS 8=17 ITS STARTING BLOCK NUMBER, 


ALL DEVIC& ADDRESSES IN a DECTAPE CATALOG ARE CORRECY FOR THE HANDLER 
THE TAPE WAS MOUNTED ON THe LAST TIME IT WAS ALTERED, 


THE FIRST FOUR WORDS OF THE CATALOG BLOCK ARE A HEADER! 
14) THE DEVICE ADDRESS OF THE FIRST FREE BLOCK ON THE DEVICE 
2) POINTER TO TWE FIRST FREE WORD IN THE CATALOG MINUS ONE PLUS THE CATALOG'S CORE ADDRESS 
3) TWOS COMPLEMENT COUNT OF THE NUMBER OF FILES CaTaLOGED 
4) TWOS COMPLEMENT MAXIMUM BLOCK NUMBER ON THE nEVICE 


THE REMAINDER OF YHE CaTALAG CONSISTS OF aA SERIES OF FIVE WORD FILE-~ 
CONTROL BLOCKS, THE FIRST FILE CONFROL BLOCK IS FOR THE CATALOG ITSELF, 
THEN THERE IS ONE FILE CONTROL BLOCK FOR EACH FILE ON THE DEVICE, 


FORMAT OF THE FILE CONTROL BLOCKS 
1) THE FIRST WORD IS THE S1RBIT ASCII CEIGHTBIT ASCII ~ 240) 

FILENAME. THIS MEANS THE FILENAME ES RESTRICTED TO THREE 
CHARACTERS, WITH NO EXTENSION OR PASSWORD, 

) THE DEVICE ADDRESS OF THE FILE, 

) THE FILE'S CORB ADBRESS 

) THE FILE'S LENGTH ¢€IN WORDS) 

> THE PROGRAM ST,4RT 


THIS LEAVES TWO WORDS OF THE CATALOG BLOCK UNUSED, I7 IS SUGGESTED THaT 
THE SECOND OF THESE CONTAIN THE BLOCK NUMBER OF a CONTINUATION OF THe 
CaTaLOG, SWOULD THIS EVER BE NECESSARY) [7 WOULD BE ZERO IF THERE 

$8 NO CONTINUED CATALOG BLOCK, 
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c GROWTH SYSTEM STANDARD CATALOG ROUTINES 
530 SSTITL GROWTH SYSTEM STANDARD CATALOG ROUTINES 
003507 540 ,USE IMPYRE 
550 
905507 000000 3860 CTEM ,DSA CATALOG ROUTINE'S PRIVATE TEMP 
010636 570 WSE PURE 
560 
590 
600 * 
610 * RCAT *- THE BASIC CATALOG ROUTINE, IT READS IN CATALOGS AND UpDATES THEM 
620 a FOR THE CURRENT DEVICE AND (POSSIBLY NONwSTANDARD) CATALOG LOCATION, 
650 * 
640 « 
650 * A HANDLER DEVICE ADDRESS IS PASSED IN THE ac, THE REQUESTED 
660 * CATALOG IS READ IN AND ALL OF THE BEVICE ABDRESSES aRE UPDATED, 
670 * AS A RESULT, THE CATALOG IN CORE ALWAYS HAS THE PROPER DEVICE ADDRESSES 
680 * FOR THE DEVICE IT WAS READ FROM, 
690 ,) 
700 * RETURN IS #4 WHEN THE DESIRED CATALOG IS IN CORE, 
710 « 
720 * IN THE EVENT OF YVRECOVERABLE ERROR, EXI7¢ Ig 70 AN ERROR ROUTINE. 
730 « 
010696 740 ENTER RCAT 
PMC SAVE,ON 
003540 RCAT ben 
010636 043507 750 pac CTEM, SAVE THE DEVICE ADDRESS OF TWE DEVICE WHOSE CATALOG IS BEING REQUESTED 
010637 4103314 760 JMS M$FORCE FORCE THE OLD BUFF@R BEFORE READING A NEW ONE 
970 
010640 780 RCATL iat 
010640 203507 790 Lac CTEM, 
010641 813301 800 AND (DVCMSK) GE? THE NEW HANDLER'S DEVICE ADDRESS 
010642 042153 4810 pac D$BDA SET THE HANDLER DEVICE ADDRESS 
010643 313307 820 AND (040000) RECOVER JUST THE D&SK/DECTAPE BIT 
010644 740200 830 8ZA SKIP FOR DOCTAPE 
010645 313330 840 Lac (SSYSBAS) ELSE LOAD THE DISK SYSTEM BASE ADDRESS 
010646 242333 854 XOR D$BDA ADD THE BASE ADDRESS INTO THE MANDLER DEVICE ADDRESS 
010647 253331 860 XOR (SCATBLK) ADD IN THe CATALOG BLOCK NUMBER 
0140659 042133 8706 pac DSBDA SAVE THE NEW CATALOG'S DEVICE ADDRESS 
010651 762179 880 LAW BUFFER LOAD A POINTER TO FHE BUFFER 
010652 042154 890 pac D$BCA SET IT AS FHE CORE ADDRESS 
010653 213424 900 Lac (400) LOAD THE LENGTH 
010654 042155 940 bac DSBLEN SET [YT AS THE BUFFER LENGTH 
010655 4103512 920 JMS CSRCOVR SEY UP THE ERROR RECOVERY 
010656 770663 930 Law RCATS 
910657 652000 940 MQ LOAD THE RESTART ADDRESS 
010660 762153 950 Law D$BDA GET A POINTER TQ TAE CATALOG PARAMETERS 
010661 705003 960 PREAD READ JN THE NEW CATALOG 
010662 610716 970 ATL RCVR4 IN CASE OF ERROR 
980 * 
990 * NOW UPDATE THE DEVICE ADDRESSES 
1000 * 
010663 203507 1010 RCATS Lad CTEM4 


010664 515301 1020 AND (QVCMSK ) 


MTSSCal 


010665 


010666 
010667 
010670 
0106714 


040672 
010673 
010674 
010675 
010676 


010677 
010700 
010701 
010702 


010703 
010704 
010705 


010706 
010707 
049740 
010741 
010742 


05/31/72 
Cc 
043507 


202170 
5135336 
243507 
042170 


762175 
045314 
043515 
202172 
043542 


223314 
$13336 
843507 
069515 


443542 
741000 
623540 


205314 
353425 
043344 
045545 
610677 


01503823 


RCATS4 
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GROWTH SYSTEM STANDARD CATALOG ROUTINES 


CTEML 


CATLOG 
(BLKMSK) 
CTEM4 
CATLOG 


CATLOGe5 
M$FORCE 
CaTL 
CATLOG#2 
RCOVR 


MSFORCE,X 
(BLKMSK ) 
CTEM4 
CATLsX 


RGOyR 
RGAT Xx 


MSFORCE 
(FCBLEN) 
MS$FORCE 
CaTL 
RCGAT4 


SET THE CURRENT DEVICE ADDRESS 


UPBATE THE OLD D&VECE ADDRESS OF THE FIRST FREE BLOCK 


SET POINTERS TO THE FIRST OLD DEVICE ADDRESS 
SE? THE COUNT OF FCBtSs 

LOAD THE NEXT OLD DEVICE ADDRESS 

RECOVER THE BLOCK NUMBER 

ADB JN THE CURRENT HANDLER DEVIGE ADDRESS 
SAVE THE UPDATED FILE DEVICE aDDRESS 

COWNT THE FILES DONE 

ALL DONE 


LOAD THE FCB POINTER 
ADVANCE {T 70 THE NEXT FCB 


SAVE YHE NEW POINTER 
LOOP 
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Cc GROWTH SYSTEM STANDARD CATALOG ROUTINES 
1300 »EWGECT 
1310 
1320 
1330 
010743 1340 ENTER RGOVR SUBROUTINE TO SET WR RECOVERY FROM HARDWARE ERRORS 
» PMC SAVE,QN 
003512 RGOVR pak 
010743 777776 1350 LAW 2 SET FOR FIVE RETRIES BEFORE GIVING UP 
010794 043514 1360 pac ERCNT 
010745 623512 1370 JMP RCOVR,X 
1380 
010746 1390 RGyR4 MeSSs <DEyICE ERROR>,12, 
010726 4435144 4400 1$z ERCNT COUNT THE ERROR 
010727 623512 1410 JMP RCOVR,X 
010730 4420 RCVRS MESS <TYPE 'IGNORE! OR 'CONTINUE'! >,29, 
010746 1430 LIN& GET THE USER'S ANSWER TO WHAT HE WANTS TO pO apour IT 
010747 1440 WORD READ HIS ANSWER 
0197890 610730 1450 JMP RCVRS5S NO INPUY IS ILLEGAL 
010754 850756 41460 $aD IGN 
010752 604012 4470 JMP SNEXTL IGNORE THE LAST COMMAND 
010753 850737 1480 8aD CQN 
010754 603513 1490 JMP RCOVRet SE’ UP TO FRY AGAIN 
010785 610730 1500 JMP RCVRS ANY OTHER ANSWER [8 ILLEGAL 
003544 4510 USE IMPURE 
005544 000000 41520 ERCNT DSA 
010756 4530 USE PURE 
0107686 814756 4540 TGN eAG16 +] GNe 


010787 435756 1550 CQN »ACT6 = CON? 
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C GROWTH SYSTEM STANDARD CATALOG ROUTINES 
1560 vEVECT 
14570 a 
4580 * cat, 
1599 « 
1600 . CATL SEARCHES THE CATALOG IN CORE. FOR THE FILENAME 
4610 a PASSED IN THE AC 
4620 * 
1630 * RETURN +2 WITH CATX POINTING TO TWA FILE NAME IF SUCCESSFUL 
1640 * 
1650 * RETURN +1 WITH CATX POINTING TO THE FIRST FREE SpACE ~¢ IN THE 
4660 . CATALOG IF TWE FILE NAME IS NOT FOUND 
4670 « 
010760 4680 ENTBR CATL 
,PMC SAVE,QN 
003545 CATL s 
010760 043326 1690 bat TSWORDB SAVE CATALOG NAMB 
470 4 
4710 * FIRST CHECK WHETHER OR NOT THIS [S a SPECIAL FILE 
4720 * 
010761 203531 4730 Lac CDFLG LOAD THE CORE/DISK SPECIAL FILE FLaG 
010762 744200 1740 $NA SKIP IF 17 13 SET 
010763 6114005 ie JM® CATL4 NQ ~~ THEREFORE {Y 18 A NORMAL FILE 
476 * ; 
4770 * PIND QUT WHICH KIND OF SPECIAL FIL® WE ape TALKING agpourT 
4780 * 
010764 14790 WORDS 
010765 543517 1800 $aD CORE 
010766 614024 1810 Jme COREL IT IS THE WSBER CORE FILE 
010767 543523 4820 $ad DISK 
010770 611036 1830 Jme DISK1 17 IS THE USER DISH FILE 
010771 4840 MESS CILLEGAL SPECIAL FILG>*20 
011004 605345 1850 ume MSNEXTL GET THE NEXT COMMARD 
1860 * 
4870 * NEXT CHECK FOR NORMAL FILES 
1680 * 
011005 762173 4890 CATL4 LAW CATLOGeS 
811006 040011 141900 Dad SCATX SET a POINTER TO THE FIRST FoB IN THE CaTalLOG AUTO-INDEX REGISTER 
011007 202172 1910 LAG CATLOGe2 GET CATALO@ COUNT 
011040 043507 4920 "pag CTEM, Save IT 
014041 4930 CaTL WORDS RESTORE NAME TO S&&aRCH FOR 
filo12 60041 1940 Sad SCATX,X CHECK JT 
Bilow3 611022 1950 JMP CATLO FOWND IT 
811044 200011 1960 ac SCATX 
011045 353343 41970 AD (FCBLEN#4) FAILED ~» MOVE THE PO;NTER TO THE NEXT FILE CONTROL BLOCK 
011046 040041 1980 pac SCATY 
Piloa7 443507 14990 182 CTYEM4 COUNT 
911020 $1141011 2000 JMP CATLL LOOP 
11021 623515 2010 Jue CATL,X EXWAUSTED, NO FILE FOUND -- BAD RETURN 
11022 443515 2020 CATLO {82 CATL GOOD RETURN 
011023 623515 2030 JMP CATL.»X 


2040 
2050 * SPECIAL CATALOG AND ROUTINES FOR THE USER CORE IMAGE 
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C GROWTM SYSTEM STANDARD CATALOG ROUTINES 
2060 ® 
003547 2070 USE IMPURE 
003547 435762 2080 CORE ,ACI6 = *COR® 
003520 0900000 2090 CORDA ,DSA DISK AQDRESS OF THE USER CORE IMAGE 
005591 002000 2100 CQORCA BOUNDARY STARTING CORE ADDRESS OF THE USER CORE 
003522 014000 2110 CORLN CORMAX-BOUNDARY LENGTH OF USER CORE 
2120 
011024 2130 USE PURE 
011024 2140 COREL vest SEY UP THE USER CORE IMAGE AS A FILE 
011024 2150 MPOFF 
sPMC SAVE,QN 
011024 705000 SPBACIAL+0 TURN OFF MBMORY PROTECT 
911095 204766 2169 Lac SUCORE LOAD THE YSER CORE IMAGE DISK ADDRESS 
011026 744000 2170 CLL PROTECT THE SHIFT 
911027 640510 2180 LRS 8, MAKE THE PHYSICAL ADDRESS INTO A BLOCK ADDRESS 
911080 253307 2190 XOR (040000) SET THE DISK BIT ON 
911031 043529 2200 Bag CORDA SEY JT IN THE TEMPORARY CATALOG 
011032 704742 2210 MPBY REw ENABLE USER MODE 
911033 763547 2220 Law CORE LOAD A POINTER TO WHE CATALOG 
911034 040041 2230 DAG SCATX AND PASS {¥ TQ THE CALLER 
011035 614022 acae JMP CATLO EXIT 
& 
2260 * SPECIAL CATALOG AND ROUTINGS FOR HE USER wRHYSICAaL DISK 
2270 « 
0035283 2280 USE IMPYRE 
0055Q3 445163 2290 DISK ACT6 *DISe 
905594 900000 2300 DISOA ,DSA DISK ADDRESS OF THE USER "PHYSICAL DISK 
9055@5 000000 2310 oUSCA ] MINIMUM YSER WPHYSIcaL pISk* appRESS 
. 903526 916000 2320 DISLN  SDKLEN LENGTH OF THE USBR “PHYSICAL DISK" 
2330 
014096 2340 ,V8E pVRE 
011096 23550 DISKkt tes 
011036 2360 MPOFF 
s PMC SAVE,ON 
911036 709000 SPECIAL+0 TURN OFF MBMORY PROTECT 
911037 204767 2370 Lag SUDISK LOAD THE YSER "PHYSICAL DISK" DISK ADDRESS 
911040 744000 2380 CLL: PROTECT THE SHIFT 
011041 640510 2390 LRS 8, Make TRE PHYSICAL appRESS INTO a DISK appREess 
011042 353307 2400 XOR (040000) SEY THE DISK BIT ON 
011043 049524 2410 bac DISDA AND SET JY IN be TEMPORARY CATALOG 
011044 704742 2420 MPEY RE-ENABLE USER MODE 
911045 763523 2430 AW DISK LOAD A POINTGR TQ THE CATALOG 
911046 040041 2440 Dac SCATX pABS IT TO THE CALLER 


611047 614022 2450 JMP CATLO EXIT 


MTSSCaT 


C 


011090 


003527 
911050 143531 
011051 
911052 611105 
011053 
—©§11054 553304 
011955 61459461 
911056 103534 


911057 623527 
011060 614071 


011061 771065 
911062 043532 
0114063 
911064 611121 
611065 623527 
011066 

01 
911070 
0140714 
911072 553376 
611073 611100 


011074 
011075 741200 


911104 623527 


003531 
005531 000000 


05/31/72 


2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 


2600 
2610 
2620 
2630 
2640 
2659 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2799 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2936 
2940 
295) 


01403423 


esweesee ees ss &Sseee 


GNAME 


GNAM4 


GNAM2 


GNAM3 


GNAMS 


GNAME6 


GNAMS 


*e®e2se#st 


COFLG 


PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


»EJECT 
GNAME 


GROWTH SYSTEM STANDARD CATALOG ROUTINES 


GNAME GETS a FILE NAME FROM THE TTY BUFFER 
AND READS IN THE CATALOG IF NECESSARY 


RETURN IS #4 FOR PAPER TAPE DESIRED 
RETURN IS #2 FOR SUCCESS ON DISK OR DECTAPE 
OTHERWISE EXIT IS TO FORMAT ERROR 


THE FILE NAME IS RETYRNED IN TSWORBDB AND IN THE AC, 


CHECK FOR A SpECIAL FILE REQUEST (8,6, 


USE 
.DSA 


GNAME 
SAVE,ON 


COFLG 
GNAM90 


(SCOLON) 
GNAM2 
PAPER 
GNAME , X 
GNAMS 


GNAMS 
DEVCV 


DEVC3 


GNAME, X 
RCAT 


(S$SLASH) 
GNAMES6 


GNAM8 


TSWORDB 
GNAME 
GNAME, X 


IMPURE 


INITIALIZE THE SPECIAL FILE PLAG 

GET A WORD OF SIX BIT aSCl! 

CHECK FOR A SPECIAE FILE IF a DELIMITER IS FIRST CHARACTER 
GEY THE DELIMITER 

CHECK FOR COLON 


CHECK FOR PAPER TaPe 
YES ~- PAPER TARB 
NO «- SQ USE CURRENT CATALOG 


RELOAD THE CATALOG NAME 
CONVERT {7 TO A DEVICE ADDRESS 


READ IN THE CATALOG 
GET ANOTHER WORD 


GET THE DELIMITER 

CHECK FOR SLASH 

LOOK FOR QCTAL 

ELSE RECOVER THE SIXgIT NAME 

CHECK FOR ALL SPACES 

FORMAT ERROR -~- ALL SPACES 18 AN ILLEGAL NAME 


GET THE NUMBER 


70 BE COMPATABLE WITW SIXBIT [NPUT 
GOOD RETURN 


'CORE' OR 'DISK') 


FLAG FOR PRESENCE OF SPECIAL FILE REQUEST 
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05/31/72 
C 


0114105 


011105 
011105 


011106 
011197 
011420 


011141 
911142 
011143 
6111414 


553304 
741000 
611056 


213426 
043326 
443531 
611061 


2960 
2970 
2980 
2990 
3000 
3910 
3020 
3030 
3040 
3050 
3060 
3070 


01405323 


GNAM9Q 


PpP9 TIME=SWARING SYSTEM MONITOR AND MESSAGE ROUTINES 


USE 


eee 


DELIM 
Sad 
SKP 
JMP 


Lac 
pac 
{NX 
MP 


GROWTH SYSTEM gTANDARD CATALOG ROUTINES 


PURE 


(SCOLON) 
GNAM1L 


($DKO) 
TSWORDB 
CDFLG 
GNAM2 


RECOVER THE DELIMITER 

CHECK FOR A VACUOUS COLON 

YES -~ IT IS A SPECIAL FILE 

NO ~~ RETURN TO NORMAL PROCESSING 


LOAD THE JMPLIED SYSTEM DISK MNEMONIC 

FAKE THAT JT WAS TYPED 

FLAG THE SPECIAL F&LE REQUEST 

RESUME NORMAL PROCBSSING OF THE FAKED INPUT 
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05/31/72 
Cc 


012115 


005532 
0143145 
014116 


011147 
011120 
911121 
911122 
011123 
911124 
0141125 
911126 
011127 
911130 
0111314 
011132 
011133 


403534 
623532 
513303 
553427 
6141335 
553430 
611133 
§53431 
6114141 
604026 
650004 
744000 
650000 


011154 


041135 
911136 
041137 
611140 


640647 
513301 
443532 
623532 


014141 
011141 


11141 
011142 
811143 
611144 
911145 


911146 


705000 
204770 
7014742 
740200 
611131 


205534 


024903:23 


see oeve epexses 8 & 


DeEVCV 


O&VCS 


DEVC35 
Devct 


PDP9 TIME=SHARING SYSTEM MON! TOR AND MESSAGE ROUTINES 


»EJECT 


GROWTH SYSTEM STANDARD CATALOG ROUTINES 


DEVCV -- READS THE NEXT WORD. 
RETURN IS 64 WITH THE NAME IN THE AC IF IT IS A PAPER TAPE CALL 


OTWERWISE IT ATTEMPTS TO CONVERT THE NAME T0 DEVICE ADDRESS FORMAT, 


YF SUCCESSFUL, 


IT RETURNS «2 WITH THE HaNDLER NUMBER IN AC(0-2) AND 


THE DEVICE TYPE (DISK (4) OR DECTAPE (0)) IN AC(3), REMAINING BITS 
ARE ZEROED, 


EXIT 1S TQ TWE FORMAT BRROR MESSAGE IF THE DEVICE IS NEITHER PAPER TAPE 
NOR DISK NOR DECTAPE, 


DEVCY 
SAVE,ON 


PAPER 
DEVCV,X 
(777700) 
(STP.) 
Devcy 
($DT,) 
DEVC1 
($OK,) 
DEVC4 
M$MONX2 


18.3 
(DVCMSK) 
DEVCV 
DEVCV,X 


GET THE DEVICE NAME 


CHECK FOR PAPER TABE 
YE6 -~ PAPER TAPE 
REMOVE DEVICE NUMBER 
CHECK FOR DECTARE 
YES 

CHECK FOR DECTAPE 


CHECK FOR DISK 

IT IS DISK ~- CKECK FOR VALIDATION 

NO OTHERS »+- MAYBE I7 IS &A COMMAND 

FORM DISK PUT THE SIGN BIT ON IN THE MQ 


CLBAR Q FOR TAPE 

RESTORE NAME 

SHIFT TO POSITION 

CONVERT TO HANDLER DEVICE ADDRESS FORMAT 
INCREMENT RETURN 

AND NOW RETURN 


DISK FILE OPERATIONS ARE PERMITTED ONLY FOR VALIDATED USERS 


MPOFF 

PMC SAVE,ON 
SPECIAL+0 

LAC SVALID 

MPBY 

SZA 

JMP DEVC35 


CHECK FOR A SpECIAL FILE OpERATION -- IF S8, 


LAC 


COFLG 


TURN OFF MEMORY PROTECT 
LOAD THE YSER'S VaLIDATION WORD 


SKIP IF THE USER IS NOY VALIDATED 
ELSE THE QPERATION CAN PROCEED 


IT 1S ALLOWED 
LOAD THE SPECIAL FELE FLAG 
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911147 
011150 


05/31/72 
C 


740200 
611131 


011151 


611166 


605345 


014167 


003534 


011167 
011170 
011171 
011172 
011173 
011174 
Preey 

11176 


553432 
625534 
553433 
623534 
5534354 
6235354 
443534 
623534 


3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 


3680 
3690 
3700 
3710 
3720 
3739 
3740 
3750 


01703325 


PAPER 


PDP9 TIME=SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 
GROWTH SYSTEM STANDARD CATALOG ROUTINES 


SZA SKIP IF NOT SET =- THEN THE OPERATION IS ILLEGAL 
JMP DEVC35 1T 1S A SPECIAL FILE OPERATION» SO ALLOW IT 


DISK OPERATION JS ILLEGAL 


MESS <DISK OPERATION IS FORBIDDEND, 27, 
JMP MSNEXTL GET THE NEXT COMMAND LINE 


PAPER CHECKS THE AC FOR a RAPER TAPE MNEMOMIC, IY RETURNS 44 IF IT 
FINDS ONE, ELSE RETURNS #2, THE ac JS UNCHANGED, 


ENTER PAPER 
PMC SAVE,ON 


ee 


SAD (SPPT) 

JMP PAPER ,X 

Sad ($PTR) 

wMP PAPER, X 

SaD ($PTP) 

JMP PAPER, X 

182 PAPER NO PAPER TAPE MNBMONIC 


JMP PAPER,X 
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C 


011177 


003536 
013177 105515 
011200 741000 
911201 6235536 
011202 202172 
911203 553435 
911204 641217 
911205 353332 
911206 042172 
911207 2092171 
011210 3535425 
011241 04214171 

011212 
811243 060011 
011244 4427156 
011245 443536 
911246 623536 


011217 
011227 604012 


014250 


005540 
011230 353353 
011231 660510 
011232 043507 
011233 202170 
§11234 652000 
041235 343507 
§11236 043507 
911237 513336 


3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 


3870 
3880 
3899 
3900 
3910 
3920 
3939 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4159 


4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 


01403323 


zs e*e¢eoe ee & & & 


SAVE 


CFULL 


se vzpoe8e es & & 


ALC 


PDP9 TIME-SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 
GROWTH SYSTEM STANDARD CATALOG ROUTINES 

, EJECT 

SAVE CHECKS THE CATALOG FOR THE NAME FOUND IN THE aC 

RETURN IS #4 IF THE FILE IS ALREADY SaVep 

A CATALOG ENTRY IS CREATED FOR THE NAME AND RETURN [S ¢2 OTHERWISE 
EXITS TO AN ERROR MESSaGE IF THE CATALOG IS FULL 

ON RETURN CATX POINTS TO THE FILE NAME IN HE CATALOG 
ENTER SAVE 

2 PMC SAVE,ON 

[ee | 
JMS CATL LOOK UP NAME 
SKP 

WMP SAVE,X DONeT ALLOW DUPLICATES 
Lac CATLOG*#2 LOAD THE FCB COUNT 

Sad (CATMAX) CHECK FOR CATALOG ALREADY FULL 
JMP CFULL YES -- EXIT TO ERRAR MESSAGE 

TAD (#1) COUNT THE NEW FILE 
DAC CaATLOG*2 UPDATE THE FCB COUNT 

Ac CATLOG#1 GET FREE POINTER 

AD (FCBLEN) ADD ONE FILE CONTROL BLOCK LENGTH FOR THE NEW ENTRY 
Dac CATLOGe1 
WORD RECOVER THE FILE NAME 
DAC SCATX,X SAVE IT 

{sz DSBALT FLAG THE CATALOG HaS BEEN ALTERED 

sz SAVE 

JMP SAVE,X 
MESS <CATALOG FULL>,12. 

JMP SNEXTL, 

ALC RECEIVES A WoRD COUNT IN THE aC AND CALCULATES THE LEAST INTEGER 
NUMBER OF BLOCKS THAT CAN HOLD THAT LENGTH, IT THEN aLLOCATES THE STORAGE 
IN THE CORE CATALOG HEADER aNp RETURNS WITH THE DEVICE ADDRESS OF THE 
FIRST FREE BLOCK IN THE ac, 

EXIT Is TO AN ERROR MESSAGE IF THIS ALLOCATION WOULD RESULT IN 
OVERFLOWING THE DEVICE, IN TRIS CASE THE CATALOG IS UNALTERED, 

ENTER ALC 

,PMC SAVE,ON 

yee 
Tad (377) ROUND UP TO A BLOCK 
LRSS 8, AC = MINIMUM INTEGER NUMBER OF BLOCKS REQUIRED 
Dac CTEMY SAVE IN a GOOD RANDOM PLACE 
LAC CATLOG GET THE POINTER TO THE FIRST FREE RLOCK 
LMQ SAVE IT 
TAD CTEMY ADD THE REQUESTED NUMBER OF BLOCKS TO FORM A NEW POINTER 
pac CTEMY SAVE THE NEW POINTER 
AND (14777) EXTRACT BLOCK NUMBER 
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C 
011249 342173 
Q11241 740100 
011242 611247 
911243 203507 
011244 042170 
011245 644002 
911246 623540 
014247 
041257 604042 


4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 


01505123 


OF YL 


PDP9 TIME~SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


TAD 
UMA 
JMP 
Lac 
Dac 
Laca 
JMP 


MESS 
UMP 
END 


GROWTH SYSTEM STANDARD CATALOG ROUTINES 


CATLOG#S SEE IF WE OVERFLOWED THE DEVICE 
NO IF SKP 
DFULL FULL -7 HELPS?iea 
CTEM4 
CATLOgG SET TwE FREE FCB POINTER NOW WE KNOW IT Well BE OK 


RESTORE THE DEVICE anDRESS OF THE FIRST FREE BLOCK 
ALC,*X 


<DEVICE FylLlL>,11, 
SNEXTL 
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C 
011260 
911260 604004 
911261 611305 
911262 611321 
011263 611344 
011264 611332 
911265 611365 
911266 611377 
911267 611412 
811270 611466 
011271 611447 
011272 611424 
611273 611506 
911274 611522 
777763 
011275 
911277 604012 
911300 202000 
911301 744002 
011302 
911304 604004 
014305 
011320 6611300 
011321 
011331 611300 
011352 
011343 6411300 
011344 
011355 ?02001 
011356 
011360 


011364 611300 
011365 


01903:23 


101410 
10120 
101350 
10149 
10150 
10169 
40170 
10180 
10190 
10200 
10210 
10220 
402350 
10240 
10250 
10260 
10270 
40280 
10290 
10300 
40310 
10320 
10350 
10340 
40350 
10360 
40370 
103860 
40390 
10400 
40410 
40420 
10450 
40440 
10450 
40460 
40470 
10480 
10490 
10500 
10510 
10520 
10530 
40540 
10550 
40560 
10570 
10580 
10590 
10600 
10610 
10620 


* 
MSGPTR 


MSGMAX 


MSGOCT 


ADDOCT 


MSG5 


p i 
DP9 TIME-SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


sSTUTL 
,VSE 
» MEAD 
MSGo: A 
MSGi-9: 


SYSTEM MESSAGE OUTPUT ROUTINES 


SYSTEM MESSAGE OUTPUT R 
ed UT ROUTINES 
M 
CALL FOR MESSAGE #0 IS A 
| MONITOR CA 
RESERVED FOR MEMORY PROTECTION OVERLAY #1 (MP1) 


MSG10-19: RESERVED FOR MEMORY PROTECTION OVERLAY #2 (MP2) 


M§G650-59: 
50-59 cece ee Bele MESSAGES, MONITOR TRANSFERS DIRECTLY 
ESSAGE ROUTINES, NOT GOING THROUGH THE SORTING PROCEDURE 


JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
UMP 
JMP 
UMP 
JMP 
JMP 
JMP 


»EQV 


octZ 
JMP 


Lac 
STL 
ocTz 
JMP 


MONMSG 
MSG41 
MSG2 
MSG4 
MSG3 
MSGS 
MSG6 
MSG7 
MSG8 
MSG9 
MSG10 
MSG114 
MSG42 


MSGPTR-, 


PRINT THE AC IN ZERQRSU 
MONSYM GET THE NEXT LINE : Oper? Cees 
TEMPO 

SUPPRESS LEADING ZEROES 

PRINT THE ERROR ADBRESS IN OCTAL 


MONMSG PRINT THE MONITOR HEADER 


MP1 MESSAGES, GENERALLY PRINTING THE PC aS WELL 


MESS 
JMP 


MESS 
JMP 


MESS 
JMP 


MESS 
Lac 
oct 
NMESS 
yup 


MESS 


<JTLLEGAL TRANSFER TO >220, 


aDbDOocT PRINT THE LOCATION OF THE VIOLATION 
<BAD ADDRESS: 5,13. 

ADDOCT mete 

<CHAINED XCT! F 

ADDOCT ey 

<ILLEGAL OP CONDE >»16, 

TEMP4 LOAD THE OP CODE 

< AT >04 

appocT 


<PROGRAM HALTED: >,16. 
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MTR--B05 


M 
011376 611300 


011377 
011441 611300 


014442 
911423 611300 


011424 
011446 611300 


011447 
011465 611300 


011466 
911505 611300 


014506 
911521 614300 


0114582 
B11530 611300 


05/31/72 


017035823 


10630 
10640 
10650 
10660 
40670 
40680 
10690 
40700 
40710 
10720 
10730 
10740 
10750 
40760 
40770 
10780 
10790 
10800 
10810 
10820 
408350 
10840 


MSG6 


MSG7 


MSGi0 


MSG9 


MSG8 


MSG14 


MSG12 


PpP : 
DP9 TIME-SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


JmP 


MESS 
JMP 


MESS 
JMP 


MESS 
MP 


MESS 
JMP 


MESS 
umP 


MESS 
JMP 


MESS 
JMP 


SYSTEM MESSAGE QUTPUT ROUTINES 


ADDOCT 


<DEVICE OVERFLOW: >,17+ 


ADDOCT 


<CORE OVERFLOW: »,15-. 


ADDOCT 


<DEVICE TRANSFER TO/FROM PROTECTED MEMORY: >,42, 


ADDOCT 


<UNASSIGNED DEVICE REQUESTED! >,29, 


ADDOCT 


<NON@EXISTANT DISK REFERENCED! MESS>,30. 


ADDOCT 


<FILE NOP FOUND: 


ADDOCT 


<CAL! 39,5 
ADDOCT 


MESS>+16, 
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MTR--B05 05/31/72 01403123 PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES Sige Sie 


M SYSTEM MESSAGE OUTPUT ROUTINES 
10850 »EVECT 
40860 »HEAD M,C,7,D,0 
10870 * 
10880 a MONITOR MESSAGES RETURN TO PRINT MONITORBREADY MESSAGE WHEN COMPLETED, 
10890 * 
10900 
6115314 40910 MSG50 MESS <WHAT! >26 
011537 10920 CMDERR 
10930 
011540 10940 MSG54 iis 
011549 701742 10950 MPEY 
011541 10960 MESS <RESOURCE ALREADY ALLOCATED>, 26, 
011556 10970 CMDERR 
109680 
014557 40990 MSG52 er 
911557 701742 11000 MPEY 
011560 11010 MESS <NOT YOUR RESOURCE>,17, 
014572 11020 CMDERR . 
410350 
011573 11040 MSG53 MESS <{)eee WARNING -~ ILLEGAL MESSAGE NUMBER GENERATED: >,.50. 
911620 202002 11050 Lac TEMP2 LOAD THE ILLEGAL MESSAGE NUMBER 
0114621 41060 OCTZ AND PRINT IT 
011623 604004 411070 JMP MONMSG 
41080 
0114624 41090 MSG54 an 
011624 701742 11100 MPBY 
011625 11110 MESS <BOTH DECTAPE WANDLERS ALREADY ALLOCATED),39, 
011646 41120 CMDERR 
41130 
41140 
011647 41150 MSG56 MESS <FORMAT ERROR: 5,14, 
41160 
011660 41170 MSG57 Mt < WORD # >-8, 
014665 11180 COUNT GEY THE NUMBER OF THE WORD PROVOK THE ERR 
011666 611275 11190 JMP mscocT 0 E WORD PROVOKING THE ERROR MESSAGE 
41200 
011667 11210 MSG58 MESS <VALIDATION ERRORD» 16, 
011700 11220 MPOFF 
PMC SAVE,ON 
011700 705000 SPECIAL+o TURN OFF MEMORY PROTECT 
011701 441770 112350 DZM SVALID INSURE THE USER IS NOT VALIDATED 
911702 701742 11240 MPEU 
011703 604012 aioe JMP MONSYM GET THE NEXT LINE OF INPUT 
011704 11270 MSG59 MESS <ADDRESS OUT OF BOUNDS>,21,. 
011747 11280 CMDERR 
£1290 
014720 11300 ENTER M™SG60 SAVE THE LOCATION QF THE SYSTEM ERROR HERE 
PMG SAVE,ON 
003542 MSG60 eo 


011720 11310 MESS <SYSTEM ERROR! >,14, 
011731 777777 41320 Law 1 


MTR--BO5 05/31/72 
MC 
011732 345542 
014753 
011735 604012 


011736 
011747 


011750 
014761 


011762 
12040 
012042 604023 


012043 
012043 
012044 
014070 
012145 
012134 
012153 
012173 
012247 
012235 
012255 
012273 
012340 
012326 
012356 
012376 
012427 
012446 
012473 
012522 
012549 
012565 
012687 
012631 
012650 
012674 
012675 6094923 


012676 
012676 
0124677 
012743 
012787 
012747 
012761 
012777 
013043 
013027 


01403323 


TD 


11350 
11340 
11350 
11360 
11370 
41360 
41390 
41400 
11410 
11420 
41430 
41440 
41450 
11460 
41470 
41480 
41490 
11500 
41510 
11520 
41530 
41540 
11550 
11560 
41570 
41580 
411590 
41600 
41610 
41620 
11630 
41640 
41650 
41660 
11670 
41680 
11690 
41700 
11710 
41720 
41730 
41740 
41750 
41760 
41770 
41780 
11790 
41800 
41810 
41820 
118350 
41840 


MSG61 


MSG62 


MSG63 


MSG64 


M8G65 
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TAD 
ocrZ 
JMP 


MESS 
CMDERK 


MESS 
CMDERR 


MESS 
MESS 
JMP 


ae | 

CRLF 
MESS 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
MESSR 
CRLF 
JMP 


ere 

CRLF 
MESS 
MESS 
MESS 
MESS 
MESS 
MESS 
MESS 
CRLF 


SYSTEM MESSAGE OuTrPuT ROUTINES 

MSG60 RECOVER THE LOCATION OF THE SYSTEM ERROR 
MONSYM GET THE NEXT COMMAND 

<FILE NOT FOUND! 3-16, 


<CAN'T CATALOG I7>,16, 


<FoR A LIST oF MeNITOR CoMMANDS TYPE 'EX 
PLAIN COoMMANDS!>,54 
<FOR A LIST OF MYSS ALLOCATABLE RESOURCES TYP 
— 'exp RES 

MONXT PICK UP THE NEXT COMMAND BAPLALN GEDQURCES > 165: 


<BAS -» CALLS S-USER PROGRAM 1tBASIC INTERPRETER), 47 

<BYE -» CLEARS USER FLAGS, DE-ALLOCAT URCE 

< PERGES USER CORE AND USER ecu Mogren 

<CAF <= CLEARS ALL USER HARDWARE FEAGS>,37. 

<CAT == CALLS PHANTOM PROGRAM 'CATALOG!’>,38. 

<CON ~» CONTINUE BEGINS TO EXECUTE CURRENT USER CORE>.51 

< AT CURRENT REGISTER VALUESS, 33. _, 

<DEB ~~ CALLS S-USER PROGRAM 'DEBUGGER'>,3e, 

<DDT -= CALLS PHANTOM PROGRAM 'DDT'>,34, 

CEXP -~ LIST EyPLAINABRE TOPICS>,312, 

Peng: e RGGRTS MESS AND GOOTATIAES GRO! 
-* SS AND BOOTSTRAP WH, 

cacy McLe was. tM sane TSTAAES GhOuiNs REGUIAES CONTROL LINED» 64, 
-- ADD EPLACES USER fc W ; 

cio fe ziCLe Puan PLACES ee ec alia the ADDRESS AND CONTINUES>,66, 
baled ESOURCE! pe-ALLOCATES THE NAMEN RESOURCE>,53 

<ON = 1ON REQQURGE! ATTEMPTS TO A SOUR 

<TRA -© TRANSFER [S THE SAME is Giesiaat De Sipe ere mentors 

<VAL -= REQUES*S UNDERPRINTING FOR A VALIDATION PASSWORD», 55 

<XDU -= SIMPLE OCTAL DUMP FOR SYSTEM DEBUGGING, 45 aie 

<XPA ~* SIMPLE OCTAL PATCH FOR SYSTEM DEBUGGING, 46. 

<ZER -« "ZERO GORE? ZEROES YSER CORED, 35. 

< 1ZERO pi$K! SETS THE ENTIRE USER DISK TO ZERO>,52, 


MONXT PICK UP THE NEXT COMMAND 


<PTR == PAPER FARE READERD, 24, 

<PTP -» PAPER TAPE PUNCH), 25, 

<ACS -* HARDWARE ACCUMULATOR SWITCAHES>,» 36. 
<CNT -» CONTROL LIWE?,19, 

<SCO -~ GRAPHICS I! PERIPHERALS>,30, 

<DTN -= DECTAPE HANDLER #N>,25, 

<TPN -= DECTAPE HANDLER #N>,25, 
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M¢ETD SYSTEM MESSAGE OUTPUT ROUTINES 


015030 604023 411850 JMP MONXT PICK UP THE NEXT COMMAND 
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MCYD MTSS DEBUGGER MESSAGES 
11860 »STITL MTSS DEBUGGER MESSAGES 
11870 HEAD D 
11880 
11890 
141900 
— 013031 11910 MSGLOC ,., 
015031 042000 11920 pac TEMPO SAVE THE AC (= LOCATION OF THE ERROR) 
013082 11930 NMESS < AT >04 
015036 202000 11940 Lac TEMPO 
013037 41950 MSGCT OCTZ 
915001 605345 11960 JMP DSNXLIN 
41970 
013042 11980 MSGWRD 0, 
013042 11990 NMESS < WORD >,.6 PRINT THE WORD COUNT aT THE ERROR 
015046 12000 COUNT 
915047 613037 12010 JMP MSGCY 
12020 
013050 120350 ENTER MSG80 
,PMC SAVE,OQN 
003544 MSG80 eat 
013050 42040 MESS <DDY SYSTEM ERROR>,16, 
015061 2053544 12050 LAC MSGB0 
915062 613034 12060 JMP MSGLOC 
42070 
013063 12080 MSGB4 MESS <FILE CAN'T BE OPENED>?20. 
915076 613942 12090 JUMP MSGWRD 
12100 
013077 12110 MSGB2 MESS <FILE NOT FOUND, 14, 
015140 613042 42120 JMP MSGWRD 
42130 
015141 42140 MSG83 MESS <FORMAT ERRORD,12. 
0151214 6135042 12150 JMP MSGWRD 
12160 
013122 12170 MSGB4 MESS <ILLEGAL MODE OR COMMAND>,23. 
915136 613042 12180 JMP MSGWRD 
12190 
015137 12200 MSGB5 MESS <ILLEGAL DEVICE NUMBER?,21. 
013152 613042 412210 ume MSGWRD 
12220 
013153 42230 MSG86 MESS <VALIDATION ERRORD,16, 
915164 613042 12240 UMP MSGWRD 
12250 
015165 42260 MSG87 MESS <UNDEFINED SYMBOL>,16, 
015176 613042 12270 JMP MSGWRD 
12280 
013177 12290 M$G88 MESS <ILLEGAL HEAD SYMBOL>,.49, 
015241 613042 42300 UMP MSGWRD 
12310 
0135242 12320 MSGB9 MESS <TABLE FULL> +10, 
015221 6135042 £6330 JMP MSGWRD 
4 


015222 12350 MSG90 MESS <NOT FOUNDD»9, 


MTR--BU5 


915231 


05/31/72 
D 
615042 


0152852 


015245 


613042 


017035323 
12360 
12370 
12380 MSG94L 
12390 
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JMP 


MESS 
JMP 


MTSS DEBUGGER MESSAGES 
MSGWRD 


<ADDRESS QUT OF BOUNDS?, 21, 
MSGWRD 
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05/31/72 
D 


015246 


013246 
013247 
015250 
915254 
915252 
615253 
915254 


705000 
700006 
200006 
544771 
6135256 
700046 
7014742 


0135295 


915256 
0135257 
015260 
015261 
915262 
015263 
013264 
615265 
915266 
9153267 
915270 
013271 
015272 


703302 
777377 
040036 
040037 
707074 
215272 
707024 
760002 
707047 
707001 
613267 
617740 
540000 


005546 
003546 
003700 
015273 


0135273 
015274 
915275 
915276 
915277 
915300 
615301 
915302 
015303 
013304 
015305 
015306 
915307 
915340 
015341 
915342 
915343 
915344 


703377 
705375 
705376 
017777 
777763 
014260 
740000 
440010 
777700 
000272 
000260 
037777 
040000 
000336 
000245 
422027 
422026 
422050 


01703%23 


12400 
12410 
12420 
12430 
12440 
12450 


12460 
12470 
12480 
12490 
12500 
12510 
12520 
42530 
12540 
42550 
42560 
12570 
42580 
42590 
12600 
12610 
12620 
12630 
12640 
12650 
12660 
12670 
12680 
12690 
42700 
42740 
12720 


ry 
GRO 


cy 


CHECK 


PDP9 TIME-SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


GROWTH SYSTEM BOOTSTRAP 


ne ase 

»HEAD M,C,T,D 
MPOFF 

oPMC SAVE,ON 
SPECIAL+0 
1OF!CLOF 

LAC SCNTRL 
Sad $NUMBR 
JMP +4 
TONICLON 

MPEY 

WHAT 

CaF 

LAW =401 
Dac 36 

Dac 37 
DLAHe10 

Lac Ci 
DLAL 

Law 2 

DSCF yDSFX;DSCN 
DSSF 

JMP evi 
JMP 17740 
540000 

HEAD 

,VSE IMPURE 
»eOu e 

2LOC PURSTR 
USE PURE 


.END SSTART 


GROWTH SYSTEM BOOTSTRAP 


LEAVING YSS, SO TURN OFF MEMORY PROTECT 


TURN OFF MEMORY PROTECT 
INSURE NO INTERRUPTS WHILE TRYING TO SHUY DOWN THE SYSTEM 


SEG IF THE CURRENT USER WAS a CONTROL LINE 
NQ -- SO DON'T LET WIM CRASH THE SYSTEM 
AND PRINT WIS ERROR MESSAGE 

SET TO READ IN ONE BLOCK 

SET PHYSICAL DISK 9 

SET THE DISK ADDRESS 

NON-JNTERRUPTING DISK READ 


DONE -~ ENTER GROWTH SYSTEM 
START ADDRESS OF GROWTH SYSTEM 
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GROWTH SYSTEM BOOTSTRAP 


915315 506000 
915346 512000 
915347 000077 
015320 640402 
015321 640477 
915322 770000 
0135323 570000 
015324 700000 
015325 000777 
913326 000024 
0143327 741000 
015330 004300 
015331 000001 
§$15332 777777 
915333 041300 
015334 001000 
015335 400001 
915336 004777 
015337 0900200 
915340 000300 
013341 763244 
915342 000007 
915343 000004 
915344 377777 
913345 417777 
915346 100000 
915347 507000 
615350 000240 
015351 777740 
§15352 000100 
915353 000377 
015354 000177 
013355 762000 
013356 007227 
013357 770534 
915360 020000 
015361 640000 
015362 000244 
015363 760000 
015364 000700 
015365 776777 
0143366 777760 
01435367 767461 
015370 767531 
013371 900241 
915372 900246 
§13373 000252 
913374 900233 
015375 000255 
815376 000237 
013377 (00334 
915400 000254 
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015461 657122 
915462 657323 
015493 777540 
915404 000256 
013405 000243 
915406 002000 
914407 002170 
915440 60035327 
015441 000337 
015442 000230 
015443 000017 
915444 000333 
915445 000335 
015446 777520 
045447 777779 
015420 6777776 
015424 777772 
0145492 777737 
0143493 777745 
015424 000400 
015425 000005 
013426 445320 
015427 646000 
0153430 446400 
013434 445300 
013432 606064 
013433 606462 
013484 606460 
915435 777716 
915436 000000 
813437 000000 
915440 000000 
013441 000000 


TRANSFER ADDRESS 603763 
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CROSS REFERENCE TABLE 


1713 20 4510 4520 
11584 047 10960 
11563 046, 11010 
11546 .0409, 11040 
11659 .050, 11110 
11652 O54, 1141150 
11662 .052, 11170 
11672 053. 14210 
11707 054, 14270 
11723 055, 14510 
11744 056, 14370 
11753 057, 14400 
11785 056, 11430 
12043 ,050, 144490 
12047 .960, 11490 
12072 064, 114500 
12147 062. 14510 
12156 063, 14520 
12155 064, 11539 
12145 068, 114540 
12224 +0664, 14550 
142237 067, 11560 
12257 ,068, 11570 
12245 069, 14580 
12332 070. 11590 
123390 074, 11600 
123690 078. 11610 
12400 073, 14620 
12434 074, 141630 
12490 .075, 11640 
42475 076, 14650 
12524 077, 11660 
12542 078, 11670 
12567 079, 14680 
12641 080. 11690 
12633 064. 14700 
12652 082. 14710 
12702 .083, 14770 
12736 084, 14789 
12732 088, 11790 
12752 086, 14800 
42764 ,087, 11819 
13002 088. 11820 
13036 089, 11830 

26 »510 3400 6100 
27 Arh ef 3410 6120 

4453 DK 770 

4464 =, DT 750 

6460 +.TP 760 

2023 LOSAVE 1870 1880 1840 6090 


2324 LASAVE 1880 1920 1860 6110 
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CROSS REFERENCE TABLE 


5 AC 3370 6080 
305 3REST 3870 3880 
51 3TEMO 3530 3540 
52 =o. 3TEML 3540 3550 
53 3TEM2 3550 3560 
94 3TEM3 3560 3570 
55 3TEMG 3570 3580 6140 
56 3TEM5 3580 3590 
97 3TEM6 3590 3600 
90 3TM20 3520 3530 
2  3TM21 3350 
3 3TM22 3360 
14000 7K 4030 
16000 8K 1020 910 1010 2640 2550 20850 


135050 9MAPBU 12030 5110 5230 6470 6300 7040 7430 7830 7950 8070 5680 6820 10210 
10260 10350 10430 103530 10610 10670 10779 11390 12320 12460 13569 14250 
16390 17160 18310 18550 18720 18790 18900 19170 19230 19400 19849 20510 


20630 20890 21100 22200 22440 22480 22560 22660 720 4170 1660 1970 
2190 2280 2380 2580 2640 2930 3240 3320 740 £340 1680 2599 
3210 3670 3860 4150 11300 12030 
414263 ABS 850 

1793 Ac 4520 4530 

1756 ACS 4550 4560 5890 

2045 ACSAVE 1810 1820 1740 6070 8260 8800 9230 

4076 ACSOFF 8890 9310 

2022 ACSW 1860 4870 


11300 aDpDOcT 103599 10480 10540 10540 40600 10630 10660 10699 10720 10750 10780 10810 10840 
17777 ADRSS 430 4110 


246 AMPRSN 290 15090 
300 aT 2950 22780 
300 ATSGN 2900 
4220350 BAS 420 5490 
2151 BCNTRL 2330 2340 
425156 BIN 860 
634 BITO 3970 3980 
6414 BIT47 4020 4030 
635 BITS6 3980 3990 
636 BITS 3990 4000 
637 BIT6 4000 4010 
640 BYT? 4010 4020 
337 BKARR 240 800 
642 BL7 4030 4040 
443 BLA 4040 4050 
490 BLKLEN 630 
1777 BLKMSK 610 1060 1170 
17740 BpooT 520 530 
2000 BOUNDA 440 960 989 999 1200 1630 5040 508 7840 7860 20740 20769 21700 
2100 2110 
377 BRK 5550 2350 
334 BSLASH 390 15190 
21/70 BUFFER 2499 2550 3530 21830 22580 10080 880 
1000 BUFLEN 2500 2550 214850 22020 22700 
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13972 

3540 
10757 
152464 
10796 

3545 

3517 

5523 

3540 

3536 
10721 
10733 
10744 
11194 
11222 
41252 
11534 
11544 
11563 
11546 
11630 
11652 
11662 
11672 
11707 
11723 
11744 
41753 
11765 
42033 
12047 
120%2 
12137 
12156 
12195 
12145 
12221 
12237 
12297 
12275 
12332 
12339 
12369 
12490 
12434 
12450 
42475 
12524 
12542 
12567 
12641 
42653 


05/31/72 
C C1 12650 
C ALC 4150 
C CON 4550 
C GRO 12450 
C JGN 1540 
C CATL 1680 
C CORE 2080 
C DISK 2290 
C RCAT 740 
C SAVE 3860 
C1027, 1390 
C,028, 1420 
C1029, 1840 
C,030, 3610 
C,O51, 4040 
C1082, 4320 
C,046, 109140 
C1047, 10960 
C,0468, 14010 
C1049, 11040 
C,050, 14110 
C,051, 11150 
C,052, 11170 
C,053, 14210 
C,054, 11270 
C,085, 14310 
C086, 115790 
C,057, 11400 
C,088, 114430 
C059, 14440 
C0601 114990 
C,061, 11500 
C,062, 14510 
C,063, 114520 
C.064, 11530 
C.085, 11540 
C1066, 14550 
Cy067, 11560 
C,.068, 14570 
C,.069, 14580 
C.0701 11590 
Cr0715 11600 
C1072, 11610 
C.073, 14620 
C,074, 11630 
C.075, 116490 
C.076, 14650 
C,077, 14660 
C,078, 11670 
C.,079, 11680 
C,080, 11690 
C.081, 11700 


01505323 


4300 
1480 


1460 
1860 
1800 
1820 
3790 
3890 
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1120 
2220 
2430 
1230 
4010 


CROSS REFERENCE TABLE 


1190 1280 2040 2020 2030 


2750 
4020 


3870 
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12652 
12702 
12736 
12732 
12752 
12764 
13002 
13046 
1 

400 
2170 


777726 


05/31/72 
C,082, 11710 
C,083, 11770 
C,084, 11780 
C.085, 114790 
C1086, 11800 
C1087, 11810 
C,088, 11820 
C1089, 14830 
CATBLK 550 
CATLEN 560 
CATLOG 10080 
CATMAX 620 
CATX 300 
C80 4050 
CB, 4060 
C85 4070 
C87 4080 
CBL8 4090 
CCATL4 1890 
cCaTL9 2020 
CCATLL 1930 
CCDFLG 2950 
CCFULL 4040 
CCORCA 2100 
CCORDA 2090 
CGOREY 2140 
CCORLN 2110 
CCTEML 560 
CDEVC4 3360 
cDEVC3 3260 
cDEVC4 3460 
CDEVCV 3210 
CDFULL 4320 
CDISCA 2310 
CDISDA 2300 
CDISK4 2350 
COISLN 2320 
CHRONT 4520 
CGNAMY 2660 
CGNAM2 2700 
CGNAMS 2740 
CGNAMS 2780 
CQNAMS 2880 
CGNAME 2590 
CHECK 12690 
CHRMAX 3180 
CHRP aK 3130 
CLKMAX 2840 
CLKSPD 3160 
CLOCK 4560 
CMDX 510 


01205123 


860 


599 
3900 
3910 
1900 
4060 
4070 
4080 
4090 
4100 
4750 
4950 
2000 
4730 
3920 


2200 
1810 


750 
3280 
3770 
3320 
3750 
4260 


2410 
4830 


4360 
3020 
4640 
2700 
2680 
2840 
4830 
1550 
3200 
3200 
3480 
3470 
4370 
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3549 
3940 


2010 


2240 
2600 


790 
3300 
2240 


2220 


1400 
2650 


2670 


CROSS REFERENCE TABLE 


3559 
3950 


2080 


2450 | 


3060 


1010 
2730 


2710 


3070 


2740 


3560 
3970 


1900 


3550 


1)30 


2380 


4750 
4190 


1940 


1070 


3400 


2890 


4820 1050 1080 
4240 4280 
1960 1980 2230 


1180 1920 1999 


3410 


1100 


2449 


4180 


1150 


3999 


4240 


1899 


4220 
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1910 


4270 
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05/31/72 
CMPY 3499 
CMP2 3500 
CMSG50 10910 
CMSG54 10940 
CMSG52 10990 
CMSG53 14040 
CMSG54 11090 
CMSG56 11150 
CMSG57 14170 
CMSGS58 14210 
CMSG59 14270 
CMSG60 14300 
CMSG64 11370 
CMSG6@ 11400 
CMSG63 11430 
CMSG64 11470 
CMSG6S 14750 
CNTOFF 8910 
CNTRL 3380 
COLON 370 
COMFLG 2200 
COMMA 320 
COMBTO 2270 
CONTX 230 
COR 880 
CORMAX 910 
CPAPER 3670 
CPARAM 590 

220 
CROATS 780 
cRcaTs3 1010 
CRCAT4 4160 
cRcoyR 4340 
CRCVRG 4390 
CRCVRS 1420 
CSPL 3510 
CSwPr 3480 
CTBFR 3600 
CTBIN 3640 
CYTeMPQ 1630 
CTEMP4 41640 
cTrEemMPe 1650 
cTEMPS 1660 
cTEMp4 4670 
CTEMPS 1680 
CTEMP6 1690 
CTEMP?7 4700 
CTEMPS 4710 
CTEMP9 1720 
CTFLG 3650 
CTL 810 
CTNAM 3660 


01305823 


3500 
3510 


2830 


9320 
3390 
3810 
2210 

15230 
2280 

820 


980 
2650 


3130 


930 
1290 
920 
970 
1450 
3920 
3499 
3630 
3650 


3660 
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2869 


2650 
1750 
1440 
22810 


78490 
3240 


1499 


1140 


1500 


3640 
3670 


CROSS REFERENCE TABLE 


3230 


3330 
22490 
7460 


2110 
36990 


3689 


1210 


4250 


6610 
22820 
9830 


3710 


4170 


1370 


12470 
2640 


3730 


6510 


1440 


3000 


3740 
7160 


1490 


3750 


910 


2420 
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13272 
6602 
7924 
5617 
5633 
56414 
5631 
5647 
5625 
5683 
5695 
2nks 


5463 
6522 
103383 
65357 
6517 
5621 
56355 
5643 
5643 
5654 
5627 
5605 
6526 
5657 
6597 
5665 
65352 
60%5 
2194 
2193 
5774 
11534 
6063 
66142 
5792 
5324 
57%6 
6234 
6644 
2163 


5554 
13246 
6144 
6773 
6067 
2042 
6042 
3255 


9oU0 0 
oovuV0 0 oO°9o 9900 C0 0C0V0C CVV VV SCV VVV VV V0C VC 0C0 VNIVCVC OO voou0 900 000 


05/31/72 
ont 12650 
Jt 9920 
M4 12080 
M6 3950 
M7 3970 
M8 3980 
MA 3949 
MQ 3999 
MH 3960 
MQ 3930 
MS 4000 
PC 2120 
S9 4030 
Aac 9200 
ACF 22930 
ALK 9390 
ALT 9130 
AMO 3950 
AM? 3970 
AM8 3980 
AMA 3940 
AMD 3990 
AMH 3960 
amd 3930 
AMQ 9260 
AMS 4000 
APC 9590 
As9 4060 
ASC 9320 
BAS 6020 
BCA 2370 
BDA 2360 
BLQ 5180 
BRE 3590 
CLO 5600 
CON 10010 
cor 4310 
DD? 4030 
DIS 4540 
DUM 7450 
Ex} 10050 
FDA 2440 
FPC 3410 
GRO 12450 
KR] 6600 
IND 14750 
LIM 5680 
LOG 2110 
MAS 5950 
MD4 16530 


01505423 


10020 
12150 
9760 
9780 
9790 
9750 
9800 
9770 
9740 
9810 
2130 
7900 
3930 
8240 
4430 
8680 
9580 
9760 
9780 
9790 
9750 
9800 
9770 
9740 
8310 
9810 
8600 
3930 
8440 
9680 
2380 
2370 
9910 
56350 
9630 
9220 
9860 
9210 
9870 
9560 
9230 
2450 
20570 
3190 


14710 
9650 
2120 
9660 

16400 
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3250 
15980 
3940 


4460 


3940 


24560 
20580 
9940 


9220 
9660 


9670 
3670 
9230 
4920 
20700 


6130 
16510 


CROSS REFERENCE TABLE 


6410 
3959 


5030 


3959 


218490 
21920 


9620 


3690 
9610 
1960 
20960 


6230 


7020 
3960 


10070 


3960 


22690 
22080 


9620 


9610 
1970 
21910 


6310 


7380 
3979 


21170 


3970 


890 
22360 


2280 


6340 


7400 
3989 


22260 


3980 


2340 


6390 


7530 
3990 


3999 


850 


4649 


7690 


4000 


4000 


870 


4800 


7750 


4880 


7810 


4890 


7840 


5240 
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7860 


5260 
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CROSS REFERENCE TABLE 


3256 D Mp2 16540 16490 

7541 D MD4 16570 16550 

5353 D NSU 4350 9600 9600 9600 4200 

6174 D Pat 6920 9550 9550 3610 7230 

5764 D PRE 5010 9640 

63437 D Ra 8220 9420 

6302 D REG 8070 9570 

6434 D RLK 8660 9450 

5623 D RM6 3950 9760 

56357 D RM? 3970 9780 

5645 D RM8 3980 9790 

5635 D RMA $940 9750 

5653 Dp RwD 3990 9800 

5634 D RM 3960 9770 

5607 D RmO 3930 9740 

6350 D RmQ 8290 9430 

5664 D RMS 4000 9610 

6402 Dp RPC 8580 9440 

5667 D RSI 4090 3930 3940 3950 3960 3970 3980 3990 4000 
6393 D RSC 8420 9480 

6100 D SEA 6100 9670 6550 

3247 Dp SIX 10430 10370 10380 10399 10500 

5721 D BYS 4610 9680 96880 

6577 D TRA 9880 9200 9200 9200 9200 9590 9590 9590 9590 3650 
10332 D UCF 22920 20800 24370 

5735 D VS5A 4770 9890 9890 

6240 D VAL 8420 9690 9690 

5704 D xco 4400 9900 9900 

3225 D 6MOD 10350 3950 3950 3950 10400 

$235 ND 7™OD 10670 3970 3970 3970 10740 

5253 D 8MOD 10610 398y 3980 3980 10640 

6579 D AACS 97n0 8370 

2ne2 D aCSw 1860 8390 8990 9730 

5223 D amMoD 10260 4244 3949 3949 3940 10320 11490 14830 13150 13450 
6553 D aSTS 9530 8170 

6574 D AVAL 9760 

2156 D BALT 2390 2400 2220 8260 7000 222140 22220 4000 
10327 D BKSN 22860 3620 

2195 D BLEN 2380 2390 24860 22710 910 

2164 D BMAX 2420 2430 2520 21450 22040 22050 
2197 D BMIN 2400 2410 20530 20540 21960 22000 
2162 D BPTR 2430 2449 8250 6259 6449 6999 7774 15439 21150 21230 21300 21449 21489 

21570 21640 21670 21710 21870 

7530 D cOmMI 16840 16920 

7527 D cOmx 16830 16900 

6704 D DEc2 10870 10810 

6707 D nec4 10910 19960 

6/16 D DEC6 10990 11070 

6/27 NM pecs 11090 11010 

$257 ND DMGu 10770 3990 3990 3990 11120 12290 
6%¢7 y PDNXT 7379 1500 1529 

55/2 ) DUNL 4160 4230 
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5n7y4 


10334 
6422 
10517 
55A7 
2167 
2165 
6515 
32341 
6154 
6162 
7443 
7254 
7264 
7244 
7302 
10380 
10384 
2086 
2164 


5569 
5475 
5357 
3281 
5414 
545141 
5456 
5376 
7143 
7121 
7146 
7104 
6202 
6216 
10046 
10046 
10217 
10204 
6344 
6427 
6355 
10320 
6305 
6364 
7065 
7076 
7n¢2 
7073 
6105 
6141 


o 


Vo0 0 00 V0 700 0900 00000 0 0 0c C0000 00 [CF eo0n00 09,00 VGC CVV V0 C00 UO 


05/31/72 
DONE 4140 
DICT 22910 
EXI2 10120 
FDEL 22780 
FIND 3340 
FMAX 2480 
FMIN 2460 
FREG 9060 
HMOD 10530 
HRI 2 6660 
HRI6 6769 
INPC 15910 
tNve 14310 
INVS 14460 
INV4 14550 
INVO 14630 
J&GN 22870 
LOGF 22940 
MASK 2150 
MFDA 2450 
MODE 3520 
NCOP 2460 
NSU2 4400 
OMOD 10210 
OPEL 4850 
OPE? 2200 
OPE4 2260 
OPEN 4630 
OPRY 13080 
OPR2 12689 
OPRS6 13140 
OPRS 12720 
PAT1 6990 
PaT2 7140 
PBS2 19900 
PBS4 20200 
PNEW 24810 
PUCF 24620 
RACS 8350 
RALL 8760 
RSC2 8450 
RSGN 22790 
RSTS 8150 
RVAL 8499 
SAM2 12500 
SAM4 12630 
SAM6 12560 
SAMB 12580 
SEAL 6170 
SEA2 6220 


014505423 


1390 
7480 
2370 
10990 
4530 
31470 
2490 
2470 
8200 
3960 
6750 
6730 
3480 
15680 
14360 
44490 
14420 
3640 
2110 
2160 
2460 
20730 
2880 
21450 
4310 
4440 
1820 
41770 
2210 


13920 
13110 
12920 
13140 
7430 
6980 
20010 
20270 
21470 
21380 
9470 
9490 
9000 


9460 
9500 
12600 
12530 
12690 
12660 


6360 
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5050 
7830 


2530 


2100 
2020 
8270 
3960 


153780 
15870 


5970 
1990 
20980 
2990 
4330 


3930 


7070 
20080 


21510 


CROSS REFERENCE TABLE 


5090 


2380 
2070 
8340 
3960 


6200 


2000. 


20990 
3730 


3930 


20340 


5120 


4710 
2320 
8400 
10580 


6260 
2300 
21930 
4940 


3930 


20390 


5840 


4960 
4680 


2340 
4070 


10230 


5910 


5330 
4930 


4660 


4100 


5989 6050 


20790 21030 
5300 20750 


4670 4940 
9840 


6520 


21240 
21000 


4920 


6540 


21950 


5260 


7170 


5290 
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7190 


20720 


MTR--B05 


6117 
6125 
6136 
7003 
7004 
7152 
6776 
3244 


7105 
32492 
6542 
13490 
14565 
7040 
3243 
6015 
6046 
6047 
6050 
7764 
5347 
5390 
6022 
6342 
6324 
6335 
63A6 
6360 
6341 
6407 
6421 
6434 
6443 
6452 
6462 
6474 
6504 
11534 
11544 
11563 
11546 
11639 
11452 
11462 
116/72 
11/707 
11723 
41741 
11753 
11765 
12043 


05/31/72 
D SEAS 6300 
D SEA4 6580 
D SEAS 6490 
D SEAS 11890 
D SEAE 11900 
D SJOT 13249 
D SLAW 14810 
D SMOD 11599 
D SOPR 12730 
D SRCH 18900 
D SREG 9020 
D SYMO 1590 
D SYM 2150 
D SYMeé 12220 
D SY¥M4 12320 
D VALS 5380 
D VAL2 3390 
D VALS 5400 
D VAL? 5570 
D vSR2 19469 
D,040, 1040 
DsO41, 1290 
D,O032, 5440 
D,043, 8180 
D,044, 8250 
D,0415, 8320 
D,046, 8380 
D,047, 8450 
D048, 8520 
Dr:049, 8619 
D,020, 8690 
Ds021¢ 8790 
D,022, 8820 
D,023, 8850 
D,0e4, 8890 
D025, 8949 
Dy 0264 8970 
D,046, 10910 
Ds047, 10960 
D048, 11010 
Di049, 11040 
D,050, 14110 
D:051, 11150 
D052, 11170 
D,053, 11219 
D,054, 14270 
D055, 11310 
D056, 11370 
D,057, 11400 
Ds059, 11440 


04405323 


6470 
6280 
6190 


13920 
15930 
12770 
1470 
13460 
13940 
18740 
8470 
18730 
18600 
11620 
42220 
5500 
5540 
5480 
53490 
19600 
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6330 


4000 
13460 
18810 

8560 
19180 
19240 


12410 


19650 


CROSS REFERENCE TABLE 


4000 
13530 


18979 
86490 


19850. 


150 
12930 


4000 
13730 


19120 
8730 


13670 


7630 


19130 


11700 


11730 


11769 


12050 


12250 


123500 


PAGE 132 


12989 


MTR--805 


120&7 
12102 
12117 
12156 
12195 
12175 
12224 
122357 
12257 
12245 
12332 
12350 
12369 
12490 
12434 
12490 
12485 
12524 
12542 
12567 
12681 
12633 
12652 
12792 
12716 
12732 
12752 
12764 
135002 
13036 
13054 
13044 
13053 
13066 
13102 
13134 
13145 
13142 
13196 
13140 
13202 
13235 
13245 
13235 
6535 
2036 
1762 
1763 
3324 
693 
24 
2n54 


05/31/72 
D060, 11490 
D,061, 11500 
D,062, 11510 
D,063, 11520 
D,064, 11530 
D,065, 11540 
D,066, 11550 
D067, 14560 
D068, 11579 
D,069, 11580 
D,070, 11590 
D,O71, 11600 
D,072, 11610 
D,073, 11620 
Dy074, 11630 
D,075, 11640 
D,076, 14650 
D077, 14660 
D,078, 11670 
D,079, 11680 
D,080, 11690 
D,081, 14700 
D,082, 14710 
D,083, 14770 
D,0B4, 114780 
D,085, - 14790 
D,086, 14800 
D;087, 14810 
D,088, 12820 
D,069, 14830 
D,090, 14930 
D,091, 11990 
D,092, 12040 
D,093, 12080 
D,094, 12110 
D,095, 12140 
D096, 12170 
D,097, 12200 
D,098, 12230 
D,099, 12260 
D,100, 12290 
D101, 12320 
D,102, 12350 
D,103 12380 
DADONE 9820 
DADRSW 2070 
DAPO 4590 
DAP 4600 
DBINIT 22660 
DBK 4120 
DBKNUM 2220 
DBKTAB 2210 


01405323 


8100 
2080 
4600 
4610 
7880 
4130 
2270 
2270 
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9040 
$150 


8150 


CROSS REFERENCE TABLE 


9080 
4060 


1080 


9360 
6420 


22720 


9240 
7740 


9300 


9370 


9510 


9570 


9680 


9740 
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MTR---805 


5442 
2055 
10322 
3320 
40125 
5720 
922027 
5152 
5212 
12000 
2037 
1 
10324 
111354 
5504 
5973 
1761 
5537 
5505 
5544 
5506 
5545 
5546 
5520 
5534 
1764 
33144 
2194 


2045 
7516 
75@2 
7534 
2050 
7474 
103146 
7444 
7522 
7462 
7465 
7453 
7457 
7456 
7464 
7432 
7325 
7405 
7407 
7444 
7413 
7445 
7421 


05/31/72 
DSOPEN 2420 
DBSTOR 2050 
DBYSGN 22810 
DCOLSP 22480 
DCORCT 20850 
DOISCT 4570 
DDT 410 
DDTCOM 9540 
DOTMOD 9730 
DOTST 5000 
DOUMSW 2080 
DEBUG 10030 
DENDSN 22830 
D&VC35 3340 
DFIELD 2720 
DFILES 9860 
DFLAG 4580 
DFLOOS 3140 
DFLDO6 2740 
DFLOO7 3240 
DFLDOS 2750 
DFLD10 2860 
DFLD14 2870 
DFLD20 2920 
DFLD3O 3040 
DFN 4610 
DFORCE 22200 
DFTYPE 2349 
DHICOR 2140 
DINAND 16650 
DINGM2 16960 
DINCOM 16859 
DINDIR 2170 
DINDIV 16320 
DINDSN 22770 
DININD 15860 
DINIOR 16750 
DINMIN 16200 
DINMUL 16250 
DINPCL 16010 
DINPL2 16120 
DINPLU 16100 
DINSPA 16160 
DINULL 15750 
DINV30 14860 
DINV34 15470 
DINV32 15490 
DINV33 15510 
DINV34 15530 
DINV35 15550 
DINV36 15590 


01703323 


4560 
2060 
2790 
6430 
20780 
21020 
5400 


2090 

100 
1370 
3510 
2540 
1670 
4590 
1550 
3420 


1470 
2940 
3100 
2600 
2820 
4620 
7649 
2359 
21360 
2150 
453490 
14910 
14530 
21480 
15590 
3160 


15479 
15550 
15510 
15950 
16620 

3450 
14510 
14320 
14610 
15060 
15100 
15120 
135140 
15160 
15180 
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4720 


7720 


15570 


CROSS REFERENCE TABLE 


4970 


225350 


4050 
100 


3660. 


4440 


3060 


1649 
2120 


2959 


14600 
15280 


16720 
15530 
15630 


5340 


6450 
120 
4190 


3270 


5810 
2439 


6520 


15650 
45390 


16800 
16170 
15940 


7620 
160 
6530 


10120 
4429 


6720 


15969 
15460 


16220 


7780 
120 
7180 


21820 
4479 


7060 


15860 


22249 «= 22270 
5020 5070 


7220 7410 


22280 
10060 


7820 


22670 
10110 


17090 
20810 
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21160 


MTR--905 


05/31/72 
DINV37 15610 
DINV38 15630 
DINV39 15670 
DINV45 15050 
DINYV48 15370 
DINV49 15280 
DINV64S 14800 
DINV62 14730 
DINVAL 14250 
DINXOR 16700 
DK, 740 
DKO 780 
DKi 4310 
DK2 4350 
DKCA 2750 
DKDON 4170 © 
DKLEN 2650 
DKLENB 2660 
DKLOK 3830 
DKMAX 650 
DKOVR 4160 
DKRD 2760 
DKWC 2740 
DKWRT 2770 
DLIMIT 2100 
DLNEGN 22600 
DLOCAT 24100 
DLOCOR 2130 
DMBMIN 2410 
DMCSGN 22820 
DMFMIN 2479 
DMO0010 3740 
DMSG50 10910 
DMSG54 10940 
DMSG52 10990 
DMSG53 11040 
DMSG54 110990 
DMSG56 14150 
DMSG57 14170 
DMSG58 14210 
DMSG59 14270 
DMSG60 14300 
DMSG64 14370 
DMSG62 14400 
DMS&63 14430 
DMSG64 14470 
DMSG65 14750 
DMSG80 12030 
DMSGB4 12080 
DMSGB2 12110 
DMSGB3 12140 


01705323 


15200 
15220 
15480 
135820 
15300 
14790 
14680 
14520 

1450 
15610 

3310 

3040 


4460 
2660 


3840 
41470 


2110 
2810 
8240 
2140 
7010 
2420 
3549 
2480 
3550 
3590 


$470 
5520 


12050 
1660 
1870 
2570 
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15500 
16130 


15450 
14720 


14540 
2730 


8100 


4200 
6240 
2770 
7080 
20560 
2040 


9220 


5740 
5560 


1850 
4820 


CROSS REFERENCE TABLE 


15520 


14999 
2930 


4570 


5900 


6949 
2860 
71400 
21490 
2050 


9280 


8510 


2250 
5200 


15540 


16030 
3050 


2320 


11600 
7410 
2970 
7200 

21990 
2330 


9340 


8780 


9910 


15580 


16880 
3430 


12170 
7760 
3080 
7520 
4690 


9410 


15600 


16940 
6180 


15420 
3260 


4940 


9440 


15620 


6970 


24580 
S895 


5310 
9550 


15640 


15330 15350 


21680 
5960 6030 5420 6620 6960 


20770 21010 21270 21880 
9610 9720 9770 


MTR--gQuU5 


13122 
13157 
13153 
13165 
13477 
132232 
132722 
1329359 
13957 
5 $85 
53A5 
5354 

654 

662 

463 
2152 

244 
546 
7227 
2032 
10171 
10202 
10326 
2040 
3302 
2054 
40325 
10287 
32766 
102%2 
10240 
3274 
2022 


20385 
2047 
3245 
7024 
7017 
3247 
7173 
7163 
7245 
7176 
7201 
7151 
6775 
6750 
3304 
3316 
7730 
7743 


05/31/72 
DMSGB4 12170 
DMSG85 12200 
DMSGB6 12230 
DMSG87 12260 
DMSG88 12290 
DMSG89 12320 
DMSG90 12350 
DMSG94 12380 - 
DMSGCT 11959 
DNEXTL 1260 
DNXLIN 1280 
DNXLNG 4300 
io] *) 4130 
pod2 4140 
DQs 4150 
DOFT YP 2350 
DOLLAR 280 
DOPDON 2510 
DOPTAB 13790 
DP ACSW 4980 
DP AGES 21430 
DP AGES 24570 
DPATSN 22850 
DPAYSW 2090 
DPBSCH 19840 
DPCMSK 2180 
DPCE&GN 22840 
DPNEW2 22060 
DPSRCH 18720 
DPUCFe 24700 
pPucré 24670 
DPVS§CH 19170 
DREGBR 2199 
DREGSW 2060 
DRELOC 2160 
DSamMoD 12460 
DSEAE2 12070 
DSEAES 12020 
DSIOT2 13569 
DSIOTS 13430 
DSIONT4 13340 
DSIOTS 13660 
DSIOTS 13480 
DSIOT7 13520 
pS10TS 13230 
DSLAW2 11800 
DSMOD2 14540 
DSNCOP 20510 
DSPACE 22410 
DSRCH4 18940 
DSREH2 19070 


01F03323 


3760 
4850 


14980 
18330 


21260 
12010 


4160 


4440 
4150 
4160 
2360 
12670 
2560 
11430 


21320 


3600 
2100 
11980 
2190 
3180 
221440 
14410 
21660 
24180 
19200 
2200 
9450 
2070 
21470 
11720 
12010 
12190 
13330 
13400 


136350 
43370 
13420 
13440 
11820 
11860 
8200 
4280 
19990 
19010 


PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


18470 


21390 


11960 


4450 
18110 

4500 
14450 


24740 


12890 
8170 
15770 


18730 


1430 
1160 


6040 
12380 


13600 


4160 
4299 


CROSS REFERENCE TABLE 


21730 


5060 
18320 


22060 


13570 
2440 


18760 


8999 


4090 
12400 


137690 


2470 
4420 


10100 
18400 


19930 
2459 


8169 
8810 
12610 


5830 
4430 


4499 5130 6400 7700 
8230 8300 8364p 8430 
8840 8880 8960 8996 
20590 

4499 4500 4560 7960 


20830 


8500 


9070 


11500 


21140 


8599 


11840 


8679 


22440 
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87769 


MTR~-905 


7746 
1765 
7640 
7671 
7557 
3262 
3264 
7621 
76e5 
7633 
5734 
446400 
3322 
2000 


2001 


2082 


2003 
2004 


2005 
2006 
2087 
2030 
2041 


776791 
6237 
6285 
6252 
6256 
6244 
3396 
3310 
3290 
3296 
6014 

740000 
3300 

245 
244 

5 

602 
10264 
1791 
1700 


05/31/72 
DSRCH4 19100 
DSTAT 4620 
DSYMB1 18090 
DSYMBe2 18400 
DSYMBS 173570 
DSYMB4 18310 
DSYMB5 18559 
DSYMB6 17880 
DSYMB7 17950 
DSYMB8 18020 
DSyScT 4730 
DT, 720 
DIDVAL 22560 
DYEMPO 4630 
DTEMP4Y 1649 
DTEMP?2 4650 
DTEMPS 4660 
DTEMP4 4679 
DTEMPS 1680 
DTEMPS 1699 
DTEMP7 4700 
premps 4710 
DTEMP9 4720 
DTMAX 640 
DrTp10 7990 
DTrh20 7670 
DV TP30 7740 
prrp40 7800 
DTTpsd 7620 
DUCORE 20630 
DVDISK 20890 
DUSRCH 18790 
DUVESCH 19230 
DVALWD §370 
DVCMSK 600 
DVSRCH 19400 
EQUAL 2910 
EXCLAM 260 
FCBLEN 570 
FGET 3959 
FORCE2 22280 
FRCA 44190 
FRDA 4400 


01403323 


199040 

4630 
17330 
17530 
18420 
17400 
17790 
17910 
18380 
17980 

4700 

3290 

4910 

2760 
11540 
13930 
19440 
22570 

5220 
11530 
20230 

3460 
14699 
12990 
41560 
19640 
14779 

3479 

1440 
11949 
12860 
18610 


7640 
7930 
7970 


7420 
7890 
8140 
14560 
14370 
5380 
800 
191490 
22850 
13090 
4260 
3960 
22360 
4420 
4410 
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18260 
17690 


17810 


2270 

3440 
11560 
13040 
16110 
226140 

$250 
14680 
20250 

9940 
14820 
12330 
11990 
19890 
14910 
14270 

6159 
12810 
130350 


7950 


1090 
4550 
186820 
19260 
3720 
1020 
19250 


13640 
1970 


CROSS REFERENCE TABLE 


185209 
17909 
17830 


22620 

7120 
11660 
13280 
16120 
11920 

6659 
11859 


203500. 


10889 
14959 
12940 
121350 
20320 
15769 
14330 

6959 
132709 
13259 


8020 


4320 
21040 
18830 


3390 
19490 


15070 
3960 


18350 
18530 


9460 
11950 
13300 
16410 
11940 

6789 
12490 
20.550 
110900 
15560 
13710 
12230 


. 20.560 


16920 
15.310 
11920 
14500 
13-550 


5320 


18370 


9499 
11970 
133520 
16440 


6840 
12590 


12330 
15670 
14730 
12280 


17250 
15920 
12860 
14479 
13640 


20840 


18420 


9630 
12020 
13380 
16500 


7650 
14690 


12580 
15930 
14870 
12900 


18180 
20160 
12960 
14660 
13660 


18590 


9660 
12110 
135140 
16669 


7920 
148t90 


12649 
15999 
172%0 
13589 


19970 
20260 
13290 
14860 
17360 


10790 
12740 
13700 
16710 


8010 
16760 


12680 
19430 
19620 
14750 


20060 
13689 


14969 
17450 


10820 
12820 
13750 
16780 


9960 
16790 


14290 
19470 
20380 
14899 


20180 
14340 


19980 
17590 


10900 
128406 
14260 
19549 


11440 
16930 


14500 
19880 


17230 


146406 


17710 


11400 
12959 
15340 
20040 


11470 
18950 


14570 
19910 


19459 


19999 


17960 
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11510 
12990 
15410 
20170 


11480 
20140 


445890 


19580 


20020 
18510 


MTR--BO5 


1702 
1703 


2 
11195 
11100 

246 
476257 


05/31/72 
FRLEN 4420 
FRSTA 4430 
FUDGE 3190 
GNAM9O 2980 
GNAME6 2850 
GREAT 2930 
GRO 870 
HDRLEN 580 
IMPLEN 990 
IMPSTR 2550 
INDEX 490 
INT 320 
INV3SB4 15650 
1Q.1N 3910 
10,07 3920 
1OBLK 2830 
1QRS 45790 
1QOTO 4900 
JMP 4110 
JTLEN 960 
JTSTRT 950 
KBLEN 3610 
KBNUM 3620 
LOLOK 3630 
LiBFR 3679 
LABIN 3690 
LAF LG 3700 
LaLaK 3680 
LiNAM 3710 
L2BFR 3720 
L2BIN 3740 
L@FLG 3750 
LaLoK 3730 
L2NAM 3760 
LOR 390 
LORST 5040 
LESS 2920 
LF 210 
M 85 7430 
M C4 12650 
M Ce 4820 
M c4 4810 
M M4 9250 
M ON 2820 
M BAS 5499 
M BYE 7180 
mM CaF 7520 
mM CaT 3599 
M DEB 5400 
mM EOL 5110 
M EXP 8400 
mM GRO 12450 


01703123 


4430 
4440 
3200 
2620 
2800 
22870 


15300 


15240 
3920 
3930 


4580 
4910 
4120 


940 
3630 
3670 


3680 
3700 
3710 


3730 
3750 
3760 


3770 
34590 


22860 
2440 
7240 

12580 
4800 
4780 
5260 
9100 
9980 
9420 
9140 
9970 
9050 
2670 
91430 
9090 
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1810 


960 
3640 
3720 


3690 
3720 


3740 
4330 


7260 


9120 


5450 
9130 


CROSS REFERENCE TABLE 


2020 


1000 
3680 


4290 


7280 


91420 


5910 


4400 
3690 


7300 


3730 


7320 


3740 


7340 


7490 
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MTR--B05 


05/31/72 


rR CSSRRSASCSRSESCSRERSCSESCEABEACS SSS ES SS CSE SE CS SS Ss 
Oo 
z 
> 
= 


01405823 


9060 
9420 
5470 
5640 


9999 
3710 
9110 
3350 
8820 
9160 
9470 
9180 
9150 
5880 
5020 
3749 
4080 
3830 
4440 
3780 


3910 
3650 
3899 
4680 
7690 
7670 
8920 
10210 
10220 
10240 
10250 
10250 
10260 
10270 
10280 
10290 
5990 
3660 
8830 
3240 
9360 
7700 
7680 
7900 
8290 
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9060 


3380 
8840 
9160 
9170 
9180 
9150 


4200 


3860 
4890 


9350 


6030 
3960 
88530 


8020 


CROSS REFERENCE TABLE 


8860 8380 8900 


4100 


4660 5910 
8870 8390 8910 
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4390 

4333 

4332 

49337 

4353 
11310 
411324 
11335 
11387 
11362 
113¥%0 
11402 
11415 
11427 
11452 
11474 
11514 
11525 
41534 
11544 
11563 
11576 
1163y 
11692 
11662 
11672 
11707 
11723 
11744 
14/95 
11765 
12033 
12047 
1ené? 
12147 
12156 
12195 
12175 
127e1 
12237 
12297 
12275 
12342 
12459 
12469 
12460 
142451 
124509 
42475 
12524 
12542 
12567 


05/31/72 
M,005, 4730 
M,006, 4740 
MyO07, . 4790 
M,008, 4810 
M,009, 4880 
Mi053, 10479 
Mi054, 10500 
M,035, 10530 
M,036, 10569 
M2087, 10590 
MpOSB, 10629 
M039, 10650 
M040, 10680 
M,041, 10710 
M,042, 10749 
M,043, 10770 
My044, 10800 
M,045, 10830 
M,046, 10910 
M,046, 11010 
M1049, 11040 
M1050. 11110 
Me052, 11170 
M,053, 11210 
Mr054, 11270 
M.055,% 11510 
oe 11370 
Ms ' 114 
M,058, ade 
M,059, 11440 
Me060, 11490 
M1061, 114500 
Me062, 11510 
M,063% 11520 
M,064, 11530 
M.065, 11540 
M1066, 11550 
My067, 11560 
M1066. 11570 
M1069, 11589 
MeO70- 11590 
Me071,. 11600 
Me072, 11610 
M,073,% 11620 
M2074, 11630 
Ms075, 11640 
Me076,3 12650 
M,077, 11660 
M078, 11670 
M,079, 11680 


01903123 
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4390 

4343 

4332 

4337 

4353 
11310 
11324 
11335 
41387 
11362 
113%0 
41402 
41415 
11427 
11452 
11474 
115114 
11525 
11534 
11544 
11563 
11576 
116$y 
11692 
11662 
11672 
11707 
11723 
117414 
14/95 
11765 
12043 
12047 
tend? 
12147 
12156 
42195 
12175 
12221 
12237 
12297 
12275 
12342 
12439 
124560 
12460 
12451 
12459 
12475 
12524 
12542 
12567 


05/31/72 
M,005, 47 
me 
M,007, . 4790 
M,008, 4819 
M1009, 4880 
Ms003, 10479 
M,034, 10500 
Ha at 10530 

3096, 10569 
Me087, 105990 
M,03B, 10620 
M,039, 10650 
M040, 10680 
M,041, 10710 
M,042, 10749 
M,043, 10779 
oe 10800 
Ma 10830 
es 6, 10910 

1047, 10960 
M,C46, 11010 
M1049, 11040 
M1050. 11110 
12091, 11150 
MrO052% 14170 
M1053, 11210 
M1054, 11270 
iste 11510 

2056, 11370 
M1097, 11400 
M,058, 11430 
M1099, 11440 
Me060, 11490 
Me061, 11500 
M062, 11510 
M,063, 11520 
M064, 11530 
M,005, 11540 
M,066, 11550 
Ms067, 11560 
M1068, 11570 
M,069, 11589 
M.070. 141590 
MiO71s 11600 
Mi072, 11610 
M1073, 11620 
Me074, 11630 
Mi075, 11649 
M1076; 11650 
M:077, 11660 
M1078, 11670 
M,079, 11680 


01903023 


CROSS REFERENCE TABLE 
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12631 
12633 
12652 
12782 
12716 
127352 
12/952 
12764 
1392 
13046 
4n64 
4222 
2170 
4753 
4294 
4084 
4717 
3203 
4536 
3201 
4565 
4546 
4550 
4527 
4541 
3477 
4541 
4533 
3314 
40 
295 
4N26 
4n23 


11424 
11506 
11522 
41534 
11540 
11557 
11573 
11624 
11647 
11669 
11667 
11704 

3542 
11756 
11790 
11762 
12043 
12676 


05/31/72 
M,080, 11690 
M,081, 11700 
M082, 11710 
M,083, 11770 
M,084, 11780 
M,085, 14790 
M,086, 14800 
M,087, 11810 
M,088, 11820 
M,089, 11830 
MACSON - 8880 
MCAT65 4210 
MCFREE 3540 
MCLIST 9040 
MCNEXT 4050 
MGNTON 8900 
MCOMND 8389 
MDYNUM 7010 
MDTOF4 6670 
MOTOF6 6800 
MDTOF7 6930 
MOTOFS 6750 
MOTOF9 6770 
MOTOFF 6599 
MDTONY 6420 
MDTON6 6470 
MDTON7 6520 
MDTONO 6440 
MFORCE 10090 
MINBYF 3200 
MINUS 330 
MMONX2 2730 
MMONXT 2670 
MMSG10 10710 
MMSG1i4 10809 
MMSGi2 10830 
MMSG50 10910 
MMSG54 10940 
MMSG52 109990 
MMSG53$ 11040 
MMSG54 114090 
MMSG56 11150 
MMSG57 11170 
MMSG58 11210 
MMSG59 14270 
MMSG60 11300 
MMSG64 11370 
MMSG62 11400 
MMSG63 11430 
MMSG64 11470 
MMSG65 11750 


01403523 


9310 
4120 
4700 
2730 
3980 
9320 
8430 
6250 
6640 
6740 
6870 
6940 


8930 
6380 
6280 
6490 
6410 
3610 
3610 

10830 
3190 
2690 

10130 

10300 

10310 

10320 
2750 
3260 
3410 


6350 
3700 
10920 


11350 


8420 
8440 
8460 
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4640 


6690 
6760 


9350 
6300 


6530 
5730 


15150 
3330 
3300 

114430 


2950 
6560 
6900 


7120 
10970 


8470 


CROSS REFERENCE FABLE 


7100 
6840 


6510 


760 


3440 
11730 


7660 


11020 


6910 


6570 


1110 


4950 
11350 


7710 


11220 


6810 


1160 


6450 


8580 


11280 


6820 


1250 


6780 


8700 


11380 


6930 


1270 


7540 


8730 


11410 


7750 


12520 


7780 


8650 


8770 
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5345 
4342 
4004 
4012 
422083 
422024 
2082 
1004 
1000 
4064 
4064 
1754 
2046 
4720 
4047 
4061 
5052 
4064 
115314 
11540 
11557 
11583 
11624 
11647 
11669 
- 41667 
11784 
3542 
11736 
11759 
11762 
12043 
12636 
13054 
777763 
41275 
11260 
13042 
4401 
200 


2001 


2002 
2003 
2004 
2095 
2006 
2007 
2010 
2041 


05/31/72 
MNEXTL 1260 
MNHEAD 5000 
MONMSG . 2590 
MONSYM 2600 
MPL 350 
MPO 360 
MPACSW 1980 
MPOPR 4920 
MPST 4880 
MPTPON 8860 
MPTRON 8840 
MQ 4530 
MQSAVE 4820 
MRES®RC 8390 
MRSRCS 3040 
MRSRC7 3160 
MRSRCS 9290 
MSCOON 8820 
MSGB0 10910 
MSGS81 10940 
MSG52 10990 
MSG53 114040 
MSGB4 11090 
MSGB6 14150 
MSG57 14170 
MSG5B 14210 
MSG59 14270 
MSG60 143500 
MSQ61 14370 
MSG62 14400 
MSG63 14430 
MSG64 14470 
MSG65 14750 
MSGLOC 14910 
MSGMAX 10340 
MSGOCT 10360 
MSGPTR 10200 
MSGWRD 11989 
MSRCH2 5250 
MTEMPQ 4630 
MTEMPYL 1649 
MTEMP2 1650 
MTEMPS 1660 
MTEMP4 1670 
MTEMPS 4680 
MTEMP6 1690 
MTEMP7 4700 
MTEMPS 1710 
MTEMP9 4720 


019035825 


1850 
3720 
7360 
4949 


4890 
9300 
9290 
4540 
4830 
B450 
2980 
3410 
2960 
9330 


2460 


12060 
2440 
11490 
2510 
12090 
5300 
3900 
5809 
10390 
2900 
8620 
2610 
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3620 


10200 
5140 


1760 


10340 
12120 


3040 
6399 


3010 
8740 
5620 


CROSS REFERENCE YABLE 


10420 
10060 


6050 


12159 


3170 
6420 


3130 
8750 
11050 


11070 
10370 


8330 


12189 


3220 
6520 


4090 
10570 


11250 11350 


8830 9290 


12240 12240 


3280 3360 
6700 6720 


4130 4220 


12279 


3429 
6866 


5699 


12300 


5410 
7020 


5780 


12330 


5460 
7070 


6559 


12369 


5500 
7440 


6890 


12599 


5700 
7450 


7050 
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5710 
7489 


8599 
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20350 
606460 


05/31/72 
MTPOFF 8930 
MYR 370 
MTRST 5080 
MULDIV 16399 
MZCOR1 7950 
MZCORE 7830 
MZDISK 8070 
NAME 4670 
NEWBR 39390 
NExTL 10060 
NUMBR - 4660 
NUMSGN 270 
NXPTR 3960 
oco 4180 
OC1 4190 
0G2 4200 
0C3 4210 
OFF 2730 
ON 2720 
OUTPUT 6829 
OVER 4680 
OVLEN 940 
oVSTRT 930 
PLOSAV 4990 
PLi8aV 2000 
PACHAV 4930 
PAC&SW 1980 
PBFLAG 3810 
PCSAVE 1839 
PERIOD 340 
PFLAG 3770 
PHO 4260 
PHL 4300 
PHO 4340 
PHANTO 27890 
PHFLAG 2280 
PHLEN 2640 
PHSTOR 4920 
PIDN2 3850 
PIDON 3840 
PINT 4890 
PIOUT 3860 
PLDR 400 
PLUS 310 
PMQSAV 1940 
PMTR 380 
POINT 350 
PPCSAV 4950 
PPT 690 
PSCSAV 4970 
PSTSAV 1960 
PTp 719 


01¥0S823 


9360 


16280 
7200 
71490 
7210 
4680 
3940 
1470 
4670 


3970 
4190 
4200 
4210 


6690 
4650 


920 
2000 
2050 
1940 
1990 
3a20 
1849 

350 
3780 
4270 
4310 
4350 


2330 


4930 
3860 
3850 
4900 
3870 


12260 
4950 
4630 
1460 
1960 
3680 
1980 
4970 
3720 
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16350 
7740 
7730 
7770 


4030 
3230 


1670 
5810 
5830 


6700 


940 
2030 
2070 
1950 


1800 
14100 


1700 


13490 
4970 
2040 


1990 
2030 


CROSS REFERENCE ABLE 


16600 
7960 
7970 
8080 


4330 
3270 


5790 


6749 


4750 


8629 
18090 


1870 


15130 


8990 


335490 


6799 


4380 


8700 
18360 


5610 


8310 


3399 


6880 


4960 


8860 
22840 


9890 


6130 


8900 


6620 


9470 


7060 


9500 


7470 


9640 


9989 


9670 


12489 


10010 
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05/31/72 


PTPOFF 
PTR 
PTROFF 
PURCOD 
PURLEN 
PURNM 
PURSTR 
PUTIN 
RACS§ 
RONT 
RCORE 
RDBLK 
RDT 
ROTO 
ROTY 
RECQV 
REGLIS 
RES 
R&SCAT 
RESLEN 
RFLAG 


8870 
709 


- 8850 


410 
4010 
4700 
2560 
3940 
3440 
3390 
3450 
4940 
8950 
3420 
3430 

470 
9420 

330 
3470 

920 
3790 
3780 
3800 
3820 
4710 
8960 
4540 

380 
8830 
2670 
48590 
5230 
2899 

360 

250 
5410 

430 
4960 
$390 

$00 
4640 
4930 
2130 
1849 
3880 
3890 
3900 
4750 
4780 
4790 
4820 
4830 


017031235 


9300 
3700 
9290 
5140 


4710 

990 
3950 
7230 
9320 


4920 
9350 
$270 
6290 


3740 
5480 


3800 
3790 
3810 
3830 
1680 
9360 
4550 
22850 
9330 


1860 
2740 
18430 
13470 
15210 


15110 
42720 
4,720 
1889 
4850 
3890 
3900 
3910 
4760 
4790 
4800 
43830 
4849 
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7250 
7270 
7290 
4790 


4780 
2970 
18340 
2790 
22540 


1820 
6160 


CROSS REFERENCE TABLE 


430 


2560 


6400 
6750 


9300 
9290 
9330 
2000 


5950 
3100 
22790 


22800 


5900 


12700 


6730 
7330 


8460 
5270 


2690 


7530 


7310 8950 8960 


9360 
5340 3320 1689 3750 


8190 8950 9569 
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CROSS REFSRENCE TABLE 


1002 SWMTR 4770 4780 
1014 SWOPR 4840 
422022 SWP 340 
1001 SWPPR 4760 4770 6150 
40 SWPS 3460 3470 
1005 SWSPL 4800 4810 
1096 SXSPL 4810 4820 


7647 SYMB14 18170 18100 

7660 S§YMB13 18270 18140 

7655 SYMp14 18240 18280 

7675 SYMB24 18450 18410 

7574 SYMB25 17590 18430 

7564 SYMB34 17420 

7626 SYMB74 17960 48000 

3260 SYMBOL 17160 14310 17370 18060 18150 18210 


1300  sYSBaS 2800 2810 1950 840 
41300 SYSDA 2810 4630 
17735  SYSDEV 530 
1797 SYSMAX 2820 4730 
13272 7T C4 12650 
3452 YY TY 560 ea 1400 1710 1810 1990 2030 2080 2090 2110 2120 2130 2290 
3453 fF T2 570 1180 1260 1480 
13246 7 GRO 12450 
10342 y INS 780 930 4020 1050 
10390 T INA 840 
10336 YT ONL 740 990 1010 
140 868 §&7T0 480 490 
3450 T BEND 540 860 
3454 T BRTR 550 )06=—.14749 0 14889) = 17200) =—6.118240 0S 18250 750 850 880 900 950 1000 1040 
2590 2600 2760 2770 
3454 T CHAR 580 2610 
3505 T CRLF 3320 3630 3730 3880 40900 4040 4599 4650 4690 4870 8600 4150 6110 
6460 7680 7890 980 3440 11480 14720 11760 11840 
106141 T DLMR 3130 2960 3070 
3495 = FGET 2589 )0«=6.17389)=—s «4.75100 1767001 7880)0=—Ss- 118190 18570 4210 1530 2200 2620 2689 
10445 7 SIX2 2030 21440 
3467  SEXS 2190 2030 2060 2100 2250 
10511 = SIX9 2160 2220 


MTR~-BO5 


12043 
12047 
12092 
12137 
12136 
12155 
12175 
12221 
12257 
12257 
12235 
123142 
12330 
12369 
12400 
42434 
12459 
12495 
12524 
12542 
12567 
12641 
126383 
12652 
12792 
12746 
12732 
12792 
12764 
13002 
13026 
10367 
10365 
190 
175090 
17502 
3330 
3504 


3456 
10614 
3455 


2000 
2004 
2042 
2043 
2044 
2002 
2003 
2004 
2095 


05/31/72 
T,059, 114449 
7,060, 11490 
7,061, 11500 
7,062, 14510 
7,063, 11520 
7,064, 114530 
T,065, 14540 
7,066, 11550 
7,067, 11560 
T0668, 14370 
7,069, 11580 
T1070, 11599 
TyO74, 11600 
7,072, 141610 
7,073, 11620 
7,074, 114630 
T1075, 14640 
7,076, 14650 
T, 077, 14660 
7,076, 14670 
T1079, 11680 
T,080, 14690 
T,081, 14700 
T,082, 14710 
T,083, 14770 
7,064, 14780 
T,085, 14790 
T,086, 14800 
7,087, 14810 
7,088, 14820 
7,089 14830 
TicHaR =» 4.000 
TAL INE 980 
TABLEN 2630 
TAPIN 450 
TAPOT 460 
TBUFFR 49 
TCHRID 2930 
TCOUNT 600 
TOIGIT 3170 
TOLMTR 599 
TEMPO 4630 
TEMP 1 1640 
TEMP10 1730 
TEMP14 1740 
TEMP12 4750 
TEMP2 1650 
TEMP3 4660 
TEMP 4 4670 
TEMPS 1680 


01405323 


610 
830 
2640 


740 
17390 
3480 
14760 
3910 
3800 
7150 
1640 
1650 
1740 
1759 
1800 
1660 
1670 
1680 
1690 
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940 
17520 
3200 
14900 
3040 
4920 
14789 
2150 
2170 
17310 
7850 
7870 
2190 


CROSS REFERENCE TABLE 


17680 
17220 


5120 
14929 


2540 
17850 
7999 
8010 
2410 


17890 
760 


1360 
15960 


18020 
8110 
8120 
2430 


18260 
2650 


148 
15799 


18450 


8280 
8230 
2500 


18580 
11180 

1740 
16010 
18490 


8270 
2520 


1220 


12000 


2520 
1724 


4210 
2530 


1540 


2789 
770 


6270 


2210 


3150 
$140 


2710 


3530 
2639 


3150 


4169 
2789 
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3170 


6500 
2999 
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2006 

2007 

2040 

2041 
105590 

34957 

3477 
10615 
11591 
11540 
11557 
11583 
11624 
11647 
11680 
11667 
11704 

3542 
11736 
11790 
11762 
12043 
126436 
10409 
10424 
10433 
10444 
10442 

3464 


10445 
10455 
3463 


646000 
346 
345 

10522 
3423 
3465 


3494 


2000 
2001 


05/31/72 
TEMP6 4690 
TEMP7 1700 
TEMPS 1710 
TEMP9 1720 
TFGET9 2620 
TINLIN 720 
TINTIN 2640 
TLETTR 3180 
TMSG50 10910 
TMSG51 10940 
TMSG52 10990 
TMSG53 11040 
TMSG54 11090 
TMSG56 14150 
TMSG57 11170 
TMSG58 14210 
TMSG59 11270 
TMSG60 11300 
TMSG61 14370 
TMSG62 11400 
TMSG6$ 11430 
TMSG64 11479 
TMSG63 11750 
TNUM20 4210 
TNUM26 4460 
TNUM27 4530 
TNUM28 1590 
TNyM29 1600 
TNYMIN 4170 
TOCT42 4670 
TOCT44 4750 
TOCTOT 1669 
TP, 730 
TRCOOFF $549 
TRCON 5530 
TS1X24 2300 
TSIX26 2380 
TSIXIN 4970 
TSIXOT 2280 
TTEMPO 1630 
TTEMPY 1640 


01303323 


1700 
1710 
1720 
1730 


2630 
17320 
3110 


1430 
1230 
1470 
1550 
14520 
6570 
9900 


4820 
4459 
10360 
3270 
2390 
2370 
2360 
2330 
2689 
2020 
2399 
5440 
8899 
10470 
10830 
11400 
11380 
14700 
12980 
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1690 


3670 
1190 


6690 
14939 


4520 
16410 


2340 
2940 
2170 
2620 
6180 
6940 
10500 
10910 
14430 
11590 
14710 
12110 


CROSS REFERENCE TABLE 


1730 


1300 
2000 


8720 
1200 


4589 
10580 


2350 
3699 
1440 
3600 
8250 
8970 
10530 
10969 
11440 
11600 
11770 
12140 


1940 


5450 
2720 


4810 
1240 


4720 
11060 


2470 
3649 
2610 
3640 
8520 
2500 
10560 
11010 
11490 
11610 
11780 
12170 


960 
2740 


1430 


2780 


9270 
1589 


9030 


1659 


4749 
8520 
1390 
10659 
14150 
14520 
14640 
14810 
12260 


9330 
1610 


16220 


2550 


4799 
8610 
1420 

10680 

11170 

11530 

11650 

11820 

12290 


9400 
1620 


11670 


3720 


4810 
8690 
18490 
10710 
11210 
11549 
11660 
11830 
12320 


9540 
2850 


12040 


4240 


4880 
8790 
3610 
107490 
11270 
11550 
11670 
11930 
12350 


9600 


13529 


3460 


1040 
8820 
4040 
10779 
11310 
11569 
11680 
11999 
12389 
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9710 


1859 


2010 


1290 
8850 
4320 
10800 
11570 
11570 
11690 
12040 
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05/31/72 


TTEMP2 
TTEMPS 
TTEMP4 
TTEMPS 
TTEMP6 
TTEMP7 
TTEMPS 
TTEMPS 
TTTYOT 


TTYCLK 
TTYNUM 
TTYSPD 
TWORDB 


TYPE 
yGORE 
UQI&K 
YRARR 
uso 
US1 
uS2 
USER 
USERS 
USLEN 
uSTORE 
UuTO 
uTt1 
uT2 
UTEMO 
UTEM1 
UTEM2 
UTEMS 
UTEM4 
UTEMS5 
UTEM6 
VALCHK 
VALID 
VFLAG 


04703823 


4340 
10700 
22520 

3180 


3170 
3050 
17440 
1350 
2720 
4700 
4640 
4650 
4930 
4260 
4300 
4340 


3200 
2440 
1810 


4450 
4460 
4479 
4480 
4490 
4500 
4510 
4410 
4660 


PDP9 TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


4380 
10750 
4800 


3080 
17620 
1410 
2840 


20650 
20940 
22770 
4280 
4320 
4360 


2140 
2160 
2180 


4620 
5599 


CROSS REFERENCE TABLE 


4380 
10840 
2450 


3189 
17630 
1510 
2870 


2160 
2370 


4780 
5700 


4380 
11050 
2950 


3760 
17730 
15990 
3050 


5730 
8540 


4860 
111420 
3130 


5280 
17740 
1600 
3370 


22660 
3489 


10530 
12270 
3190 


6680 
17950 
1980 
3980 


11230 


103120 
12579 
3290 


6710 
18030 
2160 


10310 
13100 
3340 


6850 
18050 
2660 


10490 
13500 
3360 


2230 
18990 
2670 


10550 
13650 


3380 


5530 
19630 
1690 


10570 
22436 


16869 
1310 
1799 
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10630 
22500 


16899 
1330 
1930 


MTR-~-B05 


05/31/72 
#1 5630 
#2 5640 
#3 5650 
#4 5660 
#5 5680 
BAD 1560 
D #1 130 
DEFINS 100 
DERROR 22130 
LINE 1210 
MESS £190 
ocre 1790 


015035323 


100 
22350 


1200 
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120 


UNDEFINED SYMBOLS 


120 


580 


580 


2680 


2680 


3210 


3210 


5330 


5330 
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MTR-~~BO5 


CHAR 
CHROT 
CMDERR 
COMMAN 


COUNT 
CRLF 


DELIM 


DMODE 
EMESS 
ENTER 


FORMAT 
LING 
LOOP 
MESS 


MESSR 


MODSET 
MPOFF 


NEG 
NMESS 
NUM 


ocr 
ocTz 
oP 
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1380 
1340 
1250 

640 


1460 
1500 


1420 


780 
4750 
330 


1170 
4100 

960 
4620 


1520 


3820 
54309 


1010 
1670 
1260 


1899 
1840 
110 


01903425 
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10970 
9060 
9180 
9620 
9900 

12000 
3730 
7680 
4920 

15060 
9750 


5230 
10330 
17140 
20890 

2280 

670 
120 
3670 


2620 
8450 
1840 
10740 
14310 
148309 
12380 
2620 
84590 
18409 
10740 
143540 
11560 
14680 
12080 
3940 
2640 
5699 
14590 
4790 
8699 
14930 
4520 
8930 
190 
330 
450 
570 
690 


MACRO CROSS REFERENCE TABLE 


11020 
9970 
9200 
9630 
9910 


3880 
7890 
5120 
15790 
9760 


6470 
10439 
18310 
21100 

2580 

3860 

5470 

1300 


3600 
8520 
3610 
10770 
11370 
12940 


3600 
8520 
3610 
10770 
11370 
11570 
11690 
12110 
3950 
3210 
8539 
16210 
4810 
8720 
2850 
4380 


9030. 


200 
340 
460 
580 
700 


11120 
9080 
9210 
9640 


4000 
11480 
1360 
16010 
9770 


6800 
10530 
18550 
22200 

2580 

4150 

8749 

5450 


3649 
8610 
4040 
10800 
11400 
12080 


3649 
8610 
4040 
10800 
11400 
11580 
11700 
12140 
3960 
3320 
9979 
19530 
5440 
4810 


8640 
11670 
210 
350 
470 
590 
710 


11280 
9090 
9220 
9650 


4040 
11720 
1480 
17240 
9780 


7040 
10640 
18720 
22440 
2640 
11360 
8540 
1430 


3999 
8690 
4320 
10830 
11430 
12110 


3990 
8690 
4329 
10830 
11430 
11590 
11740 
12170 
3970 
5620 
20649 
19570 
10590 
5199 


10220 


13520 
220 
360 
480 
660 
720 


11380 
9100 
92350 
9660 


4590 
11760 
1740 
2630 
9790 


7430 
10670 
18790 
22480 

2930 
12030 

8780 


4740 
8790 
10470 
10910 
11440 
12140 


4740 
8799 
10470 
10910 
11440 
11600 
11770 
12200 
3980 
5669 
20900 


11170 
9210 


12040 
10360 
230 
370 
490 
610 
730 


11410 
9140 
9550 
9670 


4659 
14840 
2520 
2780 
9800 


7830 
10779 
18900 
22560 

3240 


2830 


4889 
8820 
10560 
10960 
11490 
12170 


4889 
6620 
10500 
10960 
14490 
11610 
11780 
12289 
3990 
5746 
1350 


11930 
9279 


10580 
10410 
240 
380 
500 
620 
740 


9120 
9560 
9680 


4690 


2780 


2990 
9810 


7950 
11390 
19170 
22660 

3320 


2860 


1040 
8850 
10530 
11010 
11770 
12200 


1040 
8850 
10530 
11010 
11500 
11620 
11790 
12260 
4000 
6240 
2150 


11990 
9330 


11060 
250 
390 
510 
630 
750 


9140 
9380 
9860 


8600 
3530 


$689 
12460 
19400 
1170 
1340 


8189 
8940 
10620 
11110 
11790 
12260 


8489 

8940 
10620 
11110 
11520 
11640 
11810 
12320 


7220 
3479 


9940 


11930 
270 
410 
530 
650 
770 


9150 
9590 
9870 


4150 
4160 


6820 
13569 
19840 

1660 

1680 


8259 
6970 
10650 
11150 
11800 
12299 


8250 

8970 
10650 
11150 
11539 
11659 
11820 
12359 


8610 
11220 


9600 


280 
420 
540 
660 
780 


PAGE 150 


9160 
9600 
9880 


6110 
6500 


10210 
14239 
20510 
1970 
2590 


8320 
1390 
10680 
11210 
11810 
12320 


8320 

13590 
10680 
11210 
11540 
11660 
11830 
12580 


8749 
12459 


9710 


290 
430 
550 
6790 
790 


MTR--BO5 


REGIST 
RESOUR 
START 
SWAP 
WHAT 


WORD 


WORD1 
WORD2 


05/31/72 


320 
1000 
1100 
5610 
1090 


1140 


1180 
1220 


0145035423 


PDP TIME*SHARING SYSTEM MONITOR AND MESSAGE ROUTINES 


MACRO CROSS REFERENCE TABLE 


820 

940 
1060 
1180 
1300 
1440 
1560 
1680 
1800 
1920 
2040 


9440 
9310 


7660 
9720 
3699 
3220 
22350 


830 

950 
1070 
1190 
1310 
1450 
1570 
1690 
1810 
1930 
2050 


9450 
9320 


7710 
9770 
3840 


1790 


840 

960 
1080 
1280 
1320 
1460 
1580 
1760 
1820 
1940 
2060 


9460 
9330 


8580 


12520 
7680 


1930 


8$0 

970 
1090 
1210 
1330 
1470 
1590 
4710 
1830 
1980 
2070 


9470 
9390 
8760 
8420 
2720 


860 

980 
1100 
1220 
1340 
1480 
1600 
1720 
1840 
1960 
2080 


9480 
9360 
8730 
1650 
2820 


870 

990 
1110 
1230 
1350 
1490 
1610 
1730 
1850 
1970 
2090 


9490 


9220 
25590 
3370 


880 
1000 
1120 
1240 
1360 
1500 
1620 
1740 
1860 
1980 
2100 


9500 


9280 
3720 
3980 


890 
1010 
1130 
1250 
1370 
1540 
1630 
1750 
1870 
1990 
2110 


9340 
4210 


900 
1020 
1140 
1260 
1400 
1520 
1640 
1760 
1880 
2000 
2120 


9410 
5460 
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910 
1030 
1150 
1270 
1410 
1530 
1650 
1770 
1890 
2010 
2130 


9440 


1440 


MTR-~BU5 


3700 


15490 
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ofegnoe 
REL, 
IMPURE 


PURE 


SYMTAQ 


1490 


1510 


O1F03323 


3460 
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$140 
19240 
14250 
198409 
720 
540 
4150 
3580 


7830 
10210 
14230 
19649 

4170 

749 
10120 


USE CROSS REFERENCE TABLE 


5230 
10260 
16399 
20510 

11470 

740 
11300 
5040 


7959 
10269 
16399 
205310 

1660 

13409 


11300 


6000 
10350 
16520 
20630 

1660 

1340 
12030 

5110 


8070 
10350 
16560 
20630 

1970 

1530 
120350 


6470 
10430 
17160 
20890 
1970 
1540 
12680 
5230 


9020 
10480 
17160 
20890 

2190 

1680 
12740 


6800 
10530 
1831t0 
21100 

2190 

1680 


5349 


980 
10530 
18310 
24100 

2280 
2130 


70t0 
196t0 
18585 
22200 
2280 
2070 


6020 


1570 
10640 
18530 
22200 

2380 

2340 


7430 
10670 
18720 
22410 

2380 

2280 


6180 


2590 
10670 
187290 
22410 

2580 

2590 


7830 
10770 
18790 
22480 

2580 

2590 


6470 


5360 
10770 
18799 
22480 

2640 

2960 


7930 
11390 
18900 
22560 

2640 

2940 


6800 


5680 
11390 
18900 
22560 

2930 

32140 


8070 
12320 
19170 
22660 

2930 

3210 


7010 


6820 
12320 
19170 
22666 

3249 

3670 
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5680 
12460 
19230 
10010 

3240 

3679 


7140 


8040 
12460 
19230 

620 

3320 

3869 
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CetetaeCsegeGeGe Hoes aetersehetesscetana 
Sete tot eens eeHetesoateseseehetesectotaen 


to ae 
#e PDP-9 MINI TIME-SHARING SYSTEM ae 
He MTSS SYSTEM LOADER ee 
as DTSS:LDR ao 
es MTSS3BO06 *o 
te 3 oe 
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LIR-~-KU6 


05/31/72 


100 
110 
120 
1350 
140 
150 
160 
470 
100 


01:05:07 


STITT 
» NAME 
TITLE 


REVISED 


INSRT 
eIFYNO 


LOADER INITIALIZATION 
LOADER INITIALIZATION 


LDR--806 
GROWTH SYSTEM LOADER 


20 JAN 1971 BY ROBERT W. 


DEF INS 
DEF INS 


BLEAN 


PAGE 


1 


DEF INS 05/31/72 01905307 GROWTH SYSTEM LOADER PAGE 2 
LOADER INITIALIZATION 
5720 >LIST ON 


5730 eEND 
180 »HEAD M 


LiR--#06 05/31/72 01°05307 GROWTH SYSTEM LOADER PAGE ) 


M LOADER INITIALIZATION 
190 »STITL LOADER INITIALIZATION 
200 ENT&R .DEFIN 
210 ,PMC SAVE,OFF 
220 »CRSM SAVE,ON 
230 »PMC ON 
240 USE IMPURE 
250 Be LY 
260 JMP #2 
270 USE PREVIOUS 
280 #2 ,EQU : 
290 ,PMC OFF 
300 »CRSM RESTORE 
310 ,PMC RESTCRE 
320 .ENDM 
330 
340 PREAD »OPDEF 795003 
350 PWRITE ,OPDEF 7050¢5 
000001 360 PYRCOD ,EQY 1 
370 » HEAD 
000001 380 DEBUG ,EQU 1 
390 »HEAD M 
014000 400 BASE »EQY 1400¢ LOADER STARTING LOCATION 
002170 410 BYF ,EQYU BUFFER 
002170 420 TBUF EQN BUFFER 
004000 430 BMAX »EQU 1000 
004000 440 TOFL »EQY 1000 
000012 450 CMDX »EQU 12 
460 »MEaD 
0037144 470 NExTl ,EQU MSNEXTL 
480 » HEAD M 
003744 490 MONXT ,EQY NEXTL 
500 * 
510 * ARRANGE THE USE COUNTERS IN ORDER 
$20 * 
003170 530 IMPSTR ,EQU 3170 START OF THE IMPURE CODE 
003700 540 PYRSTR ,EQY 3700 START OF THE PURE CODE 
000000 550 ,USE IMPURE 
003170 560 + OC IMPS7R 
003700 570 USE PURE 
580 * 
590 * CHECK FOR OVERLENGTH PURE CODE 
600 * 
610 siFG CHECK, 3600 
005700 602026 630 ACT6 +P06% SET THE NAME OF THE PURE CODE PORTION OF THIS PROGRAM 
640 
650 HEAD 
660 »INSRT sDLIBRARYSPDPOLIB:LIBMACRO 
400 s INE DEBUG,4 
120 Ife SDEBUG AVOID FORMeFEED UNLESS LISTING IS BEING PRINTED 
440 
450 


160 . 


LIBMACRO 
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170 
180 
190 
200 
210 
220 
2350 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
390 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


610 
620 
6350 
640 
650 
660 
670 
680 


01405307 
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eeese & & & & 


GROWTH SYSTEM LOADER 
LOADER INITIALIZATION 


THESE MACROS ARE FOR USE WITH THE PROGRAM PDPOLIBeaes TTY-NON 
FTY=-NON IS A NON*INTERRUPT DRIVEN TELETYPE HANDLER FOR THE CONSOLE 
TELETYPE ON THE PDP-9, 


LINE INPUT MACRO IS: 


LINE =~ GETS TWE NEXT LINE FROM THE TELETYPE, PACKS IT IN THE 
INCLUDED LINE BUFFER, AND RETURNS TO THE USER, USE BACK~-ARROW 
FOR CHARACTER DELETION AND CONTROL X FOR LINE DELETION, 
THE ROUTINE PROTECTS AGAINST BUFFER UNDERFLOW OR OVERFLOW, 


WORD INPUT MACROS ALL DELETE LEADING BLANKS, RETURNING TO THE USER 

AT #1 WITH THE DELIMITER IN THE aC IF A DEKIMITER IS THE FIRST NON} 
BLANK CHARACTER, THEY aLL UTILIZE WORDB AND WORDB+1 FOR STORAGE, aND 
ANY VALUE ACCUMULATED THERE REMAINS UmTI, THE NEXT TIME A WORD-PACKING 
MACRO IS USED ('WORD' OR 'NUMt], THE DELIMITER TWAT ENDED THE WORD 

1S STORED IN DLMTR UNTIL THE NEXY TIME &A WORD PACKING MACRO IS USED 

OR UNTIL THE USER PROGRAM USES THE ROUTINE 'CHRID!, 

THE AVAILABLE MACROS ARE: 


WORD -= PACKS CHARACTERS, IN A LEPT-JUSTIFIED SIXBIT PACK, 
INTQ WORDB, WORDB+q, .... RETURNS YHE FIRST THREE (OR 
FEWER) CHARACTERS LEFT JUSTIFIED IN THE AC, 


NUM ~= GETS ~ NUMBER, aND RETURNS IT IN TWE aC, a FORMAT ERROR 
1S CAUSED BY A LETTER BEING FoUND OR BY A DECIMAL DIGIT 
(8 OR 9) BEING FOUND WITHOUT a TRAILING DECIMAL POINT, 
THAT Te DECIMAL VALVE IS DESIRED !S SIGNALLED BY THE 
DELIMITER BEING A PERJOD, OTAERWISE Tum OCTaL VaLUE IS 
RETURNED, THE VALUE RETURNED REMAINS AVAILABLE IN WORDB, 
THIS I8 THE VALUE FOUND MOD 2¢48 -- 1,8, OVERFLOW IS LOST, 


RETURN I$: 
1 WITH LINK © 9 FOR A FORMAT ERROR 


PAGE 


1 WITH LINK # 1 FOR THE FIRST NON-BLANK CHARACTER a DELIMITER 


+2 POR SUCCESS 


WORD4 ~~ GETS THE CONTENTS FROM WORDB, THIS IS THE FIRST THREE 
SIXBIT CHARACTERS OR THE VALWE, 

WORD2 -~= GETS THE CONTENTS OF WORDBe1, THIS IS THE SECOND THREE 
SIMBIT CHARACTERS OR THE "DECIMAL" VaLUE, NOTE Twat TweE 
"DECIMAL" VALVE WILL BE GARBAGE IF AN OcTAL NUMBGR WAS INPUT, 


IN THE CaSE oF SIXBIT INPUT, FURTHER INPUT WILL BE LOST, 


COUNT -=- GETS TWE OCTAL COUNT OF THE NUMBER OF TIMES * WORD! AND 
"NUM?! WAVE BREN CALLED SINCE TWE LINE WaS INPUT, THES 
1S THE COUNT OF THE NUMBER OF WORDS EXTRACTED SO FAR 
FROM TWE CURRENT LINE BUFFER, 


DELIM ~- GETS THE LaSt DELIMITER SEEN BY 'CHRID!, THIS WILL BE 
THE DELIMITER THAT ENDED THE LAST WORD FETCHED UNLESS 


4 
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690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
4010 
1020 
4030 
1040 
1050 
1060 
1970 
1080 
1090 
4100 
1110 
1120 


1130 
1140 
1150 
1160 
1170 
1180 
1190 
4209 


01505107 


eeee2eeesw#2eeaeeues Beseeese ete gepeeesoeeeseeaeece & & & BBs 


WJNE 


WORD 


WORDL 


SROWTH SYSTEM LOADER PAGE 


LOADER INITIALIZATION 


MISCELLANEOUS 


CHAR -- 


THE USER PROGRAM {S ACCESSING 'CHRID® +TSELF. 
CHARACTER@gRIENTED MACROS: 
GETS TWE OLDEST REMAINING CHARACTER FROM THE LINE BUFFER, 


THIS PERMITS THE USER PROGRAM FO EXAMINE THE ENTIRE INPUT 
STRING, WHICH IS A WARD THING TO DO USING 'WORD!, 


RETURNS +4 WITH THE CHARACTER IN THE aC 


CRLF --* 


CHROT ~~ 


OUTPUT MACROS 
QCT -- 
QgcTzZ -- 


PRINTS A CARRIAGE RETURN AND LINE FEED, IT DISTURBS NO 
STORAGE OR POINTERS, 


PRINTS THE SINGLE ASCII CHARACTER IN THE AC, 


ARE! 
OUTPUTS AS SIX DIGIT OCTAL TAE CONTENTS OF THE AC, 
OUTPUTS AS OCTAL WITH LEADING ZEROES SUPPRESSED THE CONTENTS oF THE AC, 


MESS <TEXT>,<CHARACTER CogUNT> USES SIXBIT FaRMat To OUTPUT THE 


CARRIAGE RETURN AND KLINE FEED, FOLLOWED BY THE TEXT, IT 
FIRST DOES A 'KRB! [NSTRUCTION TO CLEAR ANY PRINT-INMIBIT, 


MESSR <TEXT>,<CHARACTER COUNT> JS THE SamME aS 'mESS!, BUY NO 


"KAB! 1S SUPPLIED, THIS PERMETS CONTINUATION CF A SINGLE 
MESSAGE, 


NMESS <TEXT2,<CHARACTER COUNT? IS THE SAME AS 'MESSR' EXCEPT 


NQ CARRIAGE RETURN NOR LINE FEED IS SUPPLIED. THIS PERMITS 
CONTINUING THE MESSAGE ON fHE SAME LINE. 


MITTING ANY KEY ON THE TELETYPE DURING OyTPuT WILL INHIBIT THE ACPUAL 
PRINTING OF ‘THE REST OF THE MESSAGE UNTIL THE NEXT tmMESS! OR KRB 
{NSTRUCTION, NOTE THAT EXCEPT THE CHARACTER IS NOT PRINTED, THE REST 
OF THe PROGRAM CARRIES ON AS USUAL. 


»DEF IN 


JMS TSINLIN 


JMS TSSIXIN 


N 
LAC TSWORDB 


L 1 oMACRO 
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4210 
1220 
1230 
1240 
4250 
1260 
12790 
4280 
4290 
4309 
4310 
41320 
4330 
4340 
4350 
1360 
1370 
1580 
13590 
4400 
4410 
4420 
1430 
4449 
14506 
4460 
4470 
1480 
1490 
1500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
1580 
4590 
4600 
4610 
4620 
1630 
1640 
4650 
4660 
1670 
1689 
1690 
4700 
4710 
1729 


01905307 


WORD2 


CRLF 


CHROT 


CHAR 


DELI™M 


COUNT 


MESSR 


#5 


MESS 


NMESS 


#5 


GROWTH 


SYSTEM LOADER 


LOADER INITIALLEZATION 


TSWORDBo1 


TSNUMIN 


TSCRLF 


TSTTyOT 


TSFGET 


TSDLMTR 


TSCOUNT 


SAVE,ON 
-#2«2 
TSS] xoT 
SAVE, OFF 
*ll#iL¢ 
RESTORE 
RESTORE 


<#1>,#2 


SAVE,ON 
~#2 
TSSIXOT 
t#i¢ 
RESTORE 


PAGE 
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000212 
000215 
000230 
000337 
000240 
000241 
000243 
000244 
000246 
bears 

273 
000254 
000255 
000256 
000256 
000257 
000272 
000273 
000334 


017777 
002000 
017500 
017502 
017505 
017777 
000010 
000041 
0000142 
017740 
017735 
017000 
000001 


000400 
000005 
000004 
017005 
740000 
001777 
777746 
600400 
776701 


130 
140 
450 
460 
470 
480 
490 
200 
210 
220 
2350 
240 
250 
260 
270 
280 
290 
390 
S10 
320 
350 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


560 
570 
580 
590 
600 
610 
620 
650 
640 


01:05:07 


2 


* 


WF 

CR 
CONTX 
BKARR 
SPACE 
EXCLAM 
NUMSGN 
DQLLAR 
AMPRSN 
STAR 
PLUS 
COMMA 
MINUS 
PERIOD 
POINT 
SLASH 
COLON 
SCOLON 
BSLASH 


ADRSS 
BOUNDA 
TAPIN 
TAPOT 
RECOV 
VFLAG 
INDEX 
CATX 
CMDX 
BOOT 
SYSDEV 
CaTLOG 
CATSLK 


CATLEN 
FCSLEN 
WDRLEN 
CPARAM 
DVCMSK 
BLKMSK 
CATMAX 
BLALEN 
DTMAX 


GROWTH SYSTEM LOADER PAGE 8 
GROWTH SYSTEM STANDARD DEFENITIONS 

»STITL GROWTH SYSTEM STANDARD DEFINITIONS 

PROGRAMMED BY ROBERT W, BLEAN 

LATEST REVISION 20 YAN 1971 

ASCII CHARACTERS 


»eQVU 212 

,€0Y 215 

»EQy 230 

eE QU 337 

2E OY 240 

2E QV 241 EXCLAMATION POINT 
»EQYU 243 

Pearls} 244 § 

»EQyU 246 & 

»EQY 252 ASTERISK (*#) 

eEQY 253 

»EQY 254 

»EQy 255 

aa) 256 ' 

»EQU PERIOD 

eEQY 257 

»EOU 272 

»EQU 273 

,EQY 334 BACK SLASH (N) 
CONSTANTS 

,EQY 17777 ADRESS FIELD MASK 
,»eQVu 2000 ¥SS USER CORE START 


,EQY 17500 
»eQU 17502 
~EOY 17505 
2EQU 17777 


,EQU 10 GENERAL PURPOSE aUTO~INDEX REGISTER 

FOU 11 CATALOG ROUTINES! AUTO-INDEX REGISTER 

+ EQY 12 

7 EQU 17740 BOOTSTRaP LOADER STyRTING ,aDDRESS 

,EQU BOQOT=3 HOLDS DEVICE ADDRESS OF CAYALO& BLOCK ON THE SYSTEM DEVICE 
»EQYU 17000 START OF TRE RESIDENT CATALOG BLOCK 

,EQU 1 CATALOG 1S at LOGICAL BLOCK «¢ OF ANY DEVICE 

,EQU 400 CATALOG LENGTH IS 490 WORDS MAXIMUM 

,EQV 5 FILE CONTROL BLOCK 1S FIVE WORDS LONG 

EQY 4 CATALOG HEADER IS FOUR WORDS LONG 

,EQU CaTLOGes5 POINTER TO PARAMETERS FOR CATALOG READ/WRITE 

»EQY 740000 MASK TO EXTRACT HANDLER NUMBER AND TYPE FROM DEVICE ADDRESS 
QV 1777 MASK TO RETRIEVE DEVICE BLOCK NUMBER 

6 QU -50, MAXIMUM NUMBER OF FILE CONTR@L BLOCKS IN & CATALOG 

FE QU 400 NUMBER OF WORDS IN ONE LOGICAL BLOCK 


.EQY “1077 MAXIMUM NUMBER OF WSABLE BLOCKS ON & DECTAPE 


GRODEFIN 


05/31/72 


777601 


606064 
606462 
606460 
446400 
646000 
445300 
004464 
006460 
004453 
445320 


436454 


414263 
425156 
476257 
435760 


650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
876 
8B8y 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
4000 
4010 
4020 
1030 
1040 
1050 
4060 
1070 
1080 
4090 
4100 
1110 
1120 
41130 
1140 
1150 
1160 


01:05:07 


NeG 


FORMAT 


START 


GROWTH SYSTEM LOADER PAGE 9 
GROWTH SYSTEM STANDARD DEFINITIQNS 

.EQY -177 MAXIMUM NUMBER OF USABLE BLOCKS ON A LOGICAL DISK 

DEVICE NAMES 


»EQU 606064 
2EQY 6906462 
2E9U 606460 
eEQY 446400 
2EQU 646000 
2 EQU 445300 
2 EQU 004464 
»EQU 006460 
»EQU 004453 
»EQY 445320 


FILENAMES 
»£QU 436454 CATALOG BLOCK 


FORMATS 


»EQY 414263 LOADSTRING BINARY 

,EQU 425156 BINARY 

»EQY 476257 GROWTH SYSTEM FORMAT (CORE IMAGE) 
,EQY 435762 CORE 


MACROS 


»DEFIN 
XX 
»ENQM 


»DEFIN 
1sZ #1 
JMP #2 
»ENOM 


»DEFIN 

CMA 

TaD (1 ) 
+ENDM 


»DGFIN 
JMP FORMAT 
»ENDM 


»DEFIN STANDARD INITIALIZATION MACRO FOR THE GROWTH SYSTEM 
oe SAVE,QN PRINT THIS ONE MACRO, AT LEAST 

CA 

1OF ICLOF 

Lac (700000 ) 

1Sa API ONr NQ PAPER TAPE READER aTTAaCHED 

TLSe10 


GRODEF IN 


05/31/72 


002175 
002170 


1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
680 

690 

700 

710 


01505307 


NEXTL 


CPARAM 
CATLOG 
Ret 


GROWTH SYSTEM LOADER 


GROWTH SYSTEM STANDARD DEFINITIONS 


PLP DISABLE YHE LIGHT PEN, ON GENERAL PRINCIPLES 
OZ CaTALT WE WON'T MESS WITH SOMEONE ELSE'S aLTERED CATALOG 
MESS <#1 HERE>, #225 
MESS «< >+1 PPRINT THE INPUT REQUEST 
LUNE GET THE USER'S J NPWT 
»PMC RESTORE 
»ENDM 
LEST ON 
END 


»EQU BUFFERe5 
»EQU BUFFER 
,OPDEF JMP+020000 
»HEAD M 


PAGE 
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LUR--KRU6 05/31/72 
M 
003701 7035302 
$03702 700002 
005703 700416 
905704 442156 
003705 
003706 
005744 
003720 
005721 
003722 603714 
903723 765112 
905724 040012 
003725 777754 
905726 043246 
0035727 
905730 560012 
005734 620012 
005782 
003734 
905744 6093744 
003745 
005760 
003761 
003763 603714 
003764 
005774 603714 
003775 
004006 603714 


720 
730 
740 
750 
760 
770 
780 
790 
800 
B10 
820 
8350 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
4000 
4010 
4020 
1030 
1040 
4050 
4060 
4070 
1080 
1090 
1100 
1410 
4120 
1130 
1140 
4150 
1160 
4170 
1180 
4190 
4200 
1210 
1220 
1230 


N1:05807 


START 


NEXT. 


esses 


MONX2 


COML 
ERRgR 


FORMAT 


WARD 
NSAVE 


GROWTH SYSTEM LOADER 


»STITL 


MAIN ?ROGRAM 


MAIN >RQGRAM 


MACRO TO SET JP PURE-CODED SUBROUTINE ENTRANCES 


»DEFIN 
»PMC 
EQU 
»USE 
»PMC 
99 
+PMC 
HLT 
JMP 
WWSE 
»PMC 
»ENDM 


CAF 
Lor 
TLSe10 
BZ 
CRILF 
MESS 
MESS 
LINE 


SAVE, OFF 


IMPURE 
SAVE.ON 


RESTORE 
IMAPBYUG 


PREVIOUS 
RESTORE 


DSBALT 


<LOADER>+6 
<2>01 ; 


SCAN NEXT COMMAND 


NEXTL 
COMTBe1 
CMDX 

COMTB COME 
CSCTEML 


CMDX,X 
CMDX,X 


CSCTEM4,COML 


SUBROUTINE ENTRANCES CANNOT BE PURE CODE 


DON'T MESS AROUND WITH SOMEONE ELSE'S aLTERED BUFFER 


REQUEST THE NEXT , ENE OF INPUT 
AND GET IT 


GET THE NEXT COMMAND 
IGNORE VACUOUS LINES 
POINT TO COMMAND TABLE 
Save IT 


SAVE COUNT 

RECOVER THE COMMAND 
CHECK (1) WORD 

GO TO IT 


<COMMAND ERRQRD,43, 


NEXTL 


<FORMAT GRROR WORD # >v20, 


NEXTL 


<DEV:CE ERROR>,12, 


NEXTL 


<FILE NOY SAVED>,14, 


NEXTL. 


PAGE 
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M MAIN PROGRAM 


004007 1240 DSAVE MESS <FILE ALREADY SAVED>,.18. 
004021 605714 1250 JMP NEXTL 


LuR --HU6 U5/31/72 
M 
004022 
003170 
Vo4022 103212 
604023 762170 
y04024 042154 
904025 203230 
yo4026 741200 
004027 625170 
904030 346066 
90403, 7414300 
904032 604036 
904033 043230 
004034 206067 
004035 604040 
004036 203230 
009037 143230 
909040 042155 
904041 203227 
004042 042153 
004043 543232 
004044 623170 
004045 macore 
004946 4322 
0p4oa7 403054 
004050 764055 
904051 652000 
004052 762153 
004053 705003 
004054 605223 
904055 203232 
004056 741200 
004057 6235170 
904060 042153 
004061 346070 
62 43232 
po4b65 962553 
004064 103172 
004065 604025 


1260 
1270 
1280 
1290 
13500 
1310 
1320 


41330 
43540 
1550 
1360 
1370 
43890 
1390 
4400 
1410 
1420 
1430 
1440 
4450 
1460 
4470 
1480 
4490 
1500 
1510 
eect 
3 
1540 
4550 
4560 
157) 
4580 
1590 
4600 
4610 
4620 
4630 
1640 
1659 
1660 
1670 
1680 


014305:0/ 


es *® 232 @ & 


COPY 


COPL 


COPL2 
COPL4 


GROWTH SYSTEM LOADER 


EJECT 


MAIN PROGRAM 


COPY SUBROUTINE 


COPIES FROM NEVICE INDA 


ENTER 
,PMC 
ge? 
JMs 
LAW 
DAC 
Lac 
SNA 
RET 
TAD 
SPA 
JMP 
Dac 
LAC 
JMP 
Lag 
DZM 
pac 
Lac 
Dac 
SaD 
RET 
Tad 
pac 
JMS 
LAW 
MQ 
LAW 
PREAD 
JMP 
Lag 
SNA 
RET 
Dac 
Tad 
Dac 
LAW 
JMS 
JMP 


COPY 
SAVE,ON 


FORCE 
BUFFER 
D$BCA 
LEN 


COPY 
(*BMAX) 


COPL2 
LEN 
(@MAX) 
COPL4 
LEN 

LEN 
DSBLEN 
INDA 
DSBDA 
OUTDA 
COPY 
(BMAX/BLKLEN) 
INDA 
C$RCCVR 
145 


DSBDA 


CSRCVR4 
OUTDA 


COPY 

D$BDA 
(BMAX/BLKLEN) 
OUTDa 

DS$BDA 

TPOT 

COPL 


PAGE 


TO DEVICE OUTDA FOR LEN WORDS 


FORCE THE BUFFER OUT IF ALTERED 


BE SURE THE CORE ADDRESS IS SET CORRECTLY 
GET LENGTH REMAINING 


RETURN IF DONE 
SUBTRACT AMOUNT WE CAN COPY IN (1) OPERATION 


RESTORE LENGTH 
GEr AMOUNT FOR 
SKIP THE OTHER 
GET LENGTW FOR 
NONE REMAINING 
SAVE NEW LENGTH TO COPY 

GEY INPUT DA 

SAWE IT 

CHECK FOR NOTHINGISH COPIES 


REMAINING 
CYRREN] COPY 
BRANCH 

copy 


COMPUTE AMOUNT TO COPY IN BLKLENKS 
RESTORE FOR NEXT COPY 
SET UP THE ERROR RECOVERY 


SET THE RESTART ADDRESS 
LOAD THE PARAMETER POINTER 
DO THE OPERATION 

ERROR RETURN 

GET OUTPUT DA 


RETURN IF INPUT ONLY 
SAVE IT 


SET THE UPDATED OUTPUT DEVICE ADDRESS FOR NEXT TIME 
GET PARAMETERS 

CORY OUT 

LOOP 
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05/31/72 


M 


004066 


005172 


004066 
004067 
004070 
004071 
004072 
004073 
004074 
004075 


043235 
405251 
764075 
652000 
203235 
705005 
605223 
625172 


004076 


005174 


904076 


700144 


004077 


004077 
604100 
004101 
904102 
004103 
0n4104 
904405 
904106 
004107 
004140 
004141 
004142 
004113 
0049194 
004145 


7001014 
7414000 
604107 
7003144 
506067 
740200 
625174 
604077 
700112 
043245 
243225 
043225 
203245 
443474 
625174 


005176 


005176 


740040 


004116 


1690 
1700 
1710 
1720 
1730 


4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
1820 
1830 
14840 
4850 
4860 
1870 
1880 


1890 
4900 
4910 
1920 
4930 
4940 
49506 
1969 
4970 
4980 
4990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 


01°05307 


TPOTL 


se #8 @# 8 & 


GETW 
GEWL 


QWi 


TIME 


GROWTH 


»EJECT 
DEVICE 


ENTER 
»PMC 
ere 
Dac 
Js 
LAW 
LMQ 
LAG 
PWRITE 
JMP 
RET 


READ A 


RETURN 
RETURN 


ENTER 
PMC 


ee 
RSB 
eee 
RSF 
SKP 
JMP 
LORS 
AND 
SZA 
RET 
JMP 
RRB 
Dac 
KOR 
pac 
Lac 
182 
RET 
USE 
Xx 
USE 


SYSTEM LOADER 


MAIN PROGRAM 


PAGE 


WRITE SETUP ROUTINE 


TPoT 
SAVE,ON 


PARW 
CSRCOVR 
005 
PARW 


CSRCVR4 
TROT 


SAVE CALLING PARAMEYERS 
SET UP THE ERROR RECOVERY 


SET THE RESTART ADDRESS 
GET PARAMETER WORD 

DO THE WRITE OPERATION 
ERROR RETURN 


WORD OF PAPER TAPE 


IS 04 JF TIMEOUT 
1S «2 IF OK, 


GETW 
SAVE,QN 


GW4 


(001000) 


GETW 
IMPURE 


PURE 


WITH THE CHARACTER IN YwEe ac 


SLELECT BINARY 
WAIT FOR READER 


we GOY IT 

NOT YET -- LOOK FOR STATUS 
RECOVER OUT+OF-TAPE BIT 

SKIP IF NOT TRUE 

RETURN TO CALLER WHEN OUT~OF-TAPE 
ELSE WAIT MORE 

GET THE CHAR 


SAVE 
COMPUTE CHECKSUM 


RESTORE WORD 
SHOW OUR SUCESS 
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M LUADER COMMANDS 
2090 »STITL LOADER COMMANDS 
2100 * 
2110 & CLEAR 
2120 # 
2130 * CLE <DEVICE> 
2140 * 
2150 « CLEARS THE CATALOG FOR A DEVICE 
2160 * 
¥04116 105212 2170 CLE Jms FORCE FORCE OUT THE OLD CaTALOG 
vo4ia7 105271 2180 JMS CSDEVCV GET THE DEVICE NAME aND CONVERT IT TO DEVICE ADDRESS FORMAT 
004120 2190 FORMAT FORMAT ERROR -- PaPER TAPE NOT LEGAL FOR THIS OPERATION 
004121 105177 2200 JMS NEWHDR GO CLEAR THE HEADER AND CATALOG FILE CONTROL gLOCK 
904122 603714 2210 JMP NEXTL 
2220 
2230 
2240 
2250 * 
2260 e NEWMDR THE HEADER AND THE CATALOG FILE CONTROL BLOCK OF THE CORE CATALOG 
2270 ry FOR THE HANDLER WHOSE pEVICE ADDRESS IS PaSSED IN THE AC, 
2280 * 
004123 2290 ENTER NEWHER SUBROUTINE TO INITIALIZE THE CATALOG WEADER AND FIR o? FILE CONTROL BLOC 
»PMC SAVE,ON 
005177 NEWHDR vee 
004123 346071 2300 Tad (4) 
004124 042175 2310 pac CPARAM SEY THE CATALOG DEVICE ADDREsSs 
004125 042453 2320 Dac DSBDA SET IT ALSO TO BE THE BUFFER DEVICE ADDRESS 
004126 346071 2330 fad (4) . 
004127 042170 2349 pac CATLOG SET THE DEVICE ADDRESS OF THE FIRST FREE BLOCK 
004180 776701 23509 Law SDTMAX 
004131 042173 2360 pac CATLOGS3 SEY THE DECTAPE MAXIMUM BLOCK NUMBER 
004132 202175 2370 Lae CPARAM LOAD THE CATALOG DEVICE ADDRESS 
004133 506072 2380 AND (40000) CHECK FOR DISK 
004134 744209 2399 SNA YES IF SKR 
004135 60414 2400 JMP NEW2 
004136 777601 2440 LAW SDKMAX 
004187 042173 2429 pac CATLOGe3 SET THE MAXIMUM DISK BLOCK NUMBER 
004140 7770140 2430 NEW2 LAW 17010 
004141 042174 2440 Dac CaTLOGed SET THE INITIAL POINTER TO TWE FIRST FREE FCR 
004142 762200 2450 LAW CaTLOGe10 
904143 040012 2460 DAC CMDX 
004144 777777 2470 LAW ~4 
004145 042172 2480 Dac CATLOG#2 SET THE INITIAL FCB COUNT 
004146 206073 2490 LAC (SCTL) 
004147 042174 2590 Dac CATLOG#4 SET THE CATALOG BLOCK'S NaME (CTL) 
904150 777000 2510 LAW 17000 
904451 042176 2520 Dac CATLOGe6 SET THE CATALOG BLOCK'S CORE ADDRESS 
904152 762170 2530 LAW CATLOG 
9041453 042154 2540 Dac DS$BCA SET THE REAL CORE ADDRESS 
004154 206074 2550 Lac (CATLEN) 
004455 0421477 2560 Dac CaATLOGe7 SEY THE CATALOG BLOCK LENGTH 
604156 042155 2570 Dac DSALEN SET THE BUFFER LENGTH aS WELL 
004157 777740 2580 LAW $800" 


LDR--B06 


004160 
004161 
004162 


05/34/72 04505307 
M 


042200 2590 
442156 26090 
623477 2610 


GROWTH SYSTEM LOADER 


Dac 
1SZ 
RET 


LOADER COMMANDS 


CATLOG#10 
DSBALT 
NEWHDR 


SET THE CATALOG BLOCK'S TRANSFER IN CASE IT GETS LOADED 
SEr THE ALTERED CAWALOG FLAG 


PAGE 
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LoIR--BU6 05/31/72 01:05:07 GROWTH SYSTEM LOADER PAGE 17 


M LOADER COMMANDS 
2620 eEJECT 
2630 t 
2640 % UNSAVE 
2650 * 
2660 * UNSAVE <TREE NAME> 
2670 a 
2680 * UNSAVE DELETES AN ENTRY FROM A CATALOG 
2690 * 
004163 103266 2700 UNS Jams CSGNAME GET THE cTh 
004164 2710 FORMAT FORMAT ERROR ~- PAPER TaPE NOT LEGAL FOR THIS OPERATION 
004165 4103254 2720 JMS C$CATL LOOK If UP 
004166 603775 2739 JMP NSAVE File NOT SAVED 
004167 200011 2740 Lac SCATX GET THE POINTER 
904170 043240 2750 Dac TEMP 
004171 463240 27690 DZ TEMP, X A NAME OF ZERO INDICATES NOTHING THERE 
004172 442156 2770 182 DSBALT SET CATALOG ALTERED FLAG 
904173 603714 2780 uMP NEXTL 


LDR--B06 O5/31/72 0140507 GROWTH SYSTEM LOADER PAGE 18 
M LOADER COMMANDS 
2790 »EJECT 


004174 105212 2800 EXIT JMS FORCE CLEAR ANY REMAINING BUFFER ALTERATIONS 
004175 705001 2810 TERMINAT 


LOR --Bl6 05/31/72 01:05:07 GROWTH SYSTEM LOADER PAGE 19 
M LUADER CCMMANDS 
2820 »EWECT 
2830 * 
28640 ® PURGE 
2850 ® 
2860 * PURGE <DEVICE> 
2870 * 
2880 * PURGE COMPACTS STORAGE FOR A GIVEN DEVICE 
2890 « 
004176 2900 pWR a 
004176 = 405271 2910 ins CSDEVCV GET THE DEVICE NAME AND CONVERT IT To HANDLER DEVICE ADDRESS FORMAT 
004177 2920 ORMAT FORMAT ERROR -- PAPER TAPE NOT LEGAL FOR THIS OPERATION 
904200 043227 2930 pac INDA 
004201 043232 2940 pac OUTDA INPUT AND OUTPUT BOTH 
904202 604241 2950 JMP PCOPY COPY OVER THE FILES 
2960 « 
2970 & DUMP 
2980 * 
2990 * LDUMP <DEVICE> <DEVICE> 
3000 . 
3010 * LOUMP DUMPS THE FILES ON THE FIRST DEVICE Yo THE SECOND DEVICE 
3020 * 
004203 3030 ' ade 
009203 403271 3040 MS CSDEVCY GET THE DEVICE NAME AND CONVERT JT TO WANDLER DEVICE ADDRESS FORMaY 
004204 3050 FORMAT FORMAT ERROR -- PAPER TAPE NOT LEGAL FOR THIS OPERATION 
004205 0435227 3060 pac INDA SET THE INPUT HANDLER DEVICE ADDRESS 
904206 405271 3070 Jms CS$DEVCV GET THE DEVICE NAME AND CONVERT IT TO HANDLER DEVICE ADDRESS FORMAT 
004207 3080 FORMAT FORMAT ERROR -~ PAPER TAPE NOT LEGAL FOR THIS OPERATION 
004210 043232 ed Dac OUTDA SET THE OUTPUT WANBLER DEVICE ADDRESS 
3110 ROUTINE TO COPY CATALOG FOR PYRGE AND LDUMP 
3120 
004241 3130 tes 
004241 203227 3140 Lac INDA 
004242 403247 3150 JMS CSRCAT READ THE INPUT DBVICE CATALOG 
004243 202172 3160 Lac CATLOGe2 
004214 043237 3170 Dac PTMP SAVE THE FCB COUNT 
004245 203232 3180 Lac OUTDA 
£04246 103177 3190 JMS NEWHDR CLEAR THE OUTPUT DEVICE CATALOG 
3200 * 
3210 « 00? TO RECOPY FILES 
3220 * 
3230 . CMDX RUNS DOWN THE INPUT DEVICE CATALOG 
3240 * CaTX RUNS DOWN THE OUTPUT DEVICE CATALOG 
3250 * 
004247 443237 3260 P 182 PTMP CHECK FOR DONE 
G04220 741000 3270 SKP 
904221 603714 3280 UMP NEXTL 
904222 220042 3290 Lac CMDX,X GEY THE NEXT FILE 
904223 741200 3300 SNA 
004224 604252 3310 JMP PURZ NOT THERE 
004225 103275 3320 JMS CSSAVE SAVE IT 
004226 740040 3330 WUT “#80} THE FILE CANNOT POSSIBLY BE SAVED !eanx 


LuR--B06 05/31/72 01205107 GROWTH SYSTEM LOADER PAGE 


M LOADER COMMANDS 
904227 220012 3540 Lac CMDX,X 
004280 043227 3350 Dac INDA SET THE INPUT FILE*S CURRENT DEVICE ADDRESS 
004231 220042 3360 LAC CMDX,.X 
004232 043240 3370 Dac TEMP SAVE THE FILE'S CORE ADDRESS 
004233 220012 3380 LAC CMDX+X 
004234 043230 33590 Dac LEN SAVE THE FILE'S LENGTH 
009235 103277 3400 JMS CSALC ALLOCATE SPACE ON fyE DEVICE FOR |T 
004236 060011 3410 Dac SCATX,X SET ITS NEW DEVICE ADDRESS 
004237 043232 3420 Dag OUTDA SAME FOR OUTPUT 
004240 203240 3430 Lac TEMP 
004241 060041 3440 Dac SCATX,X SET IT*S CORE ADDRESS 
004242 203230 3450 Lac LEN 
904243 060041 3460 pac SCATX,X SET IT*S LENGTH 
004244 220012 3470 Lac CMDX,X 
004245 060011 3480 DAC SCATX,X SET ITS TRANSFER CARD 
004246 £03170 3490 JMS COPY 
004247 203232 3500 Lac OUTDA 
9042590 103247 3510 wM$ CSRCAT GET THE OUTPUT CATALOG BACK 
004251 604247 3520 JMP PURL | 2L.00P 
004252 206075 3530 PURZ Lac (FCBLEN~-1) 
004253 340012 3540 TaD CMDX 
004264 040042 3550 Dac CMDxX SAVE NEW POSITION 


009255 604217 35690 JMP PURL LOOP 


LDR--RBl6 05/31/72 01305307 GROWTH SYSTEM LOADER PAGE 214 


M LOADER COMMANDS 
3570 »EJECT 
3580 e 
3590 SAVE 
3600 # 
3610 * SAVE <TREE NAME> <START> <END> <FORMAT> <DEVICE> 
3620 * 
3630 * SAVE CREATES & NEW CATALOG ENTRY AND LOADS 
3640 * {T WITH A FILE 
3650 & 
004256 4103266 3660 SAV JMS CSGNAME GET A NAME 
004257 3670 FORMAT FORMAT ERROR -~ PAPER TAPE NOT LEGAL FOR THIS OPERATION 
004260 103275 3680 JMS CS$SAVE SAVE IF POSSIBLE 
004261 604007 3690 JMP DSAVE DUPLICATE 
904262 200011 3700 LAC BCATX 
004263 043223 3710 Dac CaTP SET A POINFER TO THE FILENAME IN THE CATALOG 
004264 3720 NUM 
004265 3730 FORMAT 
004266 043222 3740 pac BOTM SE® THE START ADDRESS 
0094267 440041 3750 182 SCATX 
004270 060041 3760 Dac SCATX,X SAVE IT 
004271 3770 NEG 
004273 043230 3780 DAC LEN 
004274 37990 NUM GET YHE END ADDRESS 
004275 3800 FORMAT 
004276 345230 38190 Tad LEN SUBTRACT TNE START saDDRESS 
004277 7414100 3820 SPA 
004300 3830 PORMAT FORMAT ERROR -- END ADDRESS LESS THAN START ADDRESS 
6804301 043230 3840 Dac LEN 
004302 060041 3850 Bac SCATX,X SEY THE LENGTH 
004303 403277 3860 JMS CSALC ALLOCATE FOR [7 
004394 443223 3870 182 CaYP INDEX POINTER 
004305 063223 3880 pace CATP,X SEY THE FILE'S DEVICE ADDRESS 


004306 604322 3890 JMP REP4 JOIN REPLACE 


LDR~~B06 Q5/31/72 


M 


004307 403266 
004340 
004331 103254 
004392 6035775 
004343 4400141 
004314 200011 
0049345 943223 
§04346 220011 
004317 045222 
809390 220011 
904321 043230 


004322 
004323 
904324 $46076 
004325 694445 
004326 $46077 
004327 694355 
004330 546100 
009384 6094333 
004332 


3900 
3940 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
441 

412 

4430 
4140 
4150 
4160 


01505307 


mwesss 6 


REP, 


GROWTH SYSTEM LOADER PAGE 
LOADER COMMANDS 

»EJECT 

REPLACE 

REPLACE <TREE NAME> <FoRMAYD <DEVICE> 

JMS CSGNAME GET A CATALOG 

FORMAT FORMAT ERROR -~ PAPER TAPE NOT LEGAL FOR THIS OPERATION 

JMS CSCATL 

JMP NSAVE NOT THERE 

1S$Z SCATX SKIP THE DEVICE ADDRESS 

Lac SCATX 

Dac CaTP SAVE A POINTER TO FHE DEVICE ADDRESS IN THE CATALOG 

Lac SCATX,X 

DAC BOTM SEF THE CORE ADDRESS 

Lac SCATX,X 

Dae LEN SET THE LENGTH 

WORD GET FORMAT 

FORMAT 

ane joer $ABS) NECESSARY TO DO !T TWIS WAY OR ELSE ASSEMBLER TAKES aBS OPCODE 

SAD (SBIN) 

JMP BINF 

gad ($GRO0) 

JMP GROF 

FORMAT NO OTHER FORMATS 
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M 
004333 202175 
004334 043240 
004335 103266 
004336 
004337 193254 
004340 603775 
004341 220011 
904342 043227 
004343 440041 
004344 440041 
004345 220041 
004346 043245 
004347 203240 
904350 105247 
004351 
004351 223223 
$04352 043232 
904353 103170 
004354 604771 


4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
429) 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 


01305307 


O* ss #¢ 


GROY 


GROWTH SYSTEM LOADER 
LOADER CCMMANDS 

»EWJECT 

LOAD FORMATS -- GROWTH 


GROWTH TAKES A FILE FROM ANOTHER GROWTH DEVICE 


Lac CpARAM GET THE CURRENT CATALOG DEVICE ADDRESS 
Dac TEMP 

JMS CSGNAME GET A NAME 

FORMAT FORMAT ERROR -- PaPER TAPE NOT LEGAL FOR THIS OPERATION 
JMS CSCATL 

JMP NSAVE NOT THERE 

Lac SCATX,X GET THE DEVICE ADDRESS 

Dac INDA SAVE INPUT DA 

1$Z SCATX BYPASS LOC 

1§Z SCATX AND LEN 

Lac ECATX,X GEY TCD 

Dae WT SAVE IT 

Lac TEMP 

JMS CSRCAT READ IN OLD CATALOG 

ers 

Lac CATP,X 

DAC OUTDA SET THE OUTPUT DEVICE ADDRESS 

JMS COPY COPY OVER FILE 

JMP NXLT4 


PAGE 
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M LOADER COMMANDS 
4420 »EVECT 
4430 * LOADER FORMATS -~ BINARY 
4440 ® 
4450 « BINARY LOADS ABSOLUTE BINARY DATA FROM 
4460 ® PAPER TaPE, DISK, OR TAPE 
4470 * 
004355 4103271 4480 BINF JMS CSDEVCV GET THE DEVICE NAME AND CONVERT IT YO WANDLER DEVICE ADDRESS FORMAT 
004356 604366 4499 JMP BINPPT PAPER YAPE 
004357 043227 4500 pac INDA SET THE INPUT HANDLER DEVICE ADDRESS 
004360 4510 NUM GET BLOCK NUMBER 
004361 4520 FORMAT 
004362 343227 4530 TaD INDA 
004363 043227 4549 DAC INDA SET THE INPUT FILE DEVICE ADDRESS 
004364 143245 4550 DZM WT MAKE SURE WE GET A TCD 
904365 604351 4560 JMP GROL HANDLE LIKE GROWTH 
4570 # 
4580 * LOAD FROM PAPER TAPE 
4590 & 
904366 777900 4600 BINPPT Law ~BMAX . GET BUFFER LENGTH 
904367 043247 4610 pac BCOUNT Save [T 
004370 762167 4620 LAW BUF ~4 GET BUFFER POINTER 
904371 040012 4630 pac CMDX SAVE IT 
004372 777777 4640 LAW ~1 COMPLEMENT LEN 
004373 343230 4650 Tad LEN 
904374 740001 4660 CMA 
904375 043230 4670 pac LEN 
004376 223223 4680 Lac CATP,X GET OUTPUT DA 
004377 043232 4690 DAG OUTDA 
004400 105174 4700 BINL Jms GETW GET A WORD OF PPT 
004401 604440 4710 JMP BDONE DONE IF READER JS NOT READY 
904402 060042 4720 Dac CMDX, X SAVE IN BUFFER 
004403 443230 4730 182 LEN SEE IF WE WAVE MORE 
004404 744000 4740 SKP 
904405 604410 4750 JMP BDONE NO 
004406 4432147 4760 182 BCOUNT COUNT AMOUNT JN BURFER 
904407 604400 4770 JMP BINL GET ANOTHER WORD If NOT FULL 
804490 775611 4780 BOONE Law BUF oy GET ORIGINAL POINTER 
904441 340012 4790 TAD CMDX COMPUTE AMOUNT TO WRITE 
004442 043244 4800 Dac TPARAMs2 
004443 203232 4810 Lac OUTDA GET OUTPUT DA 
004494 043242 4820 Dac TPARAM 
9044435 $46070 4830 TaD (BMAX/BLKLEN) 
004446 043232 4840 pac OUTDA RESTORE NEW POINTER 
904447 763242 4850 Law TPARAM POINT TO PARAMETERS 
004429 «69403172 4860 JMS TPOT OUTPUT TAPE 
004421 203230 4870 Lac LEN 
004422 740200 4880 SZA 


004423 604400 4890 JMP BINL LOOP 


LHR--BRU6 05/31/72 
M 
004424 
004431 
004432 760003 
004433 343223 
004484 043240 
004435 
004436 604424 
904437 345140 
004440 
904440 563240 
§9N4441 741000 
804442 442156 
904443 063240 
004444 603714 


4900 
4910 
492) 
4930 
4940 
4950 
4960 
4970 
4980 
4999 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 


01:05:07 


4s 88 & 


TCD1 


GROWTH SYSTEM LOADER 
LOADER COMMANDS 


»EJECT 


GET THE TRANSFER CARD 


MESS <TDC?>s4 


LINE 

AW 3 

AD CAaTP 
Dac TEMP 
NUM 

JMP TCD 
TAD JMPW 
eo 

SAD TEMP, X 
SKP 

{$2 DSBALT 
pac TEMP,X 
JMP NEXTL 


READ THE REPLY 


MOVE THE CATALOG POINTER To FHE TRANSFER CARD SLOT 


GET THE NUMBER 


VACUOUS LINE -- ASK AGAIN 
ADD A JUMP INSTRUCTION 


CHECK AGAINST THE CURRENT ONE 


WE CHANGED THE CATALOG 
SAVE THE NEW POINTER 


EXIT 


PAGE 
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M LOADER COMMANDS 
5090 »EVECT 
5100 * 
5110 * LOADER FORMAST -- ABS 
5120 ® 
5130 * ABS LOADS A FILE IN ABSOLUTE ASSEMBLY FORMAT 
5140 * 
004445 143225 5159 ABSF DZM CKSUM CLEAR RANDOM FLAGS 
004446 143231 5160 pzM NP 
004447 443234 5170 DZM P2 
904450 443233 5180 DZM OFFSET 
9044514 443224 5190 OZ CBASE 
604452 203222 5200 Lac BOTM GEY CORE BOTM 
004453 343230 5210 TaD LEN COMPUTE TOP 
004454 $220 NEG 
004456 043241 58230 Dac TOP 
004457 443236 5240 OZ PFLAG CLEAR PPT FLAG 
004460 403274 5250 JMS CSDEVCY GET THE DEVICE NAME AND CONVERT IT TO HANDLER DEVICE ADDRESS FORMAT 
004461 604470 5260 JMP PAPER PARER TAPE 
904462 043227 5270 BAC INDA ; SET THE INPUT HANDLER DEVICE ADDRESS 
004463 5280 NUM GET THE BLOCK NyMBER 
004464 5290 FORMAT 
004465 343227 5300 TaD INDA ADB IN THE DA 
904466 043227 5310 Dac INDA SET THE INPUT FILE DEVICE ADDRESS 
904467 604613 5320 JMP ML OL 
5330 * 
5340 ® PAPER TAPE 
5350 * 
004470 5360 PAPER gig 
004479 443225 5370 DZM CKSyM CLEAR Oy7 OLD CHECKSyM 
004474 443236 3380 182 PFLAG SET PAPER TAPE FLAG 
004472 5390 MESS <MOUNT PAPER TAPE AND TYPE GO>, 28, 
004507 5400 LINE 
004510 5410 CRLF MOVE TO A FRESH LINE 
004541 4035174 5420 JMS GETW GET THE FIRST WoRD 
004542 604470 5430 JMP PAPER RETRY TIMEOUTS 
004543 505141 8440 AND INSTM MASK INSTRUCTION FELD 
904544 545437 5450 SaD DACW CHECK FOR Pac 
904545 604533 5460 JMP PLOY FOUND FIRST WORD 
0045136 700104 5470 RSA IGNORE LOADER 
004547 7001014 5480 Rsv 
904520 604517 8490 JMP yo 
004521 700112 5500 RRB 
904522 740200 5510 SZA 
004523 604516 5520 JMP 125 
004524 445225 5539 DZM CKSUM CLEAR CHECKSUM 
009525 105174 5540 P\i,02 JMS GETW GET A WORD 
804526 603764 5550 umMP HARD TIMEOUT 
004527 §05141 5560 AND INSTM MASK INSTRUCTION FIELD 
004530 545137 5570 saD DaCW CHECK FOR DAC 
004531 741000 5580 SKP 
$04532 604667 5590 JMP LEND END IF NOT 


004533 203245 5600 PiO4 Lac wT GET WORD 
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M LOADER CCMMANDS 
004534 343233 5610 TAD OFFSET OFFSET IT 
004535 596401 5620 AND (47777) TRIM TO ADDRESS 
009536 045142 5630 pac ADD SET LOAD ADDRESS 
904537 103174 5649 JMS GETW GEY A WORD OF SOURCE 
004540 603764 5650 JMP HARD TIMEOUT 
004541 5660 NEG FORM - COUNT 
904543 043226 5670 DAC COUNT 
909544 4103174 5680 JMS GETW READ CHECKSUM 
904545 603764 5690 JMP HARD TIMEOUT 
004546 203225 5700 LAC CKSUM CHECK IT 
004547 740200 5710 SZA OK 
904550 604560 5720 JMP CKERR CHECKSUM ERROR 
004551 403174 $730 JMS GETW GET A WORD 
004552 603764 8740 MP HARD TIMEOUT 
904553 403201 5750 ums PUTW PUT IT 
004554 445142 5760 18Z ADD COUNT ADDRESS 
009555 443226 5770 {$2 COUNT COUNT WORDS 
004556 604551 5780 JMP 1) Loor 
004557 604525 5790 JMP P\,02 LooP 
004560 5890 CKERR MESS <CHECKSUM ERRORD,14. 
004571 6094470 5819 JMP PAPER TRY AGAIN 
5820 * : 
5830 * SUBROUTINE TO PLACE A WORD OF SOURCE IN GORE 
5840 * 
004572 §850 ENTER PyTw 
~PMC SAVE,ON 
003201 PYTW tet 
004572 043245 5860 pac wT SAVE WORD TO PUT 
004573 205142 5870 LAC ADD GET ADDRESS 
904574 343224 8880 TaD CBASE ADD BASE QF CORE 
904575 744100 5890 SPA CHECK FOR SMALL ADDRESS 
904576 623201 5900 RET PUTW 
004577 205142 3910 Lac ADD GET ADDRESS 
004600 46102 $920 TaD (*TBUF) CHECK JF REASONABLE 
904601 740400 5930 SMA 
904602 604606 5940 JMP PUTW1 NQ -~ CHECK IF WE REALLY NEED TO LOaD THIS 
904603 2053245 8959 Lae wT 
904604 065142 5960 DAC ADD, SET WORD 
904605 623201 5970 RET PUTW RETURN 
004606 205142 53980 PYUTWL Lat ADD CHECK JF ADDRESS IS IN BOUNDS 
004607 343241 5990 TAD TOP 
004640 741100 6000 SPA 
004641 443234 6010 182 NP 
904612 625201 6020 REY PUTW 
904643 205227 6030 MLO1 LAC INDA GET INPUT BLOCK NUMBER 
004644 0432134 6040 DAC BLOCK 
004635 4103203 6050 JMS BUFIN READ FIRST BUFFERS 
004646 604633 6060 JMP NBLOCK TREAT LIKE NEW BLOCK 
004647 443226 6070 ML02 182 COUNT COUNT WORDS IN THIS STRING 
904620 741000 6080 8KP 
004621 604633 6090 JMP NBLOCK READ NEW ONE 
904622 443221 6100 MLO3 {SZ BWS COUNT BUFFER WORDS 


LDOR--B06 05/31/72 01705307 GROWTH SYSTEM LOADER PAGE 


mt LOADER COMMANDS 

004623 741000 6110 Skp 
904624 403203 6120 JMS BUF IN 
004625 223220 6130 LAC BUF AX GET NEXT WORD FROM BUFFER 
904626 445142 6140 {SZ ADD INCREMENT ADDRESS 
009627 740000 6150 NOP IN CASE OF - ADDRESSES 
004630 443220 6160 182 BUF A AND BUFFER POINTER 
004631 £05201 6170 JMS PUTW OUTPUT IT 
004632 604617 6180 JMP MLO2 LOOP 
004633 205229 6190 NBLOCK Lac BUFA GET BUFFER ADDRESS 
004634 346103 6200 TaD (377) ROUND UP TO NEXT BLOCK 
004635 596494 6219 AND (174099) 
004636 546495 6229 SAD (BASE) CHECK FOR END 
0049637 493203 6236 JMS BUF IN GET BUFFER IN IF SO 
904640 203220 6240 Lac BUFA REPEAT THE PREVIOUS OPPERATION 
904641 346103 6250 TaD (377) 
004642 506404 6260 AND (47400) 
904643 043220 6270 Dac BUF A SAVE IT 
004644 773611 6280 LAW -TBUp-1777 
004645 343220 6299 TAD BUFA . COMPUYE BUFFER COUNT 
004646 043221 6300 DAC BWS . SAVE 
904647 223220 6310 Lac BUF A,X GET COUNT 
904650 043226 6320 Dac COUNT SA¥E AS SUCH 
004651 443220 6330 182 BUFA INCREMENT COUNTER 
904652 760100 6340 LAW “47700 CHECK FOR VERY HIGH ADDRESS 
004653 363220 6350 Fad BUF A,X WHICH SIGNNALS END OF BLOCK 
904654 740100 6360 SMA 
904655 604663 6370 JMP MTCD VES A TCD 
904656 223220 63580 Lac BUF A,X GET ADDRESS AGAIN 
904657 343233 6390 TAD OFFSET 
904660 045142 6400 DAC ADD SET IT 
004661 443220 6410 {$z BUFA 
804662 604617 6420 JMP ML 02 RETURN 
004663 443220 6430 MTCD {SZ BUF A INCREMENT BUFFER appRESS 
904664 223220 6440 Lac BUF A,X GET WORD 
004665 043245 6450 Dac wT SAVE 
004666 604667 6460 JMP LEND 

6479 * 

6480 « 

6490 « END OF LOAD 

6500 * 
004667 203234 6520 Lac P2 CHECK JF PASS 2 
004670 740200 6530 SZA 
904671 604767 6540 JMP Pa. FORCE BUFFER AND EXIT IF SO 
004672 203223 6550 Lac CATP POINT TO CATALOG 
004673 103172 6560 ums TROT WRITE IT OUT 
004674 203231 6570 Lac NP CHECK FOR NEW PaSS NEEDED 
004675 741200 6580 SNA 
009676 604771 6590 JMP NXLT4 NO 
004677 777700 6600 LAW 100 SET CORE BASE 
904700 043224 6610 Dac CBASE 


904701 766000 6620 LAW “BASE+2000 


LiR--BU6 


004702 
004703 
004794 
0049705 
004706 
0047q7 
9047490 
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343222 
740100 
604756 
205222 
506103 
749200 
346106 


004744 


004743 
004744 
004745 
904746 
ee! 
0n472 

004724 


346407 
043233 
205222 
740001 
preuis 
943349 


004722 


004724 
004725 
004726 
004727 
904730 
909731 
004732 
004733 
004734 
904735 
904736 
004737 
0047409 


345230 
043244 
205240 
660510 
043240 
225223 
343240 
043242 
205236 
443254 
749200 
604470 
604613 


004741 


003203 


004741 
004742 
004743 
904744 
904745 
804746 
904747 
004750 
904751 
§04752 
904783 
904754 
904755 
904756 
004757 
004760 
004761 
004762 
004763 


764746 
652000 
763214 
705003 
605223 
203214 
346975 
043244 
762170 
043220 
776000 
043221 
623203 
203222 
740001 
346111 
043233 
225223 
043242 


6639 
6640 
6659 
666) 
6670 
6689 
6690 
67o9 
6710 
6720 
6730 
674Q 
6750 
6769 
6779 
6780 
6799 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 


6940 
6950 
6960 
6970 
6989 
6990 
7000 
7040 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 


01%05107 


LEND2 


BYFIN 


LENDS 


GROWTH SYSTEM LOADER 


TAD 
SMA 
JMP 
Lac 
AND 
SZA 
TAD 
NEG 
TAD 
pac 
Lac 
CMA 
Fad 
AND 
DAC 
NEG 
TAD 
pac 
Lac 
LRSS 
pac 
AC 
TaD 
Dac 
Lac 
1SZ 
SZA 
JMP 
JMP 


ENTER 
JPMC 
gee 
LAW 
Mo 
LAW 
PREAD 
JMP 
Lac 
TaD 
DAC 
LAW 
pac 
LAW 
DAC 
REY 
Lac 
CMA 
TaD 
pac 
Lac 
pac 


LOADER COMMANDS 


BOTM 
LEND1 
BOTM 
(377) 


(+400) 


(#TBUF e100) 


OFFSET 
BOTM 


(TBUF¢1) 
(47499) 
TeMpP 


LEN 
TPRARAM#2 
TEMP 

8, 

TEMP 
CATP,X 
TEMP 
TPARAM 
PFLAG 

P2 


PAPER 
ML0O4 


BUF IN 
SAVE,QN 


0 #5 
BPARAM 


CSRCVR4 
BLOCK 
(4) 
BLOCK 
TOUF 
BUFA 
~2000 
BWS 

BUF IN 
BOTM 


(101) 

OFFSET 
CATP,X 
TPARAM 


CHECK FOR NOTHING LOADED AT ALL 


TRIM POINTER 


FORM POINTER 


FORM PARAMETERS FOR FUTURE QUTPUT 


TRIM AGAIN 


DECREMENT LENGTH 
GET NUMBER OF BLOCKS PROCESSED 


GET START BLOCK 


SET BLOCK NUMBER 
SEB IF PPT 


SE? THE RESTART ADDRESS 
GET THE PARAMETER POINTER 
DO THE READ 

ERROR RETURN 

INCREMENT BLOCK NUMBER 


GE? POINTER 80 BUFFER 
SET BUFFER ADDRESS 
GEY COUNT 

SEY 


COMPUTE PROPER OFFSET FOR BIG LOWER BOUND 
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v04764 
004765 
904766 
004767 
804770 
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205230 
043244 
604734 
763242 
103172 


004771 


904771 
004772 
904773 
004774 
0047975 
004776 
004777 
00>000 
005001 
905002 
005003 
005004 


760008 
343223 
043240 
203245 
§05141 
§ 45440 
744000 
604424 
203245 
403273 
604470 
604440 


7130 
7140 
71450 
7160 
7470 
7180 
71990 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 


01505307 


P2L 
NXLT4 


GROWTH SYSTEM LOADER 


Lac 
Dac 
wMP 
Law 
JMS 
Law 
Tad 
DAC 
LAC 
AND 
8aD 
SKP 
JMP 
Lac 
JMS 
JMP 
JMP 


LOADER COMMANDS 


LEN 
TPARAM#2 
LEND2 
TPARAM 
TPOT 


3 
CATP 
TEMP 
wt 


C$PAPER 
PAPER 
TOD. 


SET IT 
EXIT LOAD END PROPERLY 
FLOSH CORE 


GET THREE 


GET LAST THING PROCESSED 
GET INSTRUCTION 
CHECK FOR JMP 


GET TCD 

GET WORD 

CHECK FOR PAPER TAPE 
ves 

SET IT 


PAGE 
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105266 


005006 


005007 
005010 
05041 
9050492 
07043 
005044 
905045 
905046 
005047 
005020 
905021 
005022 
905023 
905024 
005025 


105254 
603775 
$432352 
405210 
#20011 
043227 
440011 
e20041 
045230 
2200%1 
042000 
443205 
205230 
741200 
605044 


005026 


905030 
905031 
005032 
905033 
905034 
9050385 
005036 
905037 
005040 


005 
005043 


005044 
905045 
905046 
905047 
005050 


003 
p05205 


043296 
403590 
203230 
343226 
043226 
762167 
040042 
220042 
403206 


041 
605023 


443205 
202000 
105206 
403210 
603744 


205 
740040 


005051 
005051 


0035206 
005051 652000 


01505307 


Bees & 


BUFN 


PNCH 


GROWTH SYSTEM LOADER PAGE 
LOADER COMMANDS 


,EVECT 
PUNCH <TREE NAME> 


PUNCH PUNCHES A HARDWARE LOADABLE BINARY TAPE OF THE FILE NAME 


ums CSGNAME GET A NAME 

FORMAT FORMAT ERROR -- PaPER TAPE NOT LEGAL FOR THIS OPERATION 
JMS CSCATL LOOK IT UP 

umP NSAVE NOT SAVED 

DZM OUTDA SET NO FILE FLAG FOR COPY 
JMS LEADER GET SOME LEADER 

Lac SCATX,X GET THE DEVICE ADDRESS 
pac INDA SAVE FOR COPY 

152 SCATX BYPASS STARTING LOCATION 
Lac SCATX,X GET LENGTH TO COPY 

pac LEN 

Lac SCATX,X LOAD THE TRANSFER CaRD 
pac TEMPO SAVE IT FOR NOW 

pzM PUNF SET FORMAT TO NORMAL 
Lac L&N GET LENGTH NOW 

SNA 

JmMP PUNX END OF BUFFERS 

NEG MAKE 22S COMPLEMENT 

pac COUNT SAVE JT 

JMS COPY cory FILE 

LAC LEN GET NEW LENGTH 

Tad CQynT FORM COyNT 

pac COUNT 

LAW BUF -4 POINT TO BUFFER ADDRESS 
pac CMDX SAVE IT 

LAC CMDX,X GET A WORD 

JMS PNCH PUNCH IT 

OOF COUNT, PUNL LOOP ON COUNTER 

ume BUFN GET SOME MORE TO PWNCH 


END OF PUNCHING 


132 PUNF SET FLAG FOR PUNCH ROUTINE 
Lac TEMPO RECOVER THE TRANSFER CARD 
JMS PNCH PUNCH AS LAST WORD 

JMs LEADER 

JMP NEXTL GE? NEXT LINE 


SyBROYTING TO PYNCH A WORD OF BINARY 


USE IMPURE 

XX FORMAT FLAG 
USE PURE 

ENTER PNCH 

PMC SAVE,ON 


MQ PUT ARGUMENT AWAY 
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905052 
007053 
905054 
005055 
905056 
005057 
905060 
005064 
007062 
005063 
005064 
005065 
905066 
605067 
005070 
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640606 
700244 
700201 
605054 
640606 
700244 
700204 
605060 
760002 
243205 
640606 
700204 
700201 
605066 
623206 


005071 


003240 


005071 
005072 


00507 


005073 
005074 
005075 


777500 
043226 


3 
700244 
700201 
605074 


005076 


005100 


623210 


005101 


003242 


005101 
005102 
005103 
905104 
905105 
005106 
005107 
905140 
005141 
005112 


802156 
442156 
744200 
623212 
403254 
205212 
652000 
762153 
705005 
605223 


7810 
7820 
7830 
7840 
7850 


7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
7950 
7960 


7970 
7980 
7990 
8000 
8010 
6020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 


8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 


01505107 


LEADER 


LEADL 


sess ¢ 


FORCE 


GROWTH SYSTEM LOADER 


LOADER COMMANDS 


»DUP 4,2 

L$ 6, 

PSB 

PSF 

wMP Pa | 

L$ 6. 

PS8 

PSF 

JMP Ft 

LAW 2 GET A 2 

KOR PUNF GET FORMAT 

LL& 6. FORM CHARACTER 
PSA PUNCH A CHARACTER 
PSF 

JMP owt 

RET PNCH RETURN 


SYBROUTINE TO PUNCH LEADER/STRAILER 


ENTER LEADER 
PMC SAVE,OQN 


LAW =300 2CBUNT FOR LEADER 
Bac CQUNT 

aes 

PSA+10 PURCH 

PSF 

JMP oth 

OOF COUNT, LEAD1 

Ret LEADER 


WRITE OUT THE BUFFER IF THE ALTERED FLAG I$ ON 


ENTER FORCE 
,PMC = SAVE, ON 


6 

tae DSBALT LOAD THE ALTERS FLAG 

DZ D$BaLT CLEAR IT ON GENERAL PRINCIPLES 
SNA SKIP IF {7 WAS SET 

ReT FORCE ELBE EXIT 

JMS CSRCOVR SET UP THE ERROR RECOVERY 

Lac FORCE LOAD THE RETURN 

MQ PABS IT TO TWE EXEC 

Lal DSBDA LOAD a POINTER TQ THE PARAMETERS 
PHRITE WRITE OUT THE BUFFER 

JMP CSRCVRA IN CASE OF ERROR 


PAGE 
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005113 


0071413 
005144 
005145 
005146 
005147 
005120 
009121 
005122 
005123 
005124 
005125 
005126 
0051427 
007130 
005131 
005132 
005133 
0051384 
0051385 
005436 


435445 
604116 
655663 
604163 
606562 
604176 
544465 
604203 
700000 
604474 
457051 
6041474 
634166 
604256 
624560 
604307 
606556 
605005 
456262 
603734 


005137 


005137 
po5140 
005141 
005142 


040000 
600000 
740000 
000000 


003244 
003244 


Dos2a4 
905245 
905246 
005247 
905220 
905221 
0035222 
005223 
003224 
005225 
005226 
005227 
005230 
0052314 
005232 
005233 
0035254 
005235 
005236 
005237 
005240 
005241 


000000 
002170 
001000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
600000 
000000 
000000 
000000 
000000 
000000 


8200 
B210 
8220 
8230 
B240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 


8510 
8520 
8530 
8540 
8550 
8560 
8579 
8580 
8590 
8600 
8610 
8620 
8630 
8640 
8650 
8660 
8670 
8689 
8690 


01405:0/ 


cCoMTs 


COME 
DACW 
JMPW 
TNSTM 
ADD 


BLOCK 
BP ARAM 


BCOYNT 
BUFA 
BwSs 
BOY™M 
CaTP 


GROWTM SYSTEM LOADER 


»STUTL 


et 
435445 
JmP 
655663 
UMP 
606562 
UMP 


JMP 
740000 
0 

»USE 


eoaeoea0co 92 EC 92 20900 O20 380 92300 0 


STORAGE 


STORAGE 


CLE 
UNS 
PUR 
LDU 
EXIT 
EXIT 
SAV 
REP 
PWN 


ZERR/ 
ERROR 


0 
0 


IMPYRE 
O,TBUF,TBFL 


PAGE 


53 


LOR--B06 G5/31/72 
M 


005242 g00000 
005243 002170 
003244 000000 
005245 000000 
005143 


8700 


8710 
8720 
8730 
8740 


01905407 


TPARAM 


WT 


GROWTH SYSTEM LOADER 


STORAGE 
»DATA 0, BUFFER,0O 


0 

VSE PURE 
»MBAD 

eINSRT MTSSCAT 
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DESCRIPTIUN OF THE GROWTH SYSTEM CATALOG STRUCTURE 


400 .STITL DESCRIPTION OF THE GROWTH SYSTEM CATALOG SrRUCTURE 
110 » MEAD C 
120 
130 
440 ® 
150 ® MAJOR REVISION -- JAN 241, 1972 BY ROBERT W, BLEAN 
60 ® 
er ® A GROWTH CATALOG FoR A FILE-oRIENTED DEVICE IS LoCaTED IN THE 490 WORDS 
180 a OF LOGICAL BLOCK 1 OF THE LOGICAL DEVICE, fHIS PERMITS DISK AND DECTAPE 
= 70 BE USED INTERCHANGEABLY BY THE GROWTH SYSTEM PROGRAMS, 
200 * 
210 * THE DEyICE ADDRESS OF a HANDLER IS THE HANDLER NUMBER IN BITS 9-2 
gee ° AND THE TYPE (DISK (1) OR DECTAPE (€0)) IN BIT 3, 
259 * 
240 * THE DEVICE ADDRESS OF a FILE JS THE DEVICE aDDRESS OF THE HANDLER IT 
250 * 1S ON PLUS JIN BITS 8n147 {TS STARTING BLOCK NUMBER, 
260 « 
270 * ALL DEVICE ADDRESSES IN a DECTAPE CATALOG ARE CORRECT FOR THE HANDLER 
280 * THE TAPE WAS MOUNTED ON THE LAST TIME IT WeS ALTERED, 
290 « 
300 * THE FIRST FOUR WCRDS OF THE CATALOG BLOCK ARE A WEADER! 
310 * 1) THE DEVICE ADDRESS OF THE FIRST FREE BLOCK ON THE pEVICE 
320 * 2) POINTER TO THE FIRST FREE WORD IN THE CATALOG MINUS ONE PLUS THE CATALOG'S CORE ADDRESS 
330 a 3) TWOS COMPLEMENT COUNT OF THE NUMBER OF FILES CATALOGED 
340 Py 4) TWOS COMPLEMENT MAXIMUM BLOCK NUMBER ON THE DEVICE 
350 * 
360 * THE REMAINDER OF THE CATALOG CONSISTS OF a SERIES OF FIVE WORD FILE- 
370 * CONTROL BLOCKS, "HE FIRST FILE CONTROL BLOCK I8 FOR THE CATALOG ITSELF, 
380 * THEN THERE IS ONE FILE CONTROL BLOCK FOR EacW FILE ON THE DEVICE, 
390 ° 
400 « FORMAT OF THE FILE CONFROL BLOCKS: 
410 * 1) THE FIRST WORD IS THE SIXBIT ASCII (CEIGHTBIT ASCII ~ 240) 
420 ® FILENAME. THIS MEANS THE FILENAME IS RESTRICTED TO THREE 
430 * CHARACTERS, WITH NO EXTENSION OR PaSSWORD, 
440 * 2) THE DEVICE ADDRESS oF THE FILE, 
450 ® 3) THE FILE'S CORE ADDRESS 
460 * 4) THE FILE'S LENGTM <IN WORDS) 
470 * 5) THE PROGRAM START 
480 Ad 
490 ° THIS LEAVES TWo eae oF THE CATALOG BLOCK UNUSED, IT 1S SUGGESTED THaT 
300 * THE SECOND OF THESE CONTAIN THE BLOCK NUMBER OF A CONTINUATION OF THE 
510 « CATALOG, SHOULD THIS EVER BE NECESSARY; !T WOULD BE ZERO IF THERE 
520 * 1S NO CONTINUED CATALOG BLOCK, 


MiSSCal 05/31/72 
C 
003246 
005246 000000 
005143 
005143 
0032467 
905443 043246 
005144 4035212 
005145 
005145 203246 
005146 506112 
005147 042153 
005150 506072 
009454 740200 
005152 206113 
0051453 242153 
905154 246071 
909155 042153 
005156 762170 
005157 0942154 
605160 206074 
009161 042155 
005162 1035254 
905163 765170 
005164 652000 
005165 762153 
005166 705003 
005167 605223 
905170 2035246 
905171 506112 


01%05:07 


CTEMS 


e*® @et et eee ef @ &@ee# & & 


RCAT 


RCOATS 


RCATS 


GROWTH SYSTEM LOADER 


»STITL 
wUSE 


»DSA 
»WSE 


RCAT -- THE BASIC CATALOG ROUTINE, 


IMPYRE 


PURE 
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GROWTH SYSTEM STANDARD CATALOG ROUTINES 


GROWTH SYSTEM STANDARD CATALOG ROUTINES 


CATALOG ROUTINE'S PRIVATE TEMP 


IT READS IN CATALOGS AND UpDaTES THEM 


FOR THE CURRENT DEVICE AND (POSSIBLY NON@STANDARD) CATALOG LOCATION, 


A HANDLER DEVICE ADDRESS 18 paSSED IN THE ac, 


THE REQUESTED 


CATALQG IS READ IN AND ALL OF THE BEVICE ADDRESSES ARE UPDATED, 
AS A RESULT, THE CATALOG IN CORE ALWAYS HAS THE PROPER DEVICE ADDRESSES 
FOR THE DEVICE IT WAS READ FROM, 


RETYRN IS #41 WHEN THE DESIRED CAyaALOG IS IN CORE, 


IN THE EVENT OF UNRECOVERABLE ERROR, EXIT ¥S TO AN ERROR ROUTINE, 


ENTER 
PMC 


RGAT 
SAVE,OQN 


CTEM, 
MSFORCE 


CTEM, 
(DVCMSK ) 
D$BDA 
(040000) 


(SSYSBAS} 
DSBDA 
(SCATBLK) 
D$BDA 
BUFFER 
DSBCa 
(400) 
DSBLEN 
CSRCOVR 
RCATS 


DSBDA 


RCVR4 


SAVE THE DEVICE ADDRESS OF THE DEVICE WHOSE CaTaLOG IS BEING REQUESTED 
FORCE THE OLD BUFFER BEFORE READING a NEW ONE 


GET TME NEW HANDLER+1S DEVICE ADDRESS 
SET THE MaNDLER DEVICE ADDRESS 

RECOVER JUST THE DESK/DECTAPE BJT 

SKIP FOR DECTAPE 

ELSE LOAD THE DISK SYSTEM BASE ADDRESS 
ADD THE BASE ADDRESS INTO THE HANDLER DEVICE aDDRESS 
ADD IN THE CATALOG BLOCK NUMBER 

SAVE THE NEW CATALOG'S DEVICE ADDRESS 
LOAD A POINTER TO THE BUFFER 

SET IT aS THE CORE ,DDRESS 

LOAD THE LENGTH 

SEY 17 aS FHE BUFFER LENGTH 

SET UP THE ERROR RECOVERY 


LOAD YHE RESTART ABDRESS 

GEF a POINTER TO TRE CATALOG PARAMETERS 
READ JN THE NEW CATALOG 

IN CASE OF ERROR 


NOW UPDATE YWE DEVICE aDDRESSES 


LAC 
AND 


CTEM1 
(DVCMSK ) 


MTSSCal 


UN5172 


$0173 
002174 
905175 
005176 


002177 
00°200 
005201 
005202 
002203 


007204 
005205 
905206 
005207 


902240 
005241 
905242 


905243 
005244 
005245 
005246 
005247 


05/31/72 
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643246 


202170 
506114 
243246 
042170 


762175 
045212 
045254 
202172 
043254 


a25212 
3061144 
245246 
063254 


443251 
744000 
623247 


205212 
34641145 
0432142 
043254 
605204 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
4170 
4180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


01505307 


RCAT4 


GROWTH SYSTEM LCADER 


DAC 


Lac 
AND 
XQR 
Dac 


LAW 
DAC 
nac 
Lac 
DAC 


LAC 
AnD 
XOR 
Dac 


1$2 
SKP 
JMP 


Lac 
TaD 
Dac 
Dac 
JmP 
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CTEML 


CaTLOG 
(BLKMSK) 
CTEML 
CATLOG 


CATLOGeS 
MSFORCE 
CATL 
CATLOGe2 
RCOVR 


MSFORCE,X 
(BLKMSK) 
CTEM4 
CATL.X 


RCOyR 
RCAT.X 


MSFORCE 
(FCBLEN; 
MSFORCE 
CATL 
RCAT4 


SET THE CURRENT DEVICE ADDRESS 


UPDATE THE OLD DEVICE ADDRESS OF THE FIRST FREE BLOCK 


SET POJNTERS TO THE FIRST OLD DEVICE ADDRESS 
SEY THE COUNT OF FCBIS 

LOaD THE NEXT OLD DEVICE aDDRESS 

RECOVER THE BLOCK NUMBER 

ADD IN THE CURRENT WANDLER DEVICE ADDRESS 
SAVE THE UPDATED FILE DEVICE aDDRESS 

COUNT FHE FILES powe 

ALL DONE 


LOAD THE FCB POINYER 
ADVANCE [7 TO THE NEXT FCB 


SAVE THE NEW POINTER 
LOOP 
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005220 
003254 
005220 777776 
002221 045253 
095222 623251 
005223 
005233 443253 
009234 623251 
005235 
005253 
005254 
005255 605235 
005256 545263 
005257 603744 
$05260 645264 
905261 603252 
005262 605235 
0035253 
005253 00000 
005263 
005263 514756 
005264 435756 


1500 
1510 
1520 
1330 
4340 


1350 
1360 
43570 
43580 
4390 
4400 
1410 
1420 
44939 
1440 
4450 
4460 
4470 
1480 
1490 
4500 
1510 
4520 
4530 
1540 
1559 


04505307 


RCOVR 


RCVR4 


RCOVRS 


ERCNT 


IGN 
CON 


GROWTH SYSTEM LOADER 


»EJECT 


ENTER 
PMC 
ee? 
LAW 
DAC 
JMP 


MESS 
182 
JMP 
MESS 
LINE 
WORD 
JMP 
SAD 
JMP 
SAD 
JMP 
JMP 
USE 
DSA 
USE 
»ACLE 
1ACTO 


GROWTH SYSTEM STANDARD CATALOG ROUTINES 


RCOVR 


SAVE,ON 


-2 
ERCNT 
RCGOVR, X 


SUBROUTINE TO SET UP RECOVERY FROM HARDWARE ERRORS 


SET FOR FIVE RETRIES BEFORE GIVING UP 


<DEVICE ERROR>,12, 


ERCNT 
RCOVR,X 
<TYPE 


RCVR5 
IGN 
SNEXTL 
CON 
RCOVR+4 
RCVRS5 
IMPURE 


PURE 
1] GNe 
*CONe 


‘IGNORE’ OR #CONTINUE'? 


COUNT THE ERROR 


129, 
GET THE USER'S ANSWER TO WHAT WE WANTS TO DO ABOUT IT 
READ HIS ANSWER 


NO INPUT IS ILLEGAL 
IGNORE THE LAST COMMAND 


SEY UP TO TRY AGAIN 
ANY OTHER ANSWER I8 ILLEGAL 
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c GROWTH SYSTEM STANDARD CATALOG ROUTINES 
4560 ,EWECT 
4570 * 
1580 * CATL 
4590 * 
1600 ry CATL SEARCHES THE CATALOG IN CORE FOR THE FILENAME 
1610 & PASSED IN THE AC 
1620 a 
1630 * RETURN +2 WITH CATX POINTING YO THE FILE NAME IF SUCCESSFUL 
1640 * 
1650 * RETURN +44 WITH CATX PQINTING To THE FIRST FREE SPACE -1 IN THE 
1660 « CAYALOG IF THE FILE NAME IS NOT FOUND 
1670 * 
005265 4680 ENTER CATL 
,PMC SAVE,OQN 
003254 CATL ere 
005265 043301 1690 Dac TSWORDB SAVE CATALOG NAME 
4700 * 
4710 & FIRS CHECK WHETHER OR NOT yHIS IS A SPECIAL FILE 
4720 » 
005266 203270 4730 Lac CDFLG LOAD THE CORE/DISK SPECIAL FILE FLAG 
8905267 741200 1740 $NA SKIP IF [7 IS SET 
0052790 605342 78 JMP CATLG NO -~ THEREFORE {T 1S A NORMAL FILE 
1760 * 
4770 * FIND OUT WHICH KIND OF SPECIAL FILE WE ARE TALKING ABOUT 
1780 # 
005271 1790 WORD1 
005272 543256 41800 SAD CORE 
005273 605331 4810 JMP CORE, IT IS THE USER CORE FILE 
005274 543262 4820 Sad DISK 
005275 605343 1830 UMP DISK, IT JS THE WSER DISK FILE 
005276 4840 MESS <ILLEGAL SPECIAL FILE>I20, 
907341 605714 ie JMP MSNEXTL GET TwE NEXT COMMAND 
186 * 
4870 * NEXT CHECK FOR NORMAL FILES 
4680 * 
005312 762173 1890 CaATLAa = LAW CATLOG#S 
005343 040041 14900 Dac SCATX SET aA POINTER TO THE FIRST FCB IN THE CATALOG AUTO-INDEX REGISTER 
0053134 202172 4910 Lac CATLOGe2 GET CATALOG COUNT 
905345 043246 1929 Dac CTEML SAVE [Tf 
005346 4930 CATLL WORD, RESTORE NAME TO SEARCH FOR 
905347 860011 1940 SAD SCATX,X CHECK IT 
905320 605327 4950 UMP CAYLO FOUND IT 
605321 200011 1960 Lac SCATX 
005322 346075 4970 Yad (FCBLEN@1) FAILED -~ MOVE THE POINTER 76 THE NEXT FILE CONTROL BLOCK 
905323 040041 4980 pac SCATX 
005324 443246 4990 1$2 CTEM4 COUNT 
905325 605346 2000 JMP CATLL LOOP 
905326 623254 2010 JMP CATLsX EXWAUSTED, NO FILE FOYND -~- BAD RETURN 
905327 443234 2020 CATLO {sz CaTL GOOD RETURN 
905330 623254 a JMP CATL,X 
204 * 
2050 * SPECIAL CATALOG AND ROyyINES FOR yHE YSER CORE IMAGE 
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005256 
905256 435762 
005257 000000 
905260 002000 
005261 014000 
005331 
005331 
005331 
005331 705000 
905332 2014766 
005333 7440900 
005334 640510 
005335 246072 
009336 0943257 
005337 704742 
005340 763256 
005341 040011 
005342 605327 
003262 
905262 445163 
005263 000000 
005264 900000 
005265 016000 
005343 
005343 
005343 
005343 705000 
005344 201767 
905345 744000 
005346 640510 
005347 2460972 
905350 043263 
005351 701742 
005352 763262 
905353 040011 
005354 605327 


2060 
2070 


2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 


2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2510 
2320 
2330 
2340 
2350 
23560 


2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 


01405307 


GROWTH SYSTEM LOADER 
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GROWTH SYSTEM STANDARD CATALOG ROUTINES 


DISK ADDRESS OF THE USER CORE IMAGE 
STARTING CORE ADDRESS OF THE USER CORE 
LENGTH Of USER CORB 


SET UP THe USER CORE [MAGE aS A FILE 


TURN OFF MEMORY PROTECT 

LOAD THE USER CORE IMAGE DISK ADDRESS 

PROTECT THE SHIFT 

MAKE THE PHYSICAL ADDRESS INTO A BLOCK ADDRESS 
SET THE DISK BIT ON 

SET IT IN THE TEMPORARY CATALOG 

REeENABLE USER MODE 

LOAD A POINTER To THE CATALOG 

AND PASS IT TQ THE CALLER 

EXIT 


CATALOG AND ROYTINGS FOR FHE YSER wPHYSICalL pISKn 


USE IMPURE 
eAC16 *CORe 
»DSA 
BOUNDARY 
CORMAX-BOUNDARY 
, USE PURE 
eee 
MPOFF 

PMC SAVE,ON 
SPECIAL+O 

Lac SUCORE 
(of 
LRS 8, 
KOR (040000) 
DAC CORDA 
MPBY 

Law CORE 
Dac SCATX 
JMP CATLO 
SPECIAL 

USE IMPURE 
ACI6 = e DI Se 
OSA 

0 

SDKLEN 

/USE PURE 
ere 

MPOFF 

PMC SAVE,ON 
SPECIALs0 
Lac $UDISK 
CLL 

LRS 8, 
KOR (040000) 
pac DISDA 
MPBY 
LAW DSK 
pac SCATX 
JMP CATLO 


DISK ADDRESS OF THE USER "PHYSICAL DISK 
MINIMUM USER "PHYSICAL DISK" aDDRESS 
LENGTH OF THE USER wPHYSICaL pISk* 


TURN QFF MEMORY PROTECT 

LOAD THE USER "RiYSIeal DISK" DISK ADDRESS 
PROTECT THE SHIFT 

MAKE THE PHYSICAL ADDRESS INTO A DISK ADDRESS 
SEY THE ODYSK BIT ON 

AND SET IT IN THE TEMPORARY CATALOG 

RE#ENABLE USER MODE 

LOAD A POINTER TO THE CATALOG 

PASS IT TO THE CALLER 

EX!T 


40 


MTSSCAT 05/31/72 
¢ 
005355 
003266 
009355 4143270 
005356 
009357 605412 
005360 
005361 546116 
UN5362 605366 
005363 403273 
$05364 623266 
005365 605376 
005366 765372 
005367 0435271 
005370 
9053741 605426 
905372 625266 
005373 103247 
005374 
905375 740000 
005376 
005377 546117 
905400 605405 
005401 
go>5402 741200 
005403 
005404 605410 
005405 
005406 
005407 043301 
005440 443266 
005441 623266 
003270 
005270 000000 


2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 


2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 


2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
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seeseneeseese &© & UG 8 


GNAME 


GNAMY 


GNAM2 


GNAMS 


GNAMS 


GNAME6 


GNAMB 


ses & 


corFLG 


GROWTH SYSTEM LOADER 


»EWECT 


GNAME 


GNAME GETS A FILE NAME FROM 


pAGE 


GROWTH SYSTEM STANDARD CATALOG ROUTINES 


THE TTY BUFFER 


AND READS IN JHE CATALOG IF NECESSARY 
RETURN IS 
RETURN IS 


ATHERWISE 


#1 FOR PAPER TaP& DESIRED 
#2 FOR SUCCESS ON DISK OR DECTAPE 
EXIT 1S TO FORMAT ERROR 


THE FILE NAME IS RETURNED IN TSWORDB AND IM FHE AC, 


ENTER 
, PMC 
ee 
DZ 
WORD 
JMP 
DELIM 
Sad 
JMP 
JmMs 
JMP 
JMP 


LAW 
Dac 
WORDS 
JMP 
JMP 
JMS 
WORD 
NOP 
DELIM 
SAD 
JMP 
WORD1 
SNA 
FORMAT 
JMP 
NWM 
PORMAT 


hac 
1$Z 
JMP 


CHECK FOR A SPECIAL FILE REQUEST (E,G, 


USE 
+DSA 


GNAME 
SAVE,QN 


CDFLG 
GNAM9Q 


(S$COLON) 
GNAM2 
PAPER 
GNAME,X 
GNAMS5 


GNAM3 
DEVCV 


DEVC3 


GNAME,X 
RCAT 


(SSLASH) 
GNAME6 


GNAM8 


TSWORDB 
GNAME 
GNAME ,X 


IMPURE 


INITIALIZE THE SPECIAL FILE FLAG 

GET A WORD OF SIX BIT ASCII 

cHeckK FOR A SPECIAL FILE IF A DELIMITER IS FIRST CHARACTER 
GET THE DELIMITER 

CHECK FOR COLON 


CHECK FOR PAPER TaPE 
YES -- PAPER TAPE 
NO -- SO USE CURRENT CATALOG 


RELOAD THE CATALOG NAME 
CONVERT IT TO A DEVICE ADDRESS 


READ IN THE CATALOGS 
GET ANOTHER WORD 


GEY THE DELIMITER 

CHECK FOR SLASH 

LOOK FOR OCTAL 

ELSE RECOVER THE SIXBIT NAME 

CHECK FOR ALL SPACES 

FORMAT ERROR -~ ALL SPACES I8 AN ILLEGAL NAME 


GEY THE NUMBER 


70 BE COMPATABLE WITW SIXBIT INPUT 
GOOD RETURN 


‘CORE’ OR 'D 8K!) 


FLAG FOR PRESENCE OF SPECIAL FILE REQUEST 
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005442 


005442 
005442 


r028ts 
007444 
005445 


007446 
005447 
005420 
005421 


546116 


741400 
60536 


206120 
043304 
443270 
605366 


2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
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GNAM9Q 
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USE 


tee 
DELIM 
SaD 
SKP 
JMP 


LAC 
Dac 


INX 
JMP 


GROWTH SYSTEM STANDARD CATALOG ROUTINES 


PURE 
RECOVER THE DELIMIVER 
(SCOLON) CHECK FOR A VACUOUS COLON 
YES -- IY IS A SPECIAL FILE 
GNAM4 NO -~ RETURN TO NORMAL PROCESSING 
($DKo) LOAD THE IMPLIED SYSTEM DIgk MNEMONIC 
TSWORDB FAKE THAT IT WAS TYPED 
CDFLG FLAG THE SPECIAL FILE REQUEST 


GNAM?2 RESUME NORMAL PROCESSING OF THE FAKED INPUT 


42 
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005422 


005271 
005422 
005423 


905424 
005425 
005426 
905427 
005430 
005431 
005432 
005433 
905434 
005435 
005436 
005437 
005440 


403273 
623271 
506121 
546422 
605440 
946123 
605440 
546424 
603446 
603723 
650004 
744000 
650000 


005441 


005442 
002443 
007444 
005445 


640617 


606112 
443094 


623274 


003446 
0035446 


005446 
005447 
005450 
005451 
905452 


905453 


705000 
204770 
pose ae 
74020 

605436 


205270 


3080 
3090 
3100 
3110 
3120 
3130 
3140 
3159 
316 

317 

3180 
3190 
3200 
3210 


3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
33510 
3320 
3330 
3340 
3550 
3360 
3370 
338Q 
3390 
3409 
3410 
3420 
3430 
3440 
3459 
3460 
3470 


3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
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eo ee ee Fee es & & 


DEVCY 


DEVCS 


DEVCS5 
DEVc4 


EVC4 
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»EJECT 
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DEVCV -- READS THE NEXT WORD, 
RETURN IS +14 WITH THE NAME IN THE AC IF IT IS & PAPER TAPE CALL 


OTHERWISE Iy ATTEMPTS 7O CONVERT YHE NAME 70 DEVICE ADDRESS FORMAT, 


{Ff SUCCESSFUL, 


IT RETURNS «2 WITH THE HANDLER NUMBER IN aAaCtQ-2) AND 


THE DEVICE TYPE (DISK ¢1) OR DECTAPE (9)) IN AC(3). REMAINING BITS 
ARE ZEROED. 


EXIT JS TO THE FORMAT BRROR MESSAGE IF THE DEVICE 1S NEITHER PAPER TAPE 
NOR DJSK NOR DECTAPE, 


CLOICMO 
SKP 
ka 
WORD1 
LLS 
AND 
1$Z 
JMP 


DEVCV 
SAVE,ON 


PAPER 
DEVCV,X 
(777700) 
($TP.) 
DEVC4 
($0T.) 
DEVC1 
($DK,) 
DEVC4 
MSMONX2 


18.3 
(DVCMSK) 
DEVCV 
DEVCV,X 


GEr yME DEVICE NAME 


CH&CK FOR PAPER TaPE 
YES -- PAPER TAPE 
REMOVE DEVICE NUMBER 
CHECK FOR QECTAPE 
YES 

CHECK FOR DECTAPE 


CHECK FOR DISK 

17 18 DISK -- CKECK FOR VALIDATION 

NO OTWERS »- MAYBE J? IS A COMMAND 

FOR DISK PUT THE SIGN BIT ON IN THE MQ 


CLEAR Q@ FOR TAPE 

RESTQRE NAME 

SHIFF TO POSITION 

CONVERT TO MANDLER DEVICE ADDRESS FORMAT 
INCREMENT RETURN 

AND NOW REFURN 


DISK FILE OPERATIONS ARE PERMITTED ONLY FOR VaLIDATEn USERS 


MPOFF 

PMC —so SAVE, ON 
SPECIAL+0 

Lac SVALID 
MPEY 
SZ 

JMP DEVC35 


CHECK FoR A SPECIAL FILE QPERATION ~~ IF So, 


Lae 


COFLG 


TURN OFF MEMORY PROTECT 
LOAD THE USER'S VALIDATION WORD 


Skip JF THE USER JS NOY VaLIDaTED 
ELSE THE OPERATION CAN PROCEED 


If 1S ALLOWED 
LOAD THE SPECIAL FILE FLAG 


43 


MTSSCal 


905454 
005455 


05/31/72 
C 


740200 
605436 


005456 


009473 


6038744 


005474 


005273 


005474 
005475 
005476 
097477 
905500 
00°59 

005503 
005503 


546425 
625273 
546126 
623273 
546127 
623273 
443273 
623273 


3560 
3579 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 


3680 
3690 
3700 
374 

372 

3730 
3740 
3750 
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PAPER 
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SZA SKIP IF NOT SET «- THEN THE OPERATION IS ILLEGAL 
JMP DEVC35 1T 1S A SPECIAL FILE OPERATION, SO ALLOW IT 


DISK OPERATION I8 ILLEGAL 


MESS <DISK OPERATION IS FORBIDDEN>,27, 
JMP MSNEXTL GET THE NEXT COMMAND LINE 


PAPER CHECKS THE AC FOR A PAPER TAPE MNEMOMIC, IP REPURNS o4 IF It 
FINDS ONE, ELSE RETURNS «2, THE AC IS UNCHANGED, 


ENTER PAPER 
PMC SAVE,ON 


SAD (SPPT) 
JMP PAPER, X 
SAD (SPTR) 
UMP PAPER, X 
SAD (SPTPR) 
MP PAPER,X - 
§2 PaPER NO PaPER TaPE MNEMONIC 


JMP PAPER,X 
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005504 


003275 
005504 103254 
005505 741000 
005506 623275 
902507 202172 
005540 446130 
00°544 495524 
005542 346131 
00°543 942472 
009544 202171 
005535 346115 
905546 042171 

005547 
005520 060011 
005521 442156 
005522 443275 
905523 625275 


— 005524 
905534 603714 


005535 


003277 
005535 346103 
005536 660540 
005537 043246 
905540 202170 
005541 652000 
905542 343246 
905543 043246 
005544 506114 
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3760 
3770 
3780 
3790 
3800 
3810 
3829 
3830 
3840 
3850 
3860 


3870 
3880 
38990 
3900 
3940 
392 

393 

3949 
3950 
3960 
3970 
3989 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4109 
4110 
4120 
4130 
4140 
4159 


4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
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eeeoeesexss 8 @ 


@ 
»> 
< 
m 


CFULL 


ees 8 ee £8 


Bad 
r 
Q 


GROWTH SYSTEM LUADER PAGE 
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»EVECT 

SAVE CHECKS THE CATALOG FOR THE NAME FOUND IN THE AC 

RETURN IS «4 [IF THE FILE IS ALREADY SAVED 

A CATALOG ENTRY IS CREATED FOR THE NAME AND RETURN I$ #2 OTNERWISE 

EXJTS TO AN ERROR MESSAGE IF THE CATALOG 18 FULL 


ON RETURN CaTX POJNTS TO THE FILE NAME [N TWE CATALOG 


ENTER SAVE 

,PMC SAVE,ON 

oe | 

JMs CaTL LOOK YP NAME 

SKP 

JMP SAVE,X DONtT ALLOW DUPLICATES 

I Ye CATLOGe2 LOAD FHE FCB COUNT 

Sad (CATMAX: CHECK FOR CATALOG ALREADY FULL 
JUMP CFULL VES ~~ EXIT TO ERROR MESSAGE 
TAD (-1) COUNT THE NEW FILE 

Dac CaTLOGe2 UPDATE THE FCB COUNT 

Lac CATLOGes GET FREE POINTER 

TaD (FCBLEN> ADB ONE FYLE CONTROL BLOCK LENGTH FOR TWE NEW ENTRY 
pac CATLOGe1 

WORDS RECOVER THE FILE NAME 

pac SCATX»X SAVE IT 

1$2Z DSBALT FLAG THE CATALOG WaS BEEN ALTERED 
1SZ SAVE 

JMP SAVE,X 

MESS “CATALOG FULL>,12, 

JMP SNEXTL 


ALC RECEIVES a WORD COUNy IN YHE AC AND GALCULAYES 7WE LEAS, INTEGER 
NUMBER OF BLOCKS THAT CAN HOLD THA? LENGTH, IT THEN aLLOCATES THE STORAGE 
IN THE CORE CATALOG WEADER AND RETURNS WITH THE DEVIGE ADDRESS OF THE 
FIRST FREE BLOCK IN THE AC, 


BXtT 1S TO AN ERROR MESSAGE JF THIS ALLOGATION WOULD RESULT IN 
OVERFLOWING THE DEVICE. IN THIS CASE THE CATALOG IS UNALTERED, 


ENTER ALC 

PMC SAVE,ON 

ery 

fad (377) ROUND UP TO A BLOCK 

LRSS 8. AC = MINIMUM INTEGER NUMBER OF BLOCKS REQUIRED 
DAC CTEM1 SAVE IN A GOOD RANDOM PLACE 

LAG cATLOG GE’ TWEE POINTER TO TWE FIRST FREE BLOCK 

MO SAVE JIT 

fad CTEMY ADB THE REQUESTEH NUMBER OF BLOCKS YO FORM a NEW POINTER 
DAC CTEMY SAVE THE NBW POINTER 

AND (1777) EXTRACT BLOCK NUMBER 
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Cc 
009545 3424173 
009546 740100 
005547 605554 
902550 203246 
905554 0421709 
905552 641002 
005553 623277 

005554 

005564 603714 


4240 
4250 
4260 
4270 
4280 
4290 
4300 
4340 
4329) 
4330 
4340 
8750 
8760 
400 

120 
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TAD CATLOG#3 SEG JF WE OVERFLOWED TWE DEVICE 

SMA NO IF SKP 

JMP DFULL FULL =~ HELP#®?7!@ 

LAC CTEM 

Dac CATLOG SE? THE FREE FCB POINTER NOW WE KNOW IT WILL BE OK 
Laca RESTORE THE DEVIGE aDDRESS OF THR FIRST FREE BLOCK 
JMP ALC.™ 

MESS <DEVICE Fyll>,41. 

JMP SNEXTL 

END 

»HEgD 


eINSRT = s:DLyBRARY1PDP9L]B: TTYNON 
INE SDEBUG)14 
IPE SDEBUG+1 
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130 
140 
150 
160 
170 
180 
490 
200 
210 
220 
250 
240 
250 
260 
270 
280 
290 
300 
310 
320 
350 
340 
359 
369 
370 
380 
390 
400 
410 
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»STITL MYSS=PDP9 NON-INTERRUPTING TELETYPE HANDLER 
»HEAD T 


PROGRAMMED BY ROBERT W, BLEAN 
LAST REVISED 24 MARCH 1972 


THIS HANDLER PERMITS NON@INTERRUPT DRIVEN INPUT FROM AND QUTPUT 
TO THe CONSOLE TELETYPE ON THE PDP~9 COMPUTER, 


THIS HANDLER ALTERS HE Ac, AND MQ, IY DOES NOT ALTER ANY CORE 
MEMORY OUTSIDE OF ITSELF, IN PARTICULAR IT pOES NOT ALTER ANY AUTQ-INDEX REGISTER, 


DATA FORMATS: 
1) OCTAL 


2) SIXBIT -- SIXBIT IS 8-BIT ASCIL MINUS 240, THIS MAPS THE PRINTING 
CHARACTERS ONTO Ther SET 0-77, ASCIE VALUE 333 ({) IS USED FOR 
CARRIAGE RETURN AND 335 ()) JS USED FOR LINEFEED, NOTE THAT NEITHER 
333, 335, NOR ANY CONTROL CHARACTERS CAN BE RECOGNIZED IN SIXBIT, 


3) ASCII «- ONE ASCII CHARACTER JS STORED PER wORD, LINE INPUT 
IS STORED IN THIS FORMAT, SINCE THERE IS ONLY ONE LINE*QUFFER 
THE EXTRA BUFFER LENGTH WASTES LESS SPACE THAN WOULD THE HANDLING 
ROUTINES NECESSARY FOR OTHER FORMS OF PACKING CWHRACTERS, 
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T (MTSS TELETYPE HANDLER?) STORAGE AREA 
420 ,STITL «(MTSS TELETYPE HANDLER) STORAGE AREA 
430 LIFE PURCOD.1 
003301 440 WSE IMPURE 
450 
460 
003301 470 WORDB ,BLOCK 2 ROOM TO ACCUMULATE TWO VALID WORDS 
000120 480 STD EQy 80, STANDARD JS AN 80-CHARACTER LINE BYFFER 
003303 490 BUFFR +8L0CK STD 
500 a 
510 * 
520 * VARTABLES 
550 * 
805423 005422 540 BEND mt END OF THE CHARACTER BUFFER 
005424 000000 550 BPTR ,DSA POINTER TO CURRENTKY acTIVE WORD IN LINE BUFFER 
905425 000000 560 T1 »DSA TEMPORARY VARIABLE 
905426 900000 570 T2 DSA TEMPORARY VARIABLE 
809427 0900000 580 CHAR DSA STORES LATEST CHARACTER FROM FGET 
005430 000000 590 DLMTR DSA STORES LATEST DELIMITER THROUGH CHRID 
905431 000000 600 COUNT ,DSA 
610 sTFE PURCOD»1 


005565 620 VSE PURE 
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7 


005565 


003432 


005565 
005566 
905567 
905570 
005571 
905572 
905573 
005574 
005575 
005576 
009577 
905600 
005601 
005602 
905603 
005604 
005605 
005606 
905607 
905640 
005641 
905642 
905643 
905644 


905645 
905646 
905647 
005620 
005621 
905622 
007623 
905624 


700312 
206132 
043424 
443434 
£43430 
700313 
605572 
546433 
605617 
§46134 
605645 
652000 
203424 
543423 
744000 
443424 
641002 
063424 
946135 
741000 
609572 
763302 
043424 
623432 


103460 
605566 
203424 
545566 
605572 
346131 

43424 

05572 


6350 
640 
650 
660 
670 
680 
690 
700 
710 
720 


730 
740 
750 
760 
¥70 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
4010 
1020 
4030 
1049 
10590 


01:05:07 


see & & 


INULIN 
INL 


INL 


1, INE 
1CHAR 
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(MTSS TELETYPE HANDLER) LINE BUFFER INPUT 


(MTSS TELETYPE HANDLER) LINE BUFFER 


INPUT 


THE PROGRAM IS PROTECTED AGAINST QVERFLOW oR UNDERFLOW OF THE LINE 
BUFFER, UNDERFLOW (EXCESS DELETIONS) IS {GNORED, AND OVERFLOW CHARACTERS 


ARE LOST, 

ENTER INLIN 
~PMC SAVE,ON 
KR3 

LAC (BUFFRe1) 
Dac BRTR 
BZ COUNT 
pz” DLMTR 
KSFYKRB 

JMP ott 

SaD (S$BKARR: 
JMP 1CHAR 
SAD (SCONTX: 
JMP iL INE 
LMQ 

Lac BPTR 
SAD BEND 
3KP 

{sz BPTR 
LACQ 

DAC BPTR,X 
Sad ($CR) 
SKP 

WMP IN4 

AW BUFFR=4¢ 
Bag BPTR 
JMP INLIN,X 
JMS CRLF 
JM? INL 

LAC BPTR 
$aD INL 

JMP IN4 

a.) (-1) 
pac BPTR 
JMP IN4 


EXCEPT FOR THE LAST CHARACTER YYPED, 


SUBROUTINE TO READ JN AND BUFFER A LINE FROM THE TELETYPE 


ONCE, ON ENTRANCE, CLEAN UP ANY PRIOR INPUT 
LOAD A POINTER TO START OF TWE SUFFER MINUS ONE 
INITIALIZE THE BUFFER POINTER 

INITIALIZE THE WORD FETCHED COUNT 

INITIALIZE THE LaS® DELIMITER STORAGE 

GE? THE NEXT INPYT CHARACTER 


DELETE ONE CHARACTER IF IT WAS A BACKARROW 


DELETE THE ENTIRE LINE IF IT WAS a CONTROL X 

SAVE THE CHaRaCTBrR 

LOAD THE CURRENT BUFFER POJNTER 

SKIP IF NO OVERFLOW 

AVOID DAMAGE DUE TO OVERFLOW 

ADVANCE THE POINTER ~= IT 1S STILL WITHIN TWE QBUFFER 
RELOAD THE CHARACTER 

AND PUT $7 IN THE BUFFER 


EXIT WHEN & CARRYAGE RETURN [S FOUND 
ELSE GET THE NEX? CHARACTER 


RESET THE BUFFER POINTER AY FHE END OF THE LINE 
AND RETURN TO THE CALLER 


PRINT THE RESPONSE 70 A LINE«DELETE 
REREAD THE LINE 

LQAD THE BUFFER POENTER 

SKIP IF NQ UNDERFLOW 

ELSE IGNORE THE COMMAND 

DECREMENT THE BUFFER ROINTER 

AND SAVE [T 

GE? THE NEXT CHARACTER 


49 


TTYNON 05/31/72 01405307 GROWTH SYSTEM LOADER PAGE 59 
T (MTSS TELETYPE HANDLER) OCTAL WORD INPUT/OUTRUT 
4060 ~STITL (MTSS TELETYPE HANDLER) OCTAL WORD INPUT/OUTRUT 
1070 
4080 * 
1090 # prennl pon RETURN L AC MQ MEANING 
4100 Bw ww eee wee mm we eek Nein dade 2 Heng wt iwace mg iwecmecuceteekes 
4110 INPUT +1 o xX Xx FORMAT GRROR DISCOVERED 
1120 * +1 1 DELIM xX FIRST NON*BLANK CHARACTER IS A DELIMITER 
4130 a *2 1 OCTAL DELIM SUCCESSFUL READ OF AN OCTAL NUMBER 
4140 Py OUTPUT +41 Xx xX 4 SUCCESSFUL WRITE OF AN OCTAL NUM@ER 
4150 ® 
1160 
005625 1170 ENTER NUMIN 
,PMC SAVE,ON 
003434 NUMIN ere 
005625 443426 41890 DZM T2 INITIALIZE THE DECIMAL-DIGIT=RECEIVED FLAG 
005626 103452 1190 JMS INTIN INITIALIZE THE INRPWY STRING, ETC 
005627 623434 4200 JMP NUMIN,X RETURN +4 FOR DELIMITER IS FIRST NON-~BLANK CHARACTER 
005630 403450 1210 NyM20 JmMs FQET GET THE NEXT CHARACTER 
905631 103454 1220 JMS CHRID IDENTIFY IT 
005632 605654 4230 JMP NUM26 It 1S A DELIMITER, SO EXIT 
005633 623434 4240 JMP NUMIN,X tT 1S A LEFTER, SO EXIT +1 FOR A FORMAT ERROR 
005634 741400 1250 $Zl, SKIP IF THE CHARACTER IS AN OCTAL DIGIT 
005635 443426 41260 1$Z T2 ELSE BE SURE THE DECIMAL=DIGIT*RECEIVED FLAG IS SET 
905636 506136 1270 AND (17) RETAIN JUST THE DIGIT 
005637 043425 4280 Dac Ty AND SAVE JT FOR DECIMAL ACCUMULATION 
1290 
905640 640503 4300 LRS SAVE THE "OCTAL O);6,7" 
005641 203301 4310 Lag wORDB LOAD THE PREVIOUSLY GATHERED wOCTAL NUMBERM 
905642 640603 4320 LES 3 CONCATENATE THE "OCTAL DIGITS" 
005643 045301 41330 Dac WORDB AND SAVE THE RESULT 
4349 
009644 203302 14350 Lac WORDB ot LOAD THe PREVIOUSLY GATHERED "DECIMAL NUMBERO 
005645 744900 1360 ELL SEY THE LINK FOR THE MULFIPLY 
005646 655422 4370 MUL MULTIPLY TNE PREV]OUS wDECIMAL VALUEN 
05647 000012 43580 40, BY 10 FOR DECIMAL 
05650 644002 1390 aca LOAD THE RESULT 
005651 343425 4400 Tad ii ADD THE CURRENT wDECIMAL DIGITH 
905652 043302 1410 Dac WORDBs4 AND SAVE TWE TOTAL wDECIMAL NUMBERn 
4420 
005653 605630 1430 JMP NuM20 Loop 
4440 
1450 
005654 546137 41460 NUM26 Sad (SPOINT) CHECK FOR A PERIOD 
005655 605663 1470 JMP NyM27 IF SO, PICK YP TWE DECIMAL yaLy& 
005656 203426 +480 Lac T2 ELSE LOAD THE DECIMaL. DIGTTS<RECEIVED FLaG 
005657 744200 4490 SZAyCUL AND SKIP [F THERE WERE NONE 
£05660 623434 1500 JMP NUMIN,X RETURN +4, LKe0 FOR «a FORMAT ERROR: DECIMAL DIGITS, BUT NO PERIOD 
905661 203391 1510 Lac WORDB LOAD THE QOCTAL VALVE 
805662 605672 1520 JMP NUM29 
805663 103450 41530 NUM27 JMS FGET GET THE NEXT CHARACTER 
£05664 103454 1540 JMS CHRID AND IDENTIFY IT 
005665 605671 15590 JMP NUM28 A DELIMITER IS LEGAL. SO EXIT 


TTYNON 


005666 
002667 
005670 
905671 
005672 
005673 
005674 
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y 


623434 
744900 
623434 
205302 
043301 
443434 
623434 


005675 


0053456 


905675 
905676 
905677 
005700 
005704 
005702 
905703 
005704 
005705 
905706 
005707 
905740 
905741 
005742 
005743 
005744 
005745 
005716 
905747 


652000 
741400 
750201 
777772 
043425 
641002 
744200 
744900 
641603 
740200 
744000 
346140 
740400 
403456 
443425 
605705 
700404 
605745 
623436 


1560 
1570 
1580 
1599 
1600 
1610 
1620 
1630 
1640 
1650 
1660 


1670 
41680 
4690 
170Q 
4710 
4720 
4739 
1749 
4759 
4760 
1770 
4780 
4790 
4800 
4810 
4820 
1830 
484) 
4850 
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NUM28 
NUM29 


OcToT 
OocT42 


OCT44 
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JMP 
elk 
JMP 
Lac 
Dac 
18Z 
UMP 
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(MTSS TELETYPE HANDLER) OCTAL WORD INPUT/OyTPYT 


NUMIN,X 


NUMIN,X 
WORDB*4 
WORDB 
NUMIN 
NUMIN»X 


OCcTOT 
SAVE.ON 


A LETTER -~ EXIT +1 FOR A FORMAT ERROR 

A NUMBER -~ CLEAR THE LINK FOR A FORMAT ERROR 
AND EXIT #1 

LOAD TRE DECIMAL VALUE 

SAVE THE CORRECT VALUE 

BUMP TO A RETURN #2 FOR SUCCESSFUL 


SET THE VALVE TO BE OUTPUT 

SKIP IF NO LEADING ZEROES ARB TO BE SUPPRESSED 

SET A FLAG TO PRINT ONE CHARACTER, ANYWAY, IF THE AC IS ZERO 
ELSE SET THE COUNT FOR TWE STANDARD SIX CHARACTERS 

SEY THE NUMBER OF CHaRACTERS TO BE OUTPUT 

RELOAD TWE USER'S VaLUE 

SKIP FOR A NON@ZERQ@ VALUE 

ELSE FORCE A SINGLE ZERO To PRINT 

GET THE NEXT OCTAL DIGIT 

1F IT IS ZBRO, DON*T CHANGE PRINT-SUPPRESSION STATE 

ELSE CLEAR THE PRINT INHIBIT AT THE FIRST NON-ZERO FOUND 
MAKE aSCII_ IN ANY CaSE 

BUT SKIP IF PRINT 1S INHIBITED 

ELSE PRINT THE DIGIT 

DONE??? 

NQ -- |00P 


WAIT FOR THE TELETYPE TO SETTLE 
YES «= EXIF 
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005720 


005440 


005720 
005721 
005722 
005723 
005724 
005725 
005726 
005727 
909730 
0057381 
905732 
905733 
905734 
905735 
005736 
909737 
005740 


005741 
005742 


7635301 
043425 
403452 
623449 
443440 
4103442 
660714 
063425 
4103442 
660706 
263425 
063425 
103442 
2653425 
063425 
443425 
605725 


205304 
625440 


003743 


003442 


005743 
905744 
905745 
905746 
905747 


905750 


4103450 
403454 
605741 
740000 
346141 


625442 


0057914 


003444 


005751 
005752 
005753 


043425 
223444 
652000 


1860 
4870 
1880 
4890 
1900 
4910 
1920 
4930 
1940 
4950 
1969 
4970 


1980 
1990 
2000 
2010 
2020 
2039 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2150 
2140 
2150 
2160 
2170 
2180 
2190 


2200 
2210 
2220 
2230 
2240 


2250 
2260 
2270 
2280 


2290 
2300 
2310 
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SIXIN 


S}X2 


SIX9 


3 1X5 


S|XOT 


51X24 
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sSTUTL 


OPERATION RETURN L AC 


INPUT 
OUTPUT 


ENTER 
PMC 


Law 


(MTSS TELETYPE HANDLER) SIXBIT WORD INPUT @ SIXBIT BUFFER OUTPUT 


(MTSS TELETYPE HANDLER) SIXBIT WORD INPUT @ SIXBIT BUFFER OUTPUT 


+1 
*2 
1 


SIXIN 
SAVE,ON 


SIx5 
SAVE,ON 


FGET 


CHRID 
SIX9 


(*240) 
S[X5.X 


$|xoT 
SAVE,QN 


T4 
SIXOT,X 


MQ 


1 DELIM xX 
1 SIXBIF DELIM 
X x X 


MEANING 

FIRST NoN-BLANK CHARACTER IS & DELIMITER 
SUCCESSFUL READ OF aA SIXBIT WORD 
SUCCESSFUL WRITE OF a SIXBIT BUFFER 


INITIALIZE THE SIXBIT BUFFER POINTER 
INITIALIZE THE INPUT 


RETURN +#¢ FOR DELIMITER 1S FIRST NON-BLANK CHARACTER 


ELSE BUMP TO a GOOD RETURN 

GET THE FIRST GOOD CWARACTER 

AND PUT IT IN THE FIRST CHARACTER POSITION 
AND SAVE [7 

GET THE SECOND CHARACTER 

PUT IT IN THE SECOND CHARACTER POSITION 
CONCATENATE THE CHARACTERS 

AND SAVE THE RESULT 

GEY THE THIRD CHARACTER 

CONCATGNATE THE CHARACTERS 

AND SAVE THE RESULT 

BUMP THE S¥ORAGE BUFFER POINTER 


LO@P 


LOAD THE FURST SIXBIT wORD 


EXIT 


SUBROUTING TO GET THE NExT CHARACTER, MAKE IT SIyBIT, ExIT IF a DELIMITER 


GET THE NEXT CHARACTER 
IDENTIFY If 

EXIT IF {7 JS A DELIMITER 
PERMIT LETTERS 

MAKE SIXBIT 


SET THE NEGATIVE CMARACTER COUNT 
LOAD THE NEXT WORD OF OUTPUT 
SAVE IT FOR PRINTING 


TTYNON 05/31/72 
T 
009754 443444 
005755 103446 
005756 1053446 
005757 103446 
005760 605752 
005761 
003446 
005761 6441606 
005762 346142 
009763 546443 
905764 760245 
005765 546144 
005766 760212 
905767 103456 
005770 443425 
005771 625446 
005772 700401 
905773 605772 
905774 625444 


2320 
2530 
2340 
23550 
2560 
23570 
238) 


2399 
2400 
2410 
2420 
2430 
2449 
24590 
2460 
24790 
2480 
2490 
2500 
2510 
2520 
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1$Z 
JMS 
JMS 
JMS 
JMP 


ENTER 
,PMC 
ete 
LiSC 
TAD 
$aD 
Law 
SAD 
LAW 
JMS 
{$2 
JMP 
TSF 
JMP 


UMP 
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(mMTSS TELETYPE HANDLER) SIXBIT WORD INPUT a SIXBIT BUFFER oUTpUT 


S|xOorT 
S1X26 
S[X26 
S1X26 
S1X24 


S1X26 
SAVE,QN 


6. 


(240) 
(333) 


S1X26,X 


re 
S|XOT.x 


BUMP THE POINTER 

OyTPUT THE FIRST CHARACTER 
OUTPUT THE SECOND CHARACTER 
OUTPUT THE THIRD CHARACTER 
LOOP 


GET THE NEXT SIXBIT CHARACTER 
MAKE JT ASCIT 
CHECK FOR CARRIAGE RETURN MAPPING 


CHECK FoR kINE FEED MAPPING 
PRINT THE CHARACTER 

ALL CHARACTERS PRINTED? 

NO -= 400? 


WAIT FOR THE TELETYPE TO SETTLE 
YES =~ EX]? 


53 


TTYNON 


05/31/72 
T 


005775 


003450 


005775 
005776 
005777 
006000 


443424 
223424 
043427 
623450 


006001 


003452 


906001 
006002 
906003 
006004 
906005 


676 
886885 
905040 
006041 
905042 
906043 
006094 
606095 
006046 


443434 
143301 
143302 
103450 
546142 
6non04 
193834 
623452 
740000 
443452 
750004 
343424 
043424 
623452 


2530 
2540 
2550 
2560 
2570 
2580 


2590 
2600 
2610 
2620 
2630 
2640 


2650 
2669 
2670 
2680 
2690 
27 

5798 
2720 
2730 
2740 
2759 
2760 
2770 
2780 


01405107 


FGET 


FGET9 


INTIN 
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FGET 
SAVE,QN 


BPTR 
BPTR,X 
CHAR 
FGETsX 


INTIN 
SAVE,ON 


COUNT 
WORDS 
WORDB et 
FGET 
(SSPACE) 
72 
CHRID 
INTINGX 


INTIN 
BRTR 


BPTR 
INTIN,X 


SUBROUTINE TO GET THE FIRST REMAINING CHARACTER FROM THE LINE BUFFER 


NO -- BUMP THE POINTER 
LOAD THE NEXT CHARACTER 
AND SAVE [T 


INT TIALIZE INPUT WORD-GETTING 

COUNT THE WORD. SUCCESSFUL OR NOT 

INITIALIZE THE TWO FIRST WORDS OF YHE INPUT BUFFER 
GET THE NEXT CHARACTER 


CHECK IT FOR A SPACE 
THROW AWAY SPACES 


IDENTIFY THE NON®SPACE 
RETURN +4 FOR A DELIMITER 
ELSE BUMP TWE RETURN FOR A NUMBER OR A LETTER 


BACK UP THE POINTER TO POINT TO THE FIRST GOOD CHARACTER 


TTYNUN 


05/31/72 
T 


006047 


005454 


906047 
906020 
906021 
00°22 
006023 
005024 
906925 
905026 
905027 
00°D3p 
006031 
906032 
006033 
006034 
006035 
00°36 
90°07 
006040 


006041 
006042 
006043 


905044 
906045 
009046 
905047 


506103 
045456 
346145 
745402 
606044 
346146 
7451400 
406044 
346147 
745492 
606044 
346750 
745302 
606041 
506131 
344432 
744102 
606045 


#03456 
043430 
623454 


443454 
443454 
203456 
623454 


006050 
003456 


80°050 
906051 


700404 
609050 


279) 
2800 
2810 
282) 
2830 
2840 
285 

286 

2870 
2880 
2890 
2900 
2910 
2920 
2930 


2940 
2950 
2960 
2979 
2980 
2990 
3000 
3010 
3020 
3039 
3040 
$050 
3060 
3070 
3080 
3099 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3490 
3200 
3210 
3220 
3230 
3240 


3250 
3260 


01405:07 


eeee ee &S& & EES 


CHRID 


DLMR 


DIGIT 
La@TTR 


TTYOT 
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©STITL (MTSS TELETYPE HANDLER) MISCELLANEOUS CHARACTER=HANDLING SUBROUTINES 


CHRID -- SUBRQU~INE To CLASSIFY EJGHT-BIT ASCII CHARACTERS, 
ENTER WITH THE CHARACTER IN THE AC) LEAVE WITH THE EIGHT-BIT CHARACTER 
IN AC(0-17) AND THE LINK AS FOLLOWS! 


RETURN LINK MEANING 


anette ie ential tte eRe ee Be tek bt etet bale, boi ek Soe ee ee ee 


#1 1 THE CHARACTER IS A DELIMITER ¢1,E, NEITH@R A DIGIT NOgp A LETTER 
re) 0 THE CHARACTER 1S EITHER AN UPPER CASE OR & LOWER CASE LETTER 
43 0 THE CHARACTER IS AN OCTAL DIGIT 
+3 1 THE CHARACTER IS A DECIMAL DIG#T (8 OR 9} 

ENTER CHRID 

,PMC SAVE,QN 

eos 

AND (377) 

Hac TTYOT SAVE THE EIGHT~BIT ASCII CHARACTER 

YaD (260) AC <€ 0 FOR DELIMITA&RS 

SPASSTL 

UMP DLMR CHARACTER IS A DELIMITER 

TAD (#10) Ac ¢€ 0 FOR OcYAL ptairs 

cone ne 

JMP DIGIT CHARACTER IS AN OC¥AL DIGIT 

TaD (-2) AC < 0 FOR DECIMAL pDIGITSs 

SPASSTL 

JMP DIGIT CHARACTER IS A DECEMAL DIGIT 

TAD (#6) Ac <8 0 FOR peELIMIVERS 

SNA{SpAr:STL 

JMP DLMR CHARACTER IS A DELIMITER 

AND (777737) MAP LOWER CASE INTG UPPER CASE 

TaD (+33) AC ¢€ 9 FOR LETTERS -- L324 FOR LETTERS! L¥q FOR DELIMITERS 

SPAICML 

JMP LETTR THE CHARACTER {S$ , LETTER 

Lac TTYOT LOAD THE DELIMITER 

pac DLMTR SAVE IT 

JMP CHRID,X 

{sz CHRID 

1$z CHRID 

LAC TTYQT RELOAD THE CHARACTER 

JMP CHRID,»X 

ENTER TTYOT 

PMC SAVE,ON 

ees 

TSF 

JMP cs | WAIT FOR THE TELEBPRINTER YO BE FREE 


55 


TTYNON 


006052 
006053 
006054 


05/31/72 
’ 


700304 
700406 
623456 


004055 


003460 


006055 
006056 
006057 
006060 
906061 
906062 
906063 
006064 
006065 


760245 
03456 
60245 

403456 

760242 

103456 

700404 

606063 

623460 


003462 
003462 
003700 
006066 


906066 
906067 
606070 
906071 
006072 
006073 
906074 
006075 
805076 
006077 
006100 
906101 
006102 
905103 
906104 
006105 
006106 
006107 
906110 
906141 
906112 
606143 
006144 
906145 


777000 
0014000 
000002 
600001 
040000 
436454 
000400 
000004 
414263 
425456 
476257 
017797 
775640 
000377 
017400 
014000 
777400 
775740 
002171 
000101 
740000 
001300 
001777 
000005 


3270 
3280 
3290 
3300 
3310 
3320 


3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
$430 
3440 
3450 
3460 
8770 
8780 
8790 
8800 
8810 
8820 
8830 


015051307 


CRLF 


CHECK 


RGT 


GROWTH SYSTEM LOADER 


PAGE 


(MTSS TELETYPE MANDLER) MISCELLANEOUS CHARACTER@MANDLING SUBROUTINES 


KSF 

T.L5 

JMP TTYQT.X 
ENTER CRLF 
PMC SAVE,ON 
eee 

LAW 215 
Jms TTYOT 
LAW 215 
JMS TTYQT 
LAW 212 
JMS TTYOT 
‘sr 

JMP ot 
JMP CRLF ox 
»MBAD 

shIST = ON 

s END 

»HBAD 

»WSE IMPURE 
ee QV ° 

LOC PURSTR 
/V8E PURE 


,OPDEF JMP+020000 
eEND MSSTART 


KILL =7HE@OUTPUT PEATURE 
PRINT THE CHARACTER IN THE AC 


WAIT FOR THE TTY TO SETTLE 


TURN OFF THE INSBRT'1S MEAD SYMBOL 


56 
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0n6116 000272 
006147 000257 
906120 445320 
600121 777700 
90122 646000 
00123 446400 
009124 445300 
90125 606064 
006126 606462 
90127 606460 
000130 7777146 
006134 777777 
00132 0035302 
004133 000337 
006134 900230 
00135 000245 
00136 000047 
00137 000256 
90140 000260 
900141 777540 
006142 000240 
005143 000333 
006144 000335 
006145 777520 
006146 777770 
006447 777776 
006150 777772 
006151 777737 
0061452 777745 


TRANSFER ADDRESS 603701 
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BOUNDA 


01405307 


4520 


1880 
4920 


3880 
3540 
3550 
3560 
3370 
3380 
3590 
3600 
3530 


910 
1320 
2590 
2580 
4400 
4530 
4560 
1820 
1870 
4410 


2340 
4610 
4120 
4490 
3980 
4030 
3990 
4000 
4010 
4020 

800 
4040 
4050 
1520 
1060 

530 

969 


GROWTH SYSTEM LOADER 
CROSS REFERENCE TABLE 


1040 2640 2650 

4730 1889 2290 5850 6930 
3240 3679 3860 4150 720 
2640 2930 3240 3320 


4760 

4640 4830 

1170 

2580 

989 999 1000 1630 5040 


7799 
1170 


3060 


7960 
1660 


2100 


8090 
1970 


2110 


740 
2298 


1349 
2280 
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1680 
2380 
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$244 
3¢7 
354 
2170 
1090 
3277 
5264 
5263 
3754 
3256 
3262 
3247 
3275 
5226 
5240 
5304 
5464 
5547 
5557 
1 
400 
2170 


777716 
41 


644 
65 
646 
647 
690 
5332 
5387 
5336 
3240 
5524 
3260 
3257 
5334 
3264 
3246 


5449 
5426 
5446 
3244 
5554 
3764 
3263 
5343 
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BP ARAM 
BRK 

BSLASH 
BUFFER 
BUFLEN 
ALC 
GON 
IGN 


2 


CATLEN 
CATLOG 


CATMAX 
CArxX 


COTEMS 


CDEVC4 
COEVCS 
CDEYC4 
CDEYCY 
COFULL 
COISCA 
CDISDA 
COISKY 


8500 
5550 

390 
2490 
2500 
4150 
4550 
4540 
1680 
2080 
2290 

740 
3860 
4390 
4420 
41840 
3610 
4040 
4320 

550 

560 

699 


620 
500 


4050 
4060 
4070 
40890 
4090 
1699 
2020 
4930 
2950 
4040 
2100 
2090 
2140 
2110 

569 


3360 
3269 
3460 
3210 
4320 
2310 
2300 
2350 


01%05307 


6960 


2550 
2550 
3400 
1480 
1460 
2720 
1800 
1820 
3150 
3320 


860 
2550 

599 
3160 
4240 
3910 
2740 
4050 
1980 
4060 
4070 
4080 
4090 
4100 
4750 
4950 
2000 
4730 
3920 


2200 
1610 


1090 
4220 
3280 
2730 
3320 
2180 
4260 


2410 
1830 
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410 
3860 


3980 
2220 
2430 
35140 
3680 


2340 
1050 
4280 


3440 


4290 
2250 


2240 
2600 


1150 
4270 
3300 


2940 


CROSS REFERENCE 


2360 
1080 


3440 
4310 
2440 


3040 


680 


7380 


12350 
4010 


2420 
1100 


3460 
4320 
3990 


3550 


799 


3070 


TABLE 


690 


1120 


2750 
4020 


2440 
1130 


3480 
4330 


1010 


4480 


1340 


1190 


2450 
1890 


3700 
7420 


1050 


5230 


8700 


1280 


2480 
1910 


3750 
7440 


1070 


2710 


880 


2010 


2500 
3900 


3760 
7450 


1180 


3250 


2020 


2520 
3940 


3850 
7470 


1920 


3400 


2050 


2530 
3950 


4000 
1900 


1990 


3410 


3870 


2560 
3970 


4010 
1940 


4180 


PAGE 


2590 
4190 


4030 
1960 


4210 
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CDISLN 
CERCNT 
CGNAMY 
CGNAM2 
CGNAMS 
CGNAMS 
CGNAM8 
CGNAME 
CHECK 

CHRMAX 
CHRP AK 
CLKMAX 
CLKSPD 
CLOCK 

CMpXx 

CMP4 

CMP 

CNTRL 
COLON 


COMFLG 
COMMA 


01305107 


1360 
3020 
26590 
2700 
2680 
2840 
2700 


3200 
3200 
3180 
3170 
4570 


3300 
3510 
3390 
2640 


2210 


2280 
820 


980 
7280 
2310 

910 


930 
1290 
1340 
4390 
1450 
3520 
3490 
3630 
3650 


3660 
2490 


2130 


GROWTH SYSTEM LOADER 
CROSS REFERENCE TABLE 


1400 
3070 


3660 3969 4250 7360 2679 2740 2889 


3000 


2110 
2660 3240 3690 3740 3730 3740 3750 
2370 4250 


2420 

4730 8440 929 1140 1220 1379 1410 
4800 6980 8190 970 

4500 

3640 

3670 4250 


2890 


1490 


PAGE 
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oovuv9Tn0Tg 0 C000 00C 00 0 
wo 
=z 
> 
> a4 


2370 
2560 
2440 
2110 
1860 
2390 
2580 
2420 
2400 
2430 
2480 
2460 
2150 
2450 
2070 
4590 
4600 
4120 
2220 
2210 
2050 

410 
5000 
2080 

380 
3340 
4580 
4610 
2340 
2140 
2170 

740 

780 
4510 
4350 
2750 
4170 
2650 
2660 
3830 

650 
4160 
2760 
2740 
2770 
2100 
2130 
2410 
2470 
4130 
4140 
4150 


01405107 


GROWTH SYSTEM LOADER 


1350 
1490 


950 
1470 


2320 


CROSS REFERENCE TABLE 


2540 890 
1570 1630 1660 23520 8170 810 


2600 2770 5060 8100 8110 4000 
2570 910 


100 120 160 120 


850 


PAGE 
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pDOFTyP 
DOLLAR 
DP ACSW 
DPATSW 
DPCMSK 
DREGBR 
DREGSW 
DRELOC 
DSTAT 
pt, 
pTrEMPO 
DTEMPL 
DTEMP2 
DTEMPS 
DTEMP4 
DTEMPS 
DTEMP6 
DYEMP7 
DTEMPS 
DTEMP9 
DYIMAX 
DYCMSK 
EQUAL 
EXCLAM 
FCBLEN 
FGE 
FORMAT 


FRCA 
FRDA 


01405107 


2360 


2100 
2190 
2200 
2070 
2170 
4630 
3290 


2350 
900 


3530 
3960 
2190 
4260 
4420 
4410 
4430 
4440 
3200 
2620 
2800 


4140 
560 


3920 
3930 


4580 
4910 
4120 


940 
3630 
3670 


GROWTH SYSTEM LOADER 


1020 


1260 


2740 
4520 


960 
3640 
3720 


3390 


1970 


2920 
5290 


1000 
3680 


CROSS REFERENCE TABLE 


3960 
3050 3986 3679 3736 
7370 2830 2860 3280 
4400 


3690 3730 3740 


3800 


3830 


3979 


4090 


PAGE 


4169 


62 


LuUR--B06 


76 
107 
1@7 
151 
125 
133 
136 
196 
160 
154 
162 

422026 
2000 
3240 

244 

242 
3254 
3234 
3245 
5142 
2170 
$224 
4146 
4107 
4203 
3230 


4767 
5005 
4146 
4307 
4256 
44234 
3241 
4163 
4445 
2022 
14090 
4355 
4400 
1000 
3222 
3220 


50¢3 
3223 
$2 


5137 
37350 
4025 
31¥%0 


05/31/72 


LOLOK 
LiBFR 
LiBIN 
LIFLG 
LaLoK 
LINAM 
L2BFR 
L2B3N 


3630 
3670 
3690 
3700 
3680 
3710 
3720 
3740 
3750 
3730 
3760 

399 
$040 
7969 
2920 

210 
8610 
86490 
8710 
8470 

410 
8530 
2170 
1990 
3030 
8600 


7160 
7360 
2900 
3960 
3660 
4950 
8690 
2700 
$150 
1860 

400 
4480 
4700 

430 
8540 
8520 


7500 
8559 
450 


8430 
1110 
1360 
1520 


01705107 


3680 
3700 
3710 


3730 
3750 
3760 


3779 


7410 


2440 
5160 
31470 
2000 
5630 
4620 
61400 
8240 
4930 
8300 
1360 
4730 
6840 
8400 
8280 
8380 
8360 
5010 
$230 
8260 
4410 


6220 
4430 
4770 
1390 
3740 
$130 
6440 
7640 
3710 
1070 
4720 
40860 
11350 
1680 
1380 
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3690 
3720 


3740 
43350 


7740 


6010 
6520 
2030 
$760 
4780 
6300 


1420 
4870 


7260 
5990 


6620 


4890 
1430 
4040 
6160 
7030 


3870 


1110 
4790 


4540 


CROSS REFERENCE TABLE 


4290 


8040 


6570 
6880 
4340 
5870 
7590 
7050 


1450 
5210 


1520 
5200 
6490 


3880 
1120 
7600 


1620 


4550 
5910 


1460 
6799 


1640 
6630 
6240 


4920 
2469 
7610 


3499 


5680 
5960 


3390 
7130 


4600 
6660 
6279 


4380 
3290 


4460 


5860 
5980 


3450 
7460 


4850 
6730 
62°0 


4689 
3340 


75$0 


5950 
6140 


3780 
7500 


aw 
Bao 
wn 

o 


4980 
3360 


6450 
6400 


3810 
7560 


6330 


6550 
3380 


7220 


3840 


6350 


6840 
3470 


7270 


4060 


6380 


7110 
3540 


4650 


6410 


7200 
3550 


PAGE 


4670 


6430 


4630 
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5137 
4174 
3144 
4027 
4354 
43353 
3764 
3227 


5140 
4667 
4633 
4617 
4622 
4663 
41.40 
32355 
4533 
4525 
3206 
3237 
3205 
5037 
50A4 
4217 
4252 
$204 
4322 
1000 
2170 
4440 
3249 


3146 
3172 
$711 
3717 
3737 
3750 
3767 
4000 
40%h2 
4427 
4475 
4563 
4440 
3214 
3203 
3724 
4560 
3225 
5143 
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xz x x a St ae et SS ss ee OS SE EE Se Se EE SE Se Ee S& 5 ie aX Se Se Sx ae Sx 
: ww 

rc 

Oo 

= 


MCOMTB 


8449 
2800 
1880 
£900 
4370 
4230 
1200 
8599 


8450 
6510 
6030 
6070 
6100 
6430 
2430 
8650 
5609 
5540 
7790 
8670 
7770 
7610 
7680 
3260 
3530 
5850 
4080 

440 

420 


883 


2070 
1730 

970 

980 
1140 
1160 
1200 
4220 
1240 
4950 
5390 
5800 
4780 
8490 
6930 
8560 
5800 
8570 
8220 


01305307 


4710 
6040 
6050 
5190 
5720 
2010 
1060 
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5570 
B340 
2040 


5650 
4530 
60350 
7240 
6460 
6940 
6420 


1780 


7700 
3260 
7680 
3560 


53900 


6289 


2769 
7240 


1810 


4750 
6990 
6120 
5880 


2020 
4080 


CROSS REFERENCE TABLE 


2050 


5690 
2930 
7430 


7920 
7870 


5970 


6710 
3379 


4860 


7010 
6230 
6610 


5150 


4700 


5740 
3060 


6020 


6750 
3430 


6560 


7060 


5370 


5420 


3140 


6170 


7020 
4240 


7170 


5530 


5540 3640 5680 


3330 4390 4500 


8590 
4330 4996 5940 


5700 


5730 


4530 


5070 


4540 


6779 


5279 


6819 


PAGE 


5300 


6839 
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CROSS REFERENCE TABLE 


4036 MCOPL@2 1450 4410 
4040 MCOPL4 4470 4440 
3226 MCOUNT 8580 5670 5770 6070 6320 7540 7570 7580 7630 7980 8030 
4007 MDSAVE 1240 3690 
3734  MERROR 1140 8420 
3212 FORCE 8090 1339 2170 2800 8130 8150 760 1110 1160 1250 1270 
40) = ME NBUF 3200 3610 
5141  MINSTM 8460 5440 5560 7230 
255 MINUS 330 
5073 MLEADS 7999 8030 
4756 MLEND4 7070 6650 
4734 MLEND2 6870 7150 
3723 MMONX2 1060 3330 
3744 MMONXT 490 
3744 = MNEXTL 989 470 499 1050 1150 1190 1210 1230 1250 2210 2780 83280 5080 
7720 18650 3620 
3795 MWNSAyE 4220 2730 3999 4280 7390 
4774 = MNXETS 7180 4410 6590 
3252 MOUTDA 8620 ape 4600 1650 2940 3090 3180 3420 3500 4390 4690 4810 4849 
400 
422023 MP1 350 
422024 MPO 360 
2052 MPACSW 4980 
4470 «=©60s MPAPER 5360 5260 5430 5810 6900 7290 
4211  MPCOPY 3130 2950 
3236 MPFLAG 8660 5240 5380 6870 
1004 MPOPR 4920 
1000 8 MPST 4880 4899 
4606 MPUTWA 5980 $940 
1754 = =MQ 4530 4540 
2016 MOSAVG 4820 4830 
3704 MSTART 920 68630 
2000 MTEMPQ 1630 7480 7690 
2001 MmTEMPS 46490 
2002 MTEMP2 1650 
2003 MTEMPS 4660 
2004 MTEMP4 4670 
2005 MTEMPS 4680 
2006 MTEMP6 4690 
2007 MTEMP? 4700 
2030 MTEMPS 4710 
2041 MTEMP9 4720 
40¥%2 MYPOTS 4780 
422025 MTR 370 
2000 8©MTRST $080 
1732 =NAME 4670 4680 
4633 NBLOCK 6190 6060 6090 
5£0 NGWBR 3930 3940 
3197 NB&WHDR 2290 2200 2610 3190 
3714 NEXTL 470 1470 4050 4330 
1721  NUMBR 4660 4670 
243 NUMSGN 270 
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PHANTO 
PHFLAG 
PHLEN 
PHSTOR 
PIDN2 
PIDON 
PINT 
PIOUT 


01705:07 


3970 
4190 
4200 
4210 


5180 
4690 


920 
2000 
#050 
1940 
4990 
3820 
1840 

350 
3780 
4270 
4310 
4350 


2330 


4930 
3860 
3650 
4900 
3870 


1950 


4460 
14960 
3680 
1980 
4970 
3720 
3700 
3440 


4710 


990 
3950 


4920 
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5610 


940 


5270 


1040 


CROSS REFERENCE TABLE 


6399 


4750 


430 


2560 


6720 


4880 


610 


8800 


7100 


4960 
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RECOV 
RES 
RESCAT 


Se 
an 
—4 
o 


01;05107 


3480 


3800 
3790 
3610 
3830 


4550 


1860 


2790 
2690 


4850 
3890 
3900 
3910 
4760 
4790 
4900 
4830 
4840 
4780 


4770 
3470 
4910 
4820 
2610 


1280 
2460 
1180 

930 


990 
490 
860 
750 
2610 
960 
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840 


1400 


1260 
1020 


1040 


859 
3410 


CROSS REFERENCE TABLE 


1710 


1480 
1050 


889 
989 


1810 


900 
3410 


1990 


959 


20350 


1000 


2080 


1040 


2090 


2590 


2110 


2600 


2120 


2760 


2430 


2770 
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6044, 
3490 
5745 
3442 
57414 
5647 
5615 
100 
17500 
17502 
3303 


3454 
3434 
60A4 
3430 
2000 
2094 
20%2 
2043 
2044 
2002 
2003 
2004 
2005 
2006 
2007 
2040 
20kt 
6000 
3432 
3452 
6085 
56350 
5654 
5663 
5641 
5672 
3434 


5645 
5705 
3456 
646000 
3242 
376 
3475 
5752 
3446 
3440 
53444 


2000 


05/31/72 


TAPOT 
TOUFFR 


TCHRID 
TCOUNT 
TOIGIT 
TOLMTR 
TEMPO 
TEMP4 
TGMP10 
TEMP1i4 
TEMP12 
TEMP2 
TEMPS 
TEMP4 
TEMPS 
TEMP 6 
TEMP7 
TEMPS 
TEMPO 
TFGET9 
TINLIN 
TINTIN 
TLETTR 
TNyuM20 
TNUM26 
TNUM27 
TNUM28 
TNUM29 
TNUMIN 


TOCT42 
TOCT44 


TSIXIN 
TSIXOT 


TTEMPO 


01405407 


2980 
1210 
2140 
2030 
2220 

g10 

830 
2640 


740 


1220 
4170 
3010 
2650 
1640 
4650 
4740 
4750 
14800 
1660 
1670 
1680 
4690 
4700 
4710 
4720 
4730 


990 
1190 
3410 
4430 
4230 
4470 
4550 
4$20 
3729 
4620 


4820 
4180 
3270 
4800 


2360 
2330 
1040 

970 
1840 


GROWTH SYSTEM LOADER 
CROSS REFERENCE TABLE 


3070 
1530 2200 2620 2680 


2060 2100 2250 


940 


4549 2210 2710 3150 3170 3180 3200 
760 2650 


3040 
2780 2990 770 3140 
4960 5400 1430 960 


2000 2720 2740 2780 


3799 4519 5000 5285 2839 4200 1249 1500 


4650 
4820 4859 6800 6860 7120 7140 7160 


2340 2350 2470 

4080 1440 2610 2760 3220 2010 2020 2170 
980 1140 1160 1280 1220 1240 4959 5390 
36140 4040 4320 2380 2320 2500 


1569 


5800 


1585 


1399 
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TTEMP4 
TTEMP2 
TTEMPS 
TTEMP4 
TTEMPS 
TTEMPS 
TTEMP7 
TTEMPS 
Tee 
TTTYOT 
TYYCLK 
TTYNUM 
TTYSPD 
TWORDB 


TYPE 
yGORE 
UDISK 
UPARR 
USo 


1640 
1650 
4660 
4670 
1680 
4690 
4700 
1710 
1720 
3240 
3170 
3140 
3150 

470 


46990 
4630 
4640 
2940 
4250 
4290 
4330 
2790 
2850 

980 
4800 
4280 
4320 
4360 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4650 

480 


01305307 


1800 
3180 


3170 
1100 
1350 
4700 
4640 
4650 


4260 
4300 
4340 


3200 
2640 
41810 


4450 
4460 
4470 
4480 
4499 
4500 
4510 
4660 
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2450 


1690 
1410 


2160 
2370 


4280 
4320 
4360 


3480 


CROSS REFERENCE TABLE 


2959 3130 3190 3290 3340 


1799 1930 2720 2810 2870 
1510 1590 1600 1980 2160 


3360 


3050 
2660 


3380 


3370 
2670 


3980 


1310 
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DEF INS 
M BAD 
MCHECK 
OCTZ 


5630 
5640 
5650 
5660 
5680 
109 
620 
610 
1790 


014405:%07 


100 


GROWTH SYSTEM LOADER 


120 


UNDEFINED SYMBOLS 


580 


580 


2680 


2689 


3210 


3210 


5330 


5330 
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CHAR 

CHROT 
COUNT 
CRLF 

DELIM 
EMESS 
ENTER 


FORMAT 


LING 
LQOP 
MESS 


MESSR 
MPOFF 
N&G 
NMESS 
NUM 
OCT 
ocTz 
START 
SWAP 
WORD 


WORD. 
WORD? 
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1380 
1340 
4460 
4300 
4420 
1750 

770 


1060 


1100 
960 
4620 


1520 


5430 
1010 
1670 
1260 
4690 
4840 
1100 
5610 
4140 
1180 
1220 


01705107 


1170 
960 
2630 


1320 
2590 
2580 
2190 
4260 

990 
1130 

970 
1640 

970 
1640 
21450 
3770 


3720 
4180 


4040 
4100 
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5410 
2780 


1730 
3240 
2640 
2710 
4520 
4960 
7630 

989 
3610 

980 
3610 
2360 
5220 


3790 


4080 
1790 


MACRO CROSS REFERENCE TABLE 


2990 


1889 
3670 
2930 
2920 
5290 
5400 
8030 
1140 
4040 
1140 
4040 
3470 
5660 


4310 


1440 
1930 


2290 
3860 
3240 
3050 
7370 
1430 


1160 
4320 
1160 
4320 
6700 


5000 


2610 
2720 


5850 
4150 
3320 
3080 
2830 
1200 


1200 


6780 
5280 


2760 
2840 


6930 
720 


3670 
2860 


4220 
1220 


7530 
2850 


3220 
3370 


7799 
1170 


3730 
3230 


1240 
1240 


3980 


7960 
1660 


3800 


4950 
4950 


8090 
1970 


3830 


5390 
5390 


740 
2490 


3970 


5800 
3600 


1349 
2280 


4090 


1399 
1390 
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23580 


4160 


1420 
1420 
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USE CROSS REFERENCE TABLE 


0 ohenos 

0 REL, 
0 IMPURE 550 1320 4730 1880 2060 2290 5859 6930 7760 7790 7960 8090 8480 
940 740 1340 1510 1680 2070 2280 2599 2940 3240 3679 3860 
4459 440 720 1170 1660 1970 2190 2280 2380 2580 2649 2930 

3240 $320 8780 

3700 PURE 570 1320 1730 18809 2080 2290 5850 6930 7780 7790 7960 8090 8720 
570 740 13490 1530 1680 2130 2349 2590 2960 3240 3679 3860 
4159 620 720 1170 1660 4979 2190 2280 2380 2580 2649 2930 


3240 3320 8810 


0000.0 0.9900000000.00000000.0.9 £0.0.0.0.0.9.0,0096.00-0.0.000.9.0000.060.00000000000900000.9.0000008.900000000000090000000000000000000000090000008 00. 
eee eS ES ee ese Ces ere se CeCeet £e2 008 OF0.00.0.0.0.0.0.0.0.0.0.0.000.0.0.00.09.000000000000000.0.00.0.0.09.6.00000.0.0000900.0.00000.090.90.2.90000.000 0090900008. 9 08. 
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SokotetegeGaectegsseeeeeeeeetasetoteae 
Petate tse eSe Gute eeeeaese see geeasesetaas 


#s PDP-9 MINI TIME-SHARING SYSTEM aa 


#4 NON-SWAPPING TSS DESUGGER as 
& TP2RODT aD 
ai DKO'BO? ae 


HeteGatags@eoge Sg Ge sesneavse Prenat atoataaea 
See astaeteges@eGesosescsesea sas seatteraeswedgenas 


TSSHLT 


U5/31/72 


000010 
012000 
000000 


100 
410 
120 
430 
140 
150 
160 
470 
480 
190 
200 
210 
400 


01705315 


ENTER 
#1 


INDEX 
BASE 
DEBUG 


mot lTg 
» NAME 
»DEFIN 
HLT 


DDT INITIALIZATION 


DDT INITIALIZATION 
TSSDDT 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 
ON 


10 

12000 

0 
‘DLIBRARYIPDPOLIB:LIBMACRO 
DEBUG, 1 


PAGE 
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LI BMACRO 
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015146 


1949 
1950 
220 
100 
1250 
1260 
250 
240 
250 
260 
270 


01305:15 PDP-9 TIME*SHARING SYSTEM DEBUGGER 
TELETYPE [NPUT/OUTPUT MACROS 


»LIST ON 
END 
cINSRT = sDLIBRARYSPDPOLIB:GRODEFIN 
INE SPEBUG, 1 
wLIST = ON 
»END 
RET -OPDEF 620000 
TERMINATE ,OPDEF 705004 


2h OC 16000-2662 START SO aS TO PUT DDT AT THE END OF USER CORE 


PAGE 
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TsSpbT 05/31/72 01705415 PDP-9 TIME-SHARING SYSTEM DEBUGGER PAGE 3 
SUBROUTINES 
280 .STITL SUBROUTINES 
290 HEAD 
300 « EXP -- 
310 * 
320 * EXp EVALUATES A SYMBOLIC EXpRESSION FROM THE TTY 
330 & 
015116 700000 340 7900000 
0135197 7050014 350 TERMINAT ‘x I$ ALSO AN EXIT 
915120 000000 360 EXP i) 
915121 155206 370 DZ EVAL CLEAR CURRENT VALUE 
015122 215074 380 Ewe (UMP PLU) FAKE A O« TO START WITH 
913123 053174 Dac OMP SAME IN OPERATOR yMP 
400 * 
410 * OOP TO EVALUATE EXPRESSIONS 
420 ® 
015424 115607 430 BVL JMS TSFGET GET A CHARACTER 
915125 555075 440 SAD SPACE) CHECK FOR SPACE 
0135126 613124 456 JmMP VL TRY AGAIN IF SO 
915127 655076 460 SAD (POINT) CHECK FOR , 
015139 67414000 6470 $KP 
015134 613134 480 JMP EVLO 
915132 2136714 490 Lac LOC GET THE LOCATION COUNTER 
9151433 613173 500 JMP EVX GO TO END 
013134 510 EVLO ae 
915134 415633 320 JMS TSCHRID CHECK FOR A NUMBER 
013135 613175 530 JMP EVD INSTANT DELIMITER 
915136 613145 540 JMP EVL4 NO 
0151437 777777 550 AW “1 
915140 353362 360 aD TSBPTR BAGK UP PQINTER 
9151441 055362 570 Dac TSBPTR SAWE IT 
013142 580 NUM INPUT THE NUMBER 
915142 $15434 JMS TSNUMIN 
015143 744000 390 SKP FORMAT ERROR ON NUMBER «~ POSSIBLY aA LETTER 
015144 613173 600 JMP EVX AND SKIP SYMBOLIC 
013145 777777 610 EVLa Law “1 BACK UP CHARACTER POINTER 
913146 353362 620 fad TSBPTR 
913447 055362 630 Bac TSBPTR 
0131560 640 WORD GET A WORD 
915150 415526 JMS TSSIXIN 
015151 740000 650 NOP 
013152 660 DEL IM GEY THE DELIMITER 
015152 215366 LA TSDLMTR 
015153 855077 670 $aDd (44) CHECK FOR A § 
015154 744909 685 SKP 
015155 615164 690 JP NHD NO EXTRANEOUS HEAD SYMBOL 
013156 700 WORD1 GEY THE HEAD SYMBOL 
013486 215237 Lac TSWORDB 
915157 055200 710 Dac T1 SAVE IT 
013160 720 WORD GET MORE WORDS 
915160 115526 JMS TSSIXIN 
915161 740000 730 NOP IGNORE VACUOUS 
015162 215200 740 LAC T4 GEY THE HEADSYMBOL 


TSSDDPT 


015163 
915164 
915165 
015166 
015167 
915170 
015471 
015172 
015173 
aactee 

151975 
015176 


015177 
915200 


05/31/72 


744000 
215210 
055204 
413337 
215201 
255237 
055237 
415274 
055207 
613174 
750000 
635174 


355206 
613242 


013201 


915201 
Q15202 
915203 


915204 
015295 
915206 
915207 


915240 
915244 


015242 
915243 


015244 
915245 
915246 
015247 
015220 
015221 
915222 
915223 


740001 
353100 
613177 


740001 
§15206 
855207 
613242 


255206 
615242 


915206 
415242 


000000 
741100 
355401 
6640900 
053230 
233214 
053227 
215206 


0134905:15 


NHD 


PDP=9 TIME*SHARING SYSTEM DEBUGGER 


SUBROUTINES 


TSWORDB 
TSWORDB 
SYMB 
TVAL 


OYMP»X 


EVAL 
EVY 


GEY THE CURRENT WEADSYMBOL 
SAVE IT 

RIGHT JUSTIFY 

RESTORE . 

TRY IT 

RESTORE IT 

LOBK [7 UP IN THE SYMBOL TABLE 
SAVE TEMP VALVE 

FILLED IN TO LAST OPERATER 
VALUE [S ZERO FOR a VACUOUS WORD 
RETURN 


AND CONTINUE 


NEGATE AC 


WANDLE LIKE PLUS 


GET MASK 

MASK OUT BITS 
FIND NEW VALVE 
EX!T 


DO THE XOR 
EXIT 


GET NEW VALVE 
AND EXIT 


ROUTINE TQ SET UP FOR EAB 
CONVERT TO UNARY 


SAVE ONE OP 
GET OP 

SAVE IT 

GET THE VALUE 


PAGE 
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TSSDDT 


915224 
915225 
015226 
015227 
915230 
015231 
915232 
015233 
015234 


740102 
353241 
355104 
740040 
740040 
641002 
741100 
353244 
613242 


015235 
015236 


115214 
657122 


113214 
644323 
000004 


915237 
015240 
015241 


915242 055206 
019243 
915243 215366 


013244 
015244 §55102 
913245 773477 

013246 
915246 §$55103 
915247 773201 

013250 
815280 955104 
045254 773235 

013282 
013252 §55105 
015283 773237 

013254 
015284 §55106 
019255 773294 

013286 
915266 §55107 
043287 773240 

013260 
915260 §531140 
913261 773242 
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1250 
1260 
1270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
1370 
1380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
1460 
4470 
4480 
4490 


4500 
1510 
1520 
1530 
1340 
1550 


4560 


4570 


4580 


1590 


1600 


1610 


01405315 


=x 
ws 
<= 


meseoO goes 
=z ~ 
m < 


< 
< 


ORA 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


SUBROUTINES 

CMLISMA 

TAD ONE 

YAD (*41) 
XX 
XX 
aca 

SPA 
TaD ONE 
JMP EVY 
MPY 
JMS OSET 
MULS 
DIV 

JMS OSET 

DIVS 
4 

GET NEXT gPERATOR 
DAC EVAL 
DELIM 
Lae TSDLMTR 
sDEFIN 

AD (#4 

AW #2 

,ENDM OPA 

OPA PLUS.» PLU 
Sad (PLUS) 
aw PLU 

OPA MINUS,MIN 
SAD (MINUS) 
Law MIN 

OPA STAR ,MPY 
$aD (STAR) 
Law MPY 

OPA SLASH,DIV 
SAD (SLASH) 
Law DIV 

OPA EXCLAM,QOR 
$a0 (BXCLAM) 
AW OR 

PA BSLASH,ERA 
$aDd (BSLASH) 
Law ERA 
OPA AMPRSND, AND 
Sad CAMPRSND) 
LAW AND 


CHECK 


ADJUST FOR 1'§ COMPLEMENT 


GET THE RESULT 


ADJUST FOR 1'S COMPLEMENT 


INSTRUCTION 


SET UP 
INSTRUCTION 


GET THE CHARACTER THAT STOPPED US 


» "CHECK FOR OPERATOR 


GEY ADDRESS 


CHECK FOR OPERATOR 
GET ADDRESS 


CHECK FOR OPERATOR 
GET ADDRESS 


CHECK FOR OPERATOR 
GET ADDRESS 


CHECK FOR OPERATOR 
GE¥ ADDRESS 


CHECK FOR OPERATOR 
GE? ADDRESS 


CHECK FOR OPERATOR 
GE? ADDRESS 


CHECK FOR OPERATOR 
Get ADDRESS 
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SUBROUTINES 
015262 740100 1620 SMA 
915263 613267 1639 JMP EVZ EXIT IF DONE 
015264 $55111 1640 Tad (JMP~LAW) FORM POINTER 
013265 055174 41659 pac OyMP SAVE JT 
015266 6413124 1660 JMe EVL LOOP 
013267 1670 EyZ eee DONE 
915267 215206 1680 ag EVAL GET THE VALUS 
0152790 633120 1690 et EXP RETURN 
4700 * 
0159200 1710 +ySé STOR 
1720 ® 


015200 000000 4730 Th 
815201 900000 1740 T2 
815202 000000 1759 3 
015203 g00000 1769 T4 
015204 900000 41770 3 
6 
EVAL 


015205 000000 1789 DSA 
015206 900000 1790 0 
015207 900000 1600 TVAL 0 
915210 000000 1810 HEAD 0 
013271 4820 USE 


TSSHDT 


000042 


915271 000000 
015272 213336 
§15273 040012 
015274 777757 
015275 055202 


_ 015276 
915276 215237 
013297 560022 
015300 613306 
915301 440042 
013302 440012 

013303 
013303 455202 
013304 613277 
013305 613344 

— 013306 
013306 215240 
015307 $600%2 
015340 613354 
013341 4400142 


013342 
0135342 455202 
913343 613276 

013344 


013344 
013344 700342 
013345 


13345 977747 
15346 6415561 


015330 
915330 215367 
013331 
915331 44002 
915332 $15502 


915333 614007 
915334 220012 
915335 635271 
915336 014675 
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4840 
4850 
4869 
4870 
1880 
1899 
1900 
1910 
1920 
4930 
4940 
4950 


1960 
4970 
1980 
4990 
2000 


2010 
2020 


2030 
2040 
2050 
2060 


2070 


2080 
2090 
2100 
2110 


01505715 


* 
* 


e 
SYMgX 
e 


SYMB 


SCOUNT 


SYML 
SYML4 


SYMB2 


SYMBS 
SPTR 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


rEJECT 


SYMBOL TABLE LOOKUP 


vEQU 


RET 
SYMSTo1 


SUBROUTINES 


12 


SPTR 
SYMBX 
~SYMN 
T$ 


TSWORDB 
SYMBX,X 
SYMB2 
SYMBX 
SYMBX 
TS,SYML1 
T3 


SYML 4 
NQS 


TSWORDB+1 
SYMBX,X 


SYM. 


INDEX REGISTER FOR SYMBOL TABLE 


GEY THE SYMBOL, TABLE POINTER 
GET THE NUMBER OF SYMBOLS 
GET TWE FIRST HALF 


CHECK A SYMBOL 
FOUND HALF 


GET THE SECOND HAL? 


CHECK IT 
FRY SOME MORE 


LO@K FOR COUNT 


<UNDEFINED SYMBOL>,16, 


SAVE.OQN 


<UNDEFINGD SYMBOL WORD #>,16,+7 


CWNDEFINED SYMBOL MORD #>+46.-7 


SAVE,ON 
=416 e aw? 22 
TSS ]XOT 
RESTORE 
RESTORE 


TSCOUNT 


TSOCTOT 
RESTORE 
IDLE 
SYMBx,X 
SYMB 


RETURN TO IDLE LOOP 
GE? THE VALWE OF THE SYMBOL 


POINTER TQ SYMBOL TABLE 
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015337 000000 
915340 455202 
013341 
015341 215240 
015342 741200 
915343 613353 
013344 
013344 652000 
013345 5415112 
0153346 740200 
13347 613361 
13350 660614 
913354 455202 
013352 613344 
9135353 213113 
043354 055202 

— 015385 
015355 215237 
013356 744200 
013357 633337 
013360 613344 
015361 215202 
015362 744010 
015363 355202 
013364 740010 
015365 355114 
013366 953372 

013367 
015367 215240 
013370 652000 

013371 
013371 215237 
915372 000000 
0135373 0553237 
915374 6414002 
015375 955240 
013376 633337 


2120 
2130 
2140 
2150 
2160 
2470 
2180 
2190 


2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2340 
2320 


2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
244 

242 


2430 
2440 


9450 
2460 
2470 
2480 
2490 


01905415 


RJS2 


RJS1 


RYS3 


RYS4 


PDP-9 TIME*SHARING SYSTEM DEBUGGER 


RJUS RIGHT JUSTIFIES THE CeNTENTS oF TSWORDB 


SUBROUTINES 
~EVECT 
RUUS@ 
0 
DZM T3 
WORD2 

ac TSWORDB*L 
NA 
JMP RYS4 
[ 
Ma 
AND (77) 
8ZA 
JMP RJS33 
LLSSs 18,6, 
182 T3 
JmP RYS2 
LAE (3) 

ac T3 
WORDS 
Lac TSWORDB 
gNA 
RET RYUS 
JMP - RYS2 

C T3 
CLUSRAL 
Tad T3 
Ral 
TaD (LRS 0) 
Dac R84 
WORD2 
Lac TSWORDB+4 
M9 
WORDS 
LAG TSWORDB 
pac TSWORDB 
LACQ 


Dac TSWORDB+1 
RJUS 


CLEAR WORD AREA 
GET THE SECOND WORD 


CHECK FOR ALL ZEROS 
HANDLE IT 


MOVE CURRENT WORD YO MQ 
EXTRACT LOW ORDER CHARACTER 


EXIT IF DONE 
INEREMENT COUNT 
SET COUNT 

GEY FIRST WaLF 


CHECK FOR 2 ZERQS 

OK IF SO 

ENTER LOOP 

GET COUNTER 

NOW 2X 

NOW 3X 

NOW 6x 

MAME LRS INSTRUCTION 
SAVE |T 

GET THE BUFFER WORD 


GEY BACK TO AC 
RETURN 


PAGE 
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TSS)DT 


05/31/72 


013377 
015400 


000000 
613401 


0134014 
015401 
015401 744000 
013402 £15502 
015403 633377 
915404 661606 


113544 
633377 


015405 
913406 


015497 
915440 
015441 
013442 
015443 
015444 
oe 
0159446 
013447 


055201 
319145 
055200 
775200 
055203 
213336 
355116 
40042 
RELY 
gi 54z0 055204 
15421 220012 
013482 

015492 740001 
015423 $55400 
013494 055202 
015495 355201 
013496 7414100 
013427 613436 
015430 215202 
Q13434 375203 
915432 740300 
0153433 613436 
015434 200012 


015435 955203 
913436 440012 
013437 440042 
013440 
913440 69455204 
015441 613421 
013442 235203 
015443 741200 


2500 
2510 
2520 
2530 
25490 
2550 
2560 
2570 
2580 
2590 
2600 


2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
276 

277 

2780 
2790 
2800 


2810 
2820 
2830 
2840 
2850 
2860 
2870 
2689 
2890 


2900 
2910 
2920 
2930 


2940 
2950 


01505115 


PDP-9 TIME=SHARING SYSTEM DEBUGGER 


SUBROUTINES 
»EVECT 
DUMP ADDRESS FORMATTING 


0 
JMP OCTF 
OCTAL FORMAT 


oc 
CLL 
JMS TSOCTOT 
RET DUMA 
EABCLAILLSS 6 
JMS PDEC 
RET DUMA 
SYMBOLIC 
pac T2 
AND (400000) 
pac Th 
Law T4 
pac T4 
ac SPTR 
TAD (2) 
DAC SYMBx 
LAC SCOUNT 
pac T5 
Lac SYMBX, X 
NEG 
CMA 
Tad (4) 
bac T3 
Tad T2 
SPA 
JMP SFX 
Lae T3 

AD T45X 
SMA{SZA 
ume SFX 
Lac SYMBX 
Bac T4 

{SZ SYMBX 
18z SYMBX 
OOP T5,SFL 
182Z T5 
JMP SFL 
LAC T40X 
gNA 


PAGE 


PRINT IN OCTAL 


RETURN 
MOVE IN NEXT CHARACTER 


PRINT DECIMAL 
RETURN 


SAVE VALUE 
FIND PROPPER BOUNDARY 
SAWE JT 


SET POINTER TO a ZERO 
GET SYMBOL TABLE POINTER 
MAKE JT SKIP THE NAMES 
SAVE IN XREGISTER 

GET COUNT 

BAVE JT 

GET THE VALUE 

NEGATE 


SAVE JT 
ADD SYMBOL VALUE 


RESTORG NEGATED SYMBOL 
ADB VALUE 

CHECK FOR RUNNOUT 

EXtT 

GEY SYMBX POINTER 


SAWE [T 
LOOP ON COWNTER 


Get VALUE 
CHECK FOR NOTHING THERE 


TSSpDT 


013444 


05/31/72 


613503 


0135445 


015445 
015446 
013447 
015450 
915454 
013452 
015453 
915454 
015455 
015456 
913457 
015460 
045461 
015462 


740004 
355100 
y55204 
053204 
777775 
355203 
040012 
777776 
055200 

55203 

7777$ 
055202 
#20012 
652000 


013463 


015463 
015464 
015465 
015466 
043467 


750000 
660606 
744200 
615506 
455203 


013470 


015479 
045474 
01 


355147 


: y3766? 
4 


2 


013472 


015472 
915473 


455202 
613463 


013474 


015474 
045475 
015476 
915477 
015500 
015501 
043502 
915503 
015504 
915505 


015506 
015597 
013540 
015541 
015542 
013543 


455200 
613457 
219201 
741200 
633377 
213120 
419665 
215204 
413711 
633377 


#15203 
744200 
613472 
155203 
2151214 
613470 


04705415 


SFO4 


$F D5 


§FD4 


SFD4A 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


SYBROUTINES 

JMP SFD6 
NEG 
CMA 
Tad (14) 
Tad T2 
pac T2 

Aw ~3 

AD T4 
Dac SYMBX 
Law 2 
Dac T4 

ZM T4 
Law -3 

ac T3 

Lac SYMBX,X 
MQ 

e*¢ 
CLA 
LSS 6 
SNA 

JMP SFD3 
182 14 
tad (40) 
JMS TSTTYOT 
eee 

00P T3,SFD5 
wy 4 T3 

JMP SFD5 
OOP Ta4,SFD4L 
182 Ti 
wJMP SFD1 
Lag T2 

SNA 

RET DUMA 
Lac (53) 

M$ TSTTYQT 
Lal T2 

JMS P6Z 

RET DUMA 
Lac 14 
SNA 
JMP SFD4A 
DZ T4 
Lac (4) 
JMP SFD4 


VES 


DECREMENT ORRIGNaL POINTER 


BACK UP POINTER 
ADD POINTER 

SAVE 

GET COUNT OF WORDS 


CLEAR FLAG 
GET CHARACTER CoUNT 
SAVE IT 


LOAD THE MQ REG 


SHIFT IN 
CHECK FOR A ZERQ 
CHECK IT 
SET FLAG 


FORM ASCII 
PRINT IT 


GE¥ VALUE 

CHECK FOR NOTHING 
1F SO, DONE 

GET A * 


PRINT IT 
GET VALUE 
PRINT IT 
AT LAST} 


CHECK FLAG 
SKIP IF WE SHOULD PRINT 


SET FLAG AGAIN 
PRINT *S! 
PRINT IT 


PAGE 
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TSSi)DT 05/31/72 015055815 PDP-9 TIME-SHARING SYSTEM DEBUGGER PAGE 41 


SUBROUTINES 
33790 sEVECT 
3380 * 
3390 a PDEC - 
3400 * 
34140 ® PRINT A NUMBER IN DECIMAL 
3420 * 
015544 0900000 3430 PDEC 0 
015545 055200 3440 pac Ty SAVE 
015596 740100 3459 SMA 
013547 613525 3460 UMP PDE1 
013520 3470 NEG MAKE PLUS 
015520 740001 CMA 
015521 355100 TaD (4) 
015522 055200 3480 pac Th SAVE FOR NOW 
015523 215122 3490 Lac (55) GET A « 
043524 41566s 3500 JMS TSTTYOY PRINT CHARACTER 
013595 775210 3510 PDE, Law DECB-4 POINT TO DECIMAL OWTPUT BUFFER 
013896 040012 3520 pac SYmBx SAVE POINTER 
013527 215200 3530 Lac Td GET THE OLD CHARACTER 
9155830 744000 3540 DECL CLL 
015531 653323 3550 IDtVv DIVIDE 
913532 000042 3560 12 BY 10 
915533 060042 3570 Dac SYMBX,X SAVE A DIGIT 
013554 644002 3580 Lace GET THE QUOTIENT 
015535 740200 3590 SZA 
013536 613530 3600 JMP DECL Loop 
015537 4400132 3610 {$2 SYMBX ADVANCE PQINTER 
013540 3620 DecLs ee 
913540 777776 3630 Law “2 GEY AMOUNT TO BaCKSPACE 
015541 340012 3640 Tad SYMBx GET JT 
015542 5534123 3650 Sad (LAW DECB-2 CHECK FOR DONE 
015543 613551 3660 JMP PDX EXIT IF so 
013544 0400132 3670 pac SYMBXx SAVE POINTER 
015545 920012 3680 Lac SYMBX, X GET NEXT WORD 
013546 $55424 3690 fad (60) MAKE NUMERIC 
015547 413665 3700 JMS TSTTYOT PRINT IT 
0155680 6613540 «693710 JMP DECL1 Loap 
015581 215076 3720 POX LAG (POINT) GET A DECIMAL POINT 
0145552 415665 3739 JMS TSTTYOT PRINT A CHARACTER 
015553 6335144 3740 Ret POEC RETURN 
3750 * 
015241 3760 » USE STOR 
aed 3770 Deca BLOCK 6, 
013554 3780 USE 


TSSoObT 


013554 
045555 
013556 
043557 
015560 
0135561 
013562 
013563 
013564 
0135565 


05/31/72 


000000 
113605 
213674 
615125 
413377 
4113614 
233671 
613566 
£13600 
613555 


013566 
015566 


913566 
015567 
015570 
015574 
915572 
045573 
015574 
013575 
013596 
043897 


915600 
015601 
§15602 
015603 
913604 


015605 


744000 
415502 
413600 
213671 
§15126 
744200 
613555 
413610 
233671 
613566 


000000 
453671 
453672 
633600 
633554 


000000 


013606 


015606 
015607 


015640 


415673 
633605 


000000 


379) 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
38990 
3900 
3910 
3920 
3930 
3940 
3959 
3960 
3970 
3980 
3990 
4000 
4010 


4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
41190 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 


4230 
4240 
4250 
4260 
4270 


01305315 


ese &e & & 


2 


WMP 


FORMSW 
DUMX 


FORMO 


PDP~9 TIME=SHARING SySTEM DEBYGGER PAGE 42 
SUBROUTINES 

sEJECT 

DUMP SUBROUTINE 

DUMPS FROM Loc Loc To Loc -N IN THE FORMAT DETERMINED 


BY FORMSW 

0 

JMS EQLP PRINT EOL 

Lac Loc 

AND (47777) WRAP CORE IF NECESSARY 
ums DUMA pump jf 

JMS SPCOL ' 

Lac LOC,x GET WORD 

JMP FORMO ocTalL TO S¥FART 

JMS NEXT END OF LINE 

JMP DUMP oy LOOP 

OCTAL 

eee 

ocr PRINT IT OCTAL 

CLL 

JM8 TSOCTOT 

JMS NEXT GET THE NEXT 0c 

Lac LOC GET THE LOCATION COUNTER 
AND (7) LOOK FOR NEEDING AROTHER ADDRESS 
SNA . SKIP JF ON THE SAME LINE 
JMe DUMP ed NO REPRINT aDD 

JMS SPAC PRINT SPace 

LAC LoCc,*x GE? WORD 

JM? FORMO LoeP 

NEXT 

] GET THE NEXT WORD 

182 LOC BUMP LOC 

1872 N COUNT 

RET NEXT RETURN IF OK 

RET DUMP RETURN FROM DUMP JF NOT 
EOP 

0 

CRLF PRINT A NULL MESSAGE 
JMS TSCRLF 

RET EOLP 

SPACE 

0 


TSSODT 


015554 
043555 
0135556 
015557 
015560 
013561 
015562 
015563 
013564 
0135565 


05/31/72 


000000 
£15605 
213674 
615125 
£13377 
113614 
233674 
613566 
£13600 
613555 


013566 
013566 


913566 
045567 
015570 
045574 
013572 
043573 
015574 
0435975 
013596 
0138977 


915600 
015601 
915602 
015603 
913604 


015605 


744000 
415502 
413600 
2135671 
§15126 
744200 
6135555 
413610 
233671 
613566 


000000 
453674 
453672 
633600 
633554 


000000 


015606 


015606 
013607 


015640 


415673 
633605 


000000 


3790 
3800 
3810 
3820 
3830 
3849 
3850 
3860 
3870 
3880 
3899 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 


4020 
4030 
4040 
4059 
4060 
4070 
4089 
4090 
4100 
41190 
4129 
4130 
41440 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 


4230 
4240 
4250 
4260 
4270 


01305915 


Ooe2 es 8 & &@ & 


UMP 


FORMSW 
DUMX 


FORMO 


PDP-9 TIME=SHARING SYSTEM DEBUGGER PAGE 42 
SUBROUTINES 

EJECT 

DUMP SUBROUTINE 

DUMPS FROM LoC Lot To Loc -N IN THE FORMAT DETERMINED 


BY FORMSW 
0 

JMS EQLP PRINT EOL 

Lac LOC 

AND (47777) WRAP CORE IF NECESSARY 
ums DUMA pump {fT 

JMs SPCOL ' 

Lac Loc,xX GEF WORD 

JMP FORMO ocTalL TO SFART 

JMS NEXT END OF LINE 

JMP DUMP ot LOOP 

OC TAL 

eee 

ocr PRINT IT OCTAL 

CLL 

JMs TSOCTOT 

ums NEXT GEY THE NEXT LOC 

Lac LOC GET THE LOCATION COUNTER 
AND (7) L00K FOR NEEDING AROTHER ADDRESS 
SNA SKIP JF ON THE SAME LINE 
Jme DUMP od NO REPRINT aDD 

JMs SPAC PRINT SPacE 

Lac Loc,x GEr WORD 

JMP FORMO LOOP 

NEXT 

0 GET THE NEXT WORD 

182 LOC BUMP LOC 

182 N COUNT 

RET NEXT RETURN IF OK 

RET DUMP RETURN FROM DUMP IF NOT 
EOL? 

0 

CRLF PRINT A NULL MESSAGE 

JMS TSCRLF 

RET EOLP 

SPACE 

i) 


TSS0UT 


019641 
015632 
015613 


015644 
015645 
015646 
015647 
015620 


015621 
615622 


915623 
013624 
015625 
915626 
015697 
015630 
015631 
013632 
0156383 
015634 


05/31/72 


215117 
4115665 
633610 


000000 
215127 
115665 
413610 
633644 


000000 
652000 


641606 
3554147 
415665 
641606 
855147 
419665 
641606 
355447 
415665 
633621 


013635 


015635 
013636 
015637 
015640 
015641 
043642 
015643 
013644 
015645 
015646 
015647 
915650 
015654 
0415652 
013653 
015654 
015655 
015656 
013687 
013660 
015661 


§15130 
053673 
233671 
744000 
640516 
353134 
740400 
613655 
355132 
053200 
235200 
413621 
£15610 
£33674 
615425 
613657 
453673 
235671 
413377 
215673 
744200 


4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 


4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 


01505315 


FORMS, 


FORMS2 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


SUBROUTINES 
Lac (40) 
JMS TSTTYOT 
RET SPAC 
PCOL 
0 
Lac (72) 
UMS TSTTYOT 
UMS SPAC 
RET SPCOL 
P6 
0 
L Mo 
, DUP 3,3 
EAECLAILLS 6 
rad (40) 
JMS TSTTYOT 
EAECLAI!ILLS 6 
rad (40) 
JMS TSTTYOT 
EaECLAILLS 6 
Tad (40) 
JMS TSTTYOT 
RET P6 


SYMBOLIC FORMAT 


eo 


AND 
Dat 
Lac 
CLL 

RS 

aD 
SMA 
JMP 
rad 
bac 


(20000) 
INDB 
LOC.x 


18.,-4, 
(#15) 


FORMS4 
COPTB 45) 


GET A SPACE 
PRINT IT 


COLON 
SPACE IT QUT 


LOAD WORD INTO MQ 


SHIFT IN YO AC 
MAKE ASCII 


SHIFT wy To AC 
MAKE ASCII 


SHIFT IN YO ac 
MAKE aSCIl 


RETURN 


EXTRACT INDIRECT FLaG 


SAVE IT 

GET WORD AGAIN 
CLEAR LINK 
MOVE OVER 


CHECK FOR SOT EAE OR OPR 


NO 

YES -- TROUBLE 
POINT INTO TABLE 
SAVE IT 

GET OPCODE 

PRINT JT 


GEY THE WORD 


EXTRACT GOOD BITS 


SKIP OTHER CODE 


CLEAR INDIRECT FLAS 


GET THE WORD 
PRINT IT 


GET INDIRECT FLAG 
SKIP IF IT NEED BE PRINTED 


PAGE 
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TSSubT 05/31/72 
013662 613564 
013663 215133 
045664 415665 
0415665 215134 
015666 445665 
013667 613564 
013670 613635 
015671 900000 
015672 000000 
015673 000000 

013674 
913674 434454 
015675 444443 
015676 525563 
013677 447255 
015700 544443 
013701 7095762 
015702 414444 
013703 644444 
015704 704364 
013795 816372 
913706 415644 
015707 634444 
015710 525560 


4740 
4759 
4760 
4770 
4789 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4879 


48890 


013053415 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


SUBROUTINES 
JMP DUMX 
LAC (54) GET A - 
JMS TSTTYOT 
Lac (130) GET A X 
JMS TSTTYOT PRINT IT 
JMP DUMX 
JMP FORMS CONTINUE 


DATA 4344541 444143,525563, 447255544143, 705762 


ACT6 /ADDTADXCTISZANDSABUMP/ 


PAGE 
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TSS9vuT 05/31/72 014051815 PDP-9 TIME~SHARING SYSTEM DEBUGGER PAGE 45 


SUBROUTINES 
4890 »EJECT 
4900 # 
4910 * PRINT IN OCTAL WITH ZERQ SUPPRESSION 
4920 # 
915741 000000 4930 P62 0 
013742 4940 ocTz PRINT THE AC WITy LEADING ZEROES SUPPRESSED 
0135742 7449002 STL 
913743 415502 ums TSOCTOT 
013744 633741 4950 Ret P6Z,%x 
4960 
013745 4970 P6oOct ENTER 
013745 740040 XX 
013716 4980 Oct PRINT THE AC AS a SIX DIGIY OCTAL NUMBER 
915716 744000 CLL 
015747 415502 ums TSOCTOT 
013720 633715 4990 RET P60CT,X 


5000 ,e0T TSSDDY4 


TSSI)DT1 05/31/72 01705415 PDP~9 TIME=SHARING SYSTEM DEBUGGER PAGE 46 


COMMANDS 
100 eSTITL COMMANDS 
110 * 
420 * COMMAND TABLE 
130 ® 
015721 440 ComTB ees 
013721 446555 150 446555 
015722 614076 160 JMP DUM 
615723 6941464 470 604164 
013724 614155 480 JmMP Pay 
015725 414444 490 414444 
013726 614205 200 uMP ADD 
015727 637155 210 637455 
013730 614171 220 JMP Sy™ 
915731 874364 230 574364 
913732 614173 2406 JMP OCT 
013733 444543 250 444543 
015734 614175 260 JMP DEC 
915735 635170 270 633170 
015736 614477 280 JMe S$ |x 
015737 634166 290 634466 
013740 614232 300 UMP SAVE 
013741 457051 340 457954 
0135742 705001 320 TERMINAT TSS ODT EXIT [3 A HLT. WHICH RETURNS TO TWE MONITOR 
015743 700000 330 700000 
015744 705001 340 TERMINAT xX ALSO EXITS 
015745 624547 350 624547 
043746 614271 360 JMP REG 
013747 415464 370 413464 
0135750 614310 380 MP ALT 
013754 544463 399 544463 
015752 614365 400 UMP LDS 
013753 4414463 410 414463 
015754 614371 420 JMP ADS 
015755 5094544 430 504541 
015756 6144147 440 JMP H&A 
013757 426245 459 426245 
615760 614440 460 JMP BRE 
015761 655642 470 658642 
015762 614470 480 JMP UNB 
015763 525560 490 §25560 
013764 6146147 500 JMP TRA 
013765 435756 810 433756 
013766 614623 820 UMP CON 
915767 645741 530 545744 
813770 614734 5849 JMP LOAD 
043774 $54763 5850 554163 
915772 615025 560 JMP MAS 
913773 634541 370 634541 
615774 615030 580 JmP SEA 
013775 590 COME ek 
000014 600 CMDX »EQU 14 COMMAND REGISTER 


TSSnbT1 05/31/72 


015775 703302 
015776 700002 
015777 700416 


014000 
014000 700312 
014001 


014001 777766 
014002 115561 


014007 


014007 
014007 700312 
014040 


014040 777775 
014041 215561 


014013 
014043 415370 
014044 
014044 215435 
814005 040034 
014046 777724 
014047 055200 


0140280 
014020 115526 
014021 614007 
014022 660044 
014023 620044 

014084 
014024 455200 
014025 614022 

014086 


014026 
014026 700342 
014027 


014027 777752 
014030 419562 


014041 
14041 215367 


620 
6350 
640 
650 
660 
670 


680 
690 
700 
710 
720 


01305315 


START 


IDLE 


CQMA 


COMO 


COMA 


PDP-9 TIME=SHARING SYSTEM DEBUGGER 


COMMANDS 
STARTUP 


CAF 

1OF 

FLSe10 

MESS <DDT HERE>,8, 
KRB 

MESSR <ODT HERE>D,8, 
,CRSM  SAVE,ON 

LAW -“8,-2 

JMS TSS] XOT 

»PMC RESTORE 

,CRSM RESTORE 


IDLE ,00P 


eos 

MESS €7>,4 
KRB 

MESSR €2>,14 
.CRSM SAVE.ON 
AW “1-2 
JMS TSS{XOT 
,PMC RESTORE 
»CRSM RESTORE 


LINE 

JMS TSINLIN 
°°? 
Lac (JMP COMTB~1) 
Dae CMDX 

Liaw COMTB-COME 
DAC Tq 

WORD 

JM8 TSSIXIN 

MP IDLE 

ad CMDX,X 

JMP CMDX,X 
LOOP T1,COmO 
{82 1 
JMP COMO 


CLEAR Up 
PRINT A GRITCH 


READ A LINE 


GET POINTER 

SAVE IN REGISTER 
GET COUNT 

SAVE IT 

GEY A WORD OF INPUY 


INPUT LINE WAS VaCWouUSs 
CHECK FOR A COMMAND 


60 TO IT 
LOOP ON CQUNTER 


EMESS <COMMAND ERROR, 13. 


CRS SAVE,ON 


MESS CCOMMAND ERROR WORD #3513,%7 


MESSR <COMMAND ERROR WORD #>/13,%7 


,CRSM = SAVE, ON 
Law ~413,°7"2 
Jms TSSIXOT 
PMC RESTORE 
,CRSM = RESTORE 


Lal TSCOQUNT 


PAGE 
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TSSyvTi 


05/31/72 


014042 


014042 
014043 


014044 


744002 
£15502 


614007 


014045 


014045 


014045 


01404 


014046 
014047 


014 
014057 

014 
014060 


014061 
014062 


700312 
6 


777753 
115561 


087 
815367 

060 
744002 


115502 
614007 


014063 


014063 
014064 
044065 
014066 
014067 
014070 
914071 


219366 
655136 
644074 
655437 
614007 
55140 
741000 


014072 


014072 
914073 
014074 
914075 


614045 
614014 
400014 
000000 


850 
860 
870 
880 
890 


900 
910 
920 


930 
940 
950 
960 
970 
980 
990 


1000 
1010 
1020 


01705115 


a 
FORMAT 


€ 
COMX 


COMY 


CMDN 


PDP-9 TIME=SWARING SYSTEM DEBUGGER 


octz 
STL 
ums 
,CRSM 
JMP 


COMMANDS 


TSOCTOT 
RESTORE 
IDLE 


FORMAT ERROR 


EMESS 
,CRSM 
MESS 
KRB 
MESSR 
,CRSM 


DELIM 
Lae 
Sad 
JMP 
Sad 
JMP 
Sad 
8KP 
FORMAT 
JMP 
JMP 
xcT 

0 


<FORMAT ERROR>, 12. 


SAVE,ON 


<FORMAT ERROR WORD #>,42,~7 


<FORMAT ERROR WORD #>,42,-7 


SAVE,QN 
“412,72 
TSS IXOT 
RESTORE 
RESTORE 


TSCOUNT 


TSOCTOT 
RESTORE 
IDLE 


TSDLMTR 
($SCOLON) 
COMY 
(CR) 
IDLE 
(NUMSGN) 


FQRMAT 
COMA 
CMDX 


GET THE LAST DELIMITER 


CHECK FOR A SEM] eCOLON 

YEB <-- TROUBLE 

CHECK FOR « CARRIAGE RETURN 
ves 

CHECK FOR # 


FORMAT ERROR JF NOT 
ENTER COMMAND SCAN 


GET THE POINTER 
COMMAND NUMBER 
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418 


TsSpbT1 


05/31/72 


014076 


014076 
014077 


113120 
055671 


014100 


014100 
014101 
014102 
014103 
014104 
014105 
014106 
014107 


215366 
§55075 
614107 
§55141 
614147 
977777 
614114 
115420 


014130 


914140 
014444 
914142 


740003 
355100 
740100 


014143 


014143 
0141494 
014445 
914146 
044497 
014420 
014491 
0141422 
014123 
0141294 


614045 
053672 
113554 
614043 
113120 
740001 
353671 
740100 
977777 
614114 


01+05115 


os ess 8 & & 


DUM1 


DUMS 


DWM2 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


»EJECT 


DUMP 


DUM ADDIS ADD2;ADD3 
MUM ADDY KLSADD2 LEADDS L 


COMMANDS 


OR 
OR 


DUM ADDiL,ADDIUsSADD2L,aADD2U 


ae | 
JMs 
Dac 
DELIM 
Lae 
SaD 
MP 
sAD 
UMP 
LAW 
JMP 
Jms 
NEG 
CMA 
vad 
SMA 
FORMAT 
JMP 
Bae 
JMS 
JMP 
JMS 
CMA 
TaD 
SMA 
Law 
JMP 


EXP 
LOC 


TSDLMTR 
(SPACE) 
DWM 


GET AN EXPRESSION 
SAVE IT 
GE’ TWE DELIMITER 


CHECK FOR A SPACE 

CHECK FOR A COMMA 

ELSE DUMP ONLY ONE WORD 
GET ANOTHER EXPRESSION 
FORM 2S COMPLEMENT 
CHECK FOR PROPER LENGTH 
SAVE FOR DUMP ROUTINE 
puMP IT 

GET ANOTHER EXPRESSION 
NEGATE 

FORM DIFFERENCE 

CHECK FOR OK 


GEY =4 IF NOT 
CONTINUE 
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TsSnbrTi 


914125 
914126 
914427 
914150 
014431 
044432 


05/31/72 


000000 
413120 
055204 
215365 


555075 
644435 


014133 


0141433 
014134 


914135 
014136 
914137 
014140 
014141 
914142 
944443 
914144 
014145 
014146 
0149147 


215204 
634125 


413420 
545425 
355204 
055204 
215365 
555141 
744000 
614133 
415607 
655434 
744000 


014150 


014150 
614151 
014152 
014453 
914154 


614045 
#15204 
site 
1 
634725 


04405315 


WORD 


PDP-9 TIME=SHARING SYSTEM DEBUGGER 


EJECT 


COMMANDS 


GET WORD ROUTINE 


INSTRUCTION FOUND 


EXp 
(ADRSS) 
15 

T5 
TSCHAR 
(COMMA? 


(757777) 


(20000) 
GWORD 


GET AN EXPRESSION 

SAVE FOR NOW 

GET THE CHARACTER THAT STOPPED US 
CHECK FOR SPACE 


GET THE VALWE 


RETURN 


GET ANOTHER EXPRESSION 
EXTRACT ADQRESS FIELD 
ADB TQ CURRENT ONE 


SAVE IT 


GET THE CHARACTER 
CHECK FOR , 


NO 


GET A CHARACTER 
CHECK FOR ®x! 


FORMAT ERROR JF NOF 


GE? VALUE 
TRIM 


MAKE INDIRECT 
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TSSHDT1 05/31/72 01405315 PDP-9 TIME-SHARING SYSTEM DEBUGGER PAGE 21 
COMMANDS 
4670 EWECT 
1680 ® 
1690 * PATCH 
1700 * 
4710 * PATCH ADD3LOC LOC LOC3LOc LcO L0¢ 
4720 * 
014155 4730 Pat ‘wee 
014155 413120 14740 JMs EXP GET THE ADDRESS 
0141456 053671 4750 ac LOC SAVE IT 
014157 4760 PaTo DEL IM GET A CHARACTER 
014157 215366 Lac TSDLMTR 
014460 §55075 4770 Sad (SPACE) CHECK FOR SPACE 
014161 614465 4780 JmP PATS | 
014162 6855436 4790 Sad (SCOLON) CHECK FOR } 
014163 741000 1800 SKP 
014164 614063 41810 JMP COMX DONE |F NOT 
014165 114125 1620 PaT4 JMS GwORD GE? A WORD 
0144166 073671 1830 pac LOC.x SAVE JT 
014167 453671 1840 1SZ Loc INDEX 
0141470 614157 4850 UMP PaTO LOOP 
1860 * 
4870 a SYM 
1880 * 
014471 #15143 14890 SY” Lac (JMp FORMS) GET THE pROpER JUMp 
014472 614200 1900 UMP FORM 
4910 * 
1920 * ocr 
4930 * 
014173 215144 1940 QcT Lac (YMP FORMO) GEY THE PROPER JUMP 
614174 614200 4950 JMP FQRM DO If 
1960 * 
4970 * DEC 
4980 * 
014175 215145 4990 DEC Lac (JMS PDEC) DECIMAL FORMAT 
014476 614200 2000 JMP FORM po If 
2010 * 
2020 « $1x 
2030 * 
014477 215146 2040 SIX Lac (JMS pé6 GET FORMAT 
014290 053563 2050 FORM pac FORMSW SAVE IT 
014201 215365 2060 Lac TSCHAR 
014202 §$55075 2070 $aD (SPACE) CHECK FOR SPACE 
014203 614014 2080 JMP COMA ANOTHER COMMAND {F SO 
014204 614063 2090 JMP COMX TRY IF NOT 
2100 * 
2110 # ADD 
2120 « 
014205 774223 2130 AOD LAW ADDTB=4 GET TABLE START 
614206 040010 2140 pac INDEX SAVE [T 
919207 777775 2150 LAW “ADDTL/2 
914240 055200 2160 DAC Td 
014241 2170 WORD GET A WORD 


TsSpDdTa 


0149241 
014242 
914243 
0142494 
014245 


05/31/72 


415526 
740000 
560010 
614221 
440010 


014216 


014246 
014247 


455200 
614215 


014220 


914220 
014221 
014222 
014223 


614045 
220010 
053400 
614063 


014224 


014224 
014225 
014226 
014227 
914230 
014234 


574364 
613401 
444543 
613405 
637455 
613407 


000006 


2180 
2190 
2200 
2210 
2220 


2230 


2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 


01505315 


ADDL 


ADDTL 


PDP-9 TIME*SHARING SySTEmM DEBUGGER 


COMMANDS 
TSSIXIN 


INDEX, X 
ADDL 
INDEX 
T1,ADDL 
Ti 

ADDL 


FORMAT 
INDEX, X 
AF ORM 
COMX 


FORMAT TABLE 


OCTF 
DECF 


SY MF 
»ADDTB 


CHECK IT 


LOOP 


FORMAT ERROR 


GEY FORMAT 
Save IT 
RETURN 
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TsspbTi 


014232 
914233 
914234 
014235 


014236 
014237 
014240 


05/31/72 


215121 
415707 
774236 
614063 


000000 
002000 
010000 


2580 
2590 
2400 
2410 
2420 
2430 
2440 
2450 
2460 


01905815 


SAVe 


Sav4 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


COMMANDS 
»~EJECT 
LAC (DSWRITE) 
gMS D$DO 
LAW SAV4 
JMP COMX 
0 
BOUNDARY 
SBASE-BOUNDARY 


LOAD THE WRITE COMMAND 

GO DO THE DISK WRITE 

POINTER YO THE DISK FILE PARAMETERS 
NEXT?? 


STARTING IN DISK BLOCK ZERO 
CORE STARTING ADDRESS 
LENGTH 
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TsSpdT1 


014241 
914242 
914243 
014244 
914245 


05/31/72 


000000 
774317 
040010 
777778 
055200 


014246 


914246 
014247 
914250 
014254 
014262 
914283 
914254 
014265 
914256 
914257 


415526 
740000 
§15147 
§55150 
pet 
21523 

860010 
634241 
440010 
440010 


014260 


914260 
914261 


O1 
914262 


Q14271 
014272 
014273 
014274 
014275 
914276 
914277 
0149300 
044304 
014302 
014303 
014304 


455200 
614254 


262 
614045 


£14241 
413605 
215237 
413624 
413614 
219237 
§15147 
§5545 

64430 

220010 
420010 
614963 


014305 


014305 
914306 


220010 
415377 


01505315 


meee ef 


&GF 


REG|, 


REG2 


REG 


PDP~9 TIME=SHARING SYSTEM DEBUGGER 


»EVECT 
REGF 


COMMANDS 


FIND A REGISTER 


REGT~-4 
INDEX 
*REGN/3 
Ta 


TSSIXIN 


(770000) 
(700000) 
REG2 
TSWORDB 
INDEX, X 
REGF 
INDEX 
INDEX 
T1,REGL 
Ta 

ReGl 


FORMAT 


TSWORDB 
6 

(7) 
(REGS8@4) 
INDEX 
REGF 


REGISTER COMMAND 


(770000) 
(700000) 
REG, 
INDEX, X 
INDEX,xX 
CQMX 


INDEX, X 
DUMA 


GET POINTER TQ TABLE 
SAVE ]T 

GE? NUMBER OF REGISTERS 
SAVE JT 

GET A WORD 


GET THE FIRST CHARACTER 
CHECK FOR *x? 

po If 

RESTORE guFFER 

CHECK JT 

RETURN IF WE FIND IT 


LOOP ON COUNTER 
FORMAT ERROR 


GEY THE BUFFER 
MOVE OVER 

TRIM 

POINT 

SAVE POINTER 
RETURN 


FIND A REGISTER 

PRINT EOL 

GE’ THE REGISTER 
PRINT [T 

' 

CHECK FOR X REGISTERS 


CHECK FOR X 
DQ SOMETHING 
EXIT 


GET THE REGISTER 
DUMP IT 
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TSSpbT1 05/31/72 04705815 PDP-9 TIME-SHARING SYSTEM DEBUGGER PAGE 25 


COMMANDS 
019307 614963 2959 JMP COMX EXIT 
2960 t 
2970 * ALTER 
2980 * 
0149340 114241 2990 ALT JMs REGF FIND THE REGISTER 
0149341 440010 3000 {Sz INDEX FORM POINTER 
914342 200040 3010 Lac INDEX 
019323 054347 3020 pac REG] SAVE IT 
0149344 1141425 3030 ums GWORD GET A WORD FOR IT 
014345 074317 3040 pac REGI,X SAVE IT 
914346 614063 3050 MP COMX EXIT 
014347 000000 3060 REG] i) 
3070 « 
3080 * REGISTER TABLE 
3090 « 
014320 3100 REGT ca% 
014320 414300 3110 414300 
014321 000000 3120 Ac 0 
014392 413377 3130 JMS DUMA DUMP 
0143@3 356300 3140 5546100 
014324 000000 3150 MQ 0 
019395 415377 3169 ums DUMA puMP IT 
014326 604300 3170 604300 
014387 000000 3180 PC 0 
9149330 4153377 3190 JMS DUMA 
014331 845300 3200 545300 
914332 000000 3210 LK 0 
014383 413711 3220 JMS P6Z 
014334 634300 3230 634300 
014335 0900000 3240 Te 0 
019336 413741 $250 JM8 P6Z 
914337 636463 3260 636463 
014340 000000 $270 STS ) 
014383 3280 act IN OCTAL ALWAYS 
0149341 44000 Cul 
014342 415502 JMS TSOCTOT 


000023 3290 REGN »EOV °REGT NUMBER OF REGISTERS 


TSSDDT4 05/31/72 01'05315 PDP-9 TIME=SHARING SYSTEM DEBUGGER PAGE 96 
COMMANDS 
3300 ,EVECT 
3310 « 
3320 * TAPE READER ROUTINES 
3330 * 
014343 900000 3340 GETW ) . 
0149344 454363 3350 pzZM TIME CLEAR TIMER 
014345 700144 3360 RSB STARY THE READER 
014346 3370 Qwi sie 
014346 700101 33890 RSF CHECK FOR CHARACTER IN 
914347 744000 3390 SKP 
014350 614354 3400 JMP WIN Yes 
0149364 454363 3410 182 TIME CHECK FOR TIMEOUT 
014362 614346 3420 JMP GWi 
014353 634343 3430 RET GETW RETURN TIMEOUT 
014354 700112 3440 WIN RRB GET THE WORD 
014355 054363 3450 DAC wt SAVE [T 
014386 254364 3460 KOR CKSUM FORM CHECKSUM 
014357 054364 3470 pac CKSUM Save [T 
914360 914363 3480 Lac wT RESTORE WORD 
14361 454343 3490 182 GETW GIVE GOOD RETURN 
14362 634343 3500 RET GETW RETURN 
014363 3510 WT ‘an 
014363 000009 3520 TIME 0 
014364 900000 3530 CKSUM 9 
3540 * 
3550 « LOAD SYMBOLTABLE 
3560 * 
014365 3570 OS “i's 
014365 771673 3580 Law SYMSTw4 GET POINTER TO SYMBOL TABLE 
014366 053336 3590 pac SPTR SAVE POINTER 
014367 777757 3600 Law ~SYMN GET NUMBER OF SYMBOLS 
914370 053274 3610 DAC SCOUNT SAVE |T 
3620 * 
3630 * ADDD SYMBOLTABLE 
3640 * 
014371 3650 Ads eats 
014374 777775 3660 LAW =3 DECREMENT PQINTER 
014372 055200 3670 Dac Ti SAVE COUNT 
014373 $53336 3680 Tad SPTR 
014374 053336 3690 pac SPTR 
014375 040012 3700 Dac SYMBX SAVE FOR OUT USE 
0143976 777777 3710 aw sa | BaGK UP COUNT 
0149377 353274 3720 aD SCOUNT 
614400 053274 3730 bac SCOUNT 
0149401 414343 3740 ADS|, ums GETW GE’ a WORD 
014402 614411 3750 JMP ADSX DONE 
014403 060012 3760 Bac SYMBX,X SAVE IT 
014404 3770 OOP Ti, ADSL LOOP 
014404 455200 EY 4 T1 
914405 614401 JMP ADSL 
014406 414343 3780 ums GETW IGNORE EXTRA WORD 
014407 614411 3790 JMP ADSX EXEY JF NONE 


TSSpbT41 


014440 
0144414 
014442 
014443 
014494 
014445 
014446 


05/31/72 


614371 
213336 
355113 
053336 
453274 
700142 
614063 


014447 


014447 
014420 
014421 


014492 
014493 
014494 
913425 

14426 
014427 
914430 
014431 
014432 
0144383 


115526 
055210 
614063 


000000 
055200 
215152 


979998 


055201 
215200 
560040 
634422 
440010 


014454 


014434 
014435 
014436 
014437 


455201 
614431 
454422 
634422 


015247 


915247 
015220 
o15ae4 
015292 
015223 
915224 
015225 
015226 
015227 
915230 
919231 
015232 
015233 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


3800 
3810 
3820 
3839 
3840 
3850 
3860 
3870 
3880 
3890 
3900 


3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
401 

4828 
4030 
4040 
4050 
4060 
4070 
4080 


4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 


01:05:15 


ADSX 


00K 


B7BL 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


JMP 
LAC 
TAD 
Dac 
{sz 
RRB 
JMP 


HEAD 
WORD 
JMS 
Dac 
JMP 


BREAK 


COMMANDS 


ADS 
SPTR 
(3) 
SPTR 
SCOUNT 


COMX 


TSSIXIN 
HEAD 
COMX 


ADD SOME MORE 
GET POINTER 
ADD 3 


BACK UP TO LAST SYMBOL 


AND UNCOUNT IT 


CLEAR FLAG IN STUBORN READER 


CONTINUE 


GET THE SYMBOL, 


SAVE IT 
EXIT 


SUBROUTINE TO SEARCH BREAK pOINT TABLE 


6 

Dac 
LAG 
DAC 
Law 


TA 

(DAC BTBL=1) 
INDEX 

=10 

T2 


Th 
INDEX, X 
BLOOK 
INDEX 
T2,BRL 
T2 

BRL 
BLOOK 
BLOOK 


BREAK TABLE 


,VSE 
» DUP 
»DATA 
+DATA 
»DATA 
eDATA 
»DATA 
»DATA 


»DATA 


STOR 


1,10 
0,0 


SAVE THING TO LOOK FOR 


GET POINTER 


SAVE IT 
GET TWE NUMBER OF BREAK POINTES 


RESTORE PATTERN 


CHECK FOR ONE 


RETURN IF WE FIND [tT 
LOOP ON COWNTER 


INCREMENT RETURN 
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TSSHDT1L 05/31/72 01405115 PDP-9 TIME-SHARING SYSTEM DEBUGGER PAGE 28 
COMMANDS 


015234 900000 
015235 900000 DATA 0,0 
015236 000000 

014440 4170 USE 


TsSpbTi 05/31/72 


014440 
0144490 «6115120 
0149441 055202 
0149442 414422 
014443 614063 
0149444 750000 
0149445 4114422 
014446 614465 

014447 


014447 
0149447 7003142 
014480 


914450 777755 
01494684 415561 


014461 


014462 744002 
014463 415502 


014464 6140963 
014465 215202 
014466 400020 
014467 614063 


014470 
014479 )«69415120 
014471 414422 
014472 614510 

014473 


014473 
014473 700312 
014474 


014474 777757 
014475 3115564 


014504 
0149504 215367 


4180 
4190 
4200 
4240 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 


01305:15 


ae &¢ es & 


PDP-9 TIME=SHARING SYSTEM DEBUGGER 


COMMANDS 


EXP 
T3 
Bl,OOK 
COMX 


BOOK 
BR 


SAVE,ON 


1 
<TABLE FULL>,10, 


GET THE LOCATION 
SAVE IT 

1S IT ALREADY THERE 
YES -- DO NOTHING 


LOOK FOR A HOLE 


<TABLE FULL WORD #>,10+~7 


<TABLE FULL WORD #>,10.~-7 


SAVE,0ON 
-40,+792 
TSSIXOT 
RESTORE 
RESTORE 


TSCOUNT 


TSOCTOT 
RESTORE 
CQOMX 
T3 
INDEX 
COMX 


EXP 

BLOOK 

UNG 

<NO BREAK>,8, 
SAVE,QN 


EXIT 

GE? THE LOCATION 
SAVE [T 

EX!T 


GET THE EXPRESSION 
LOOK FOR IT 
FOUND IT 


<NO BREAK WORD #>,8,~-7 


<NO BREAK WORD #>,8,°7 


SAVE,QN 
“8B. ~72 
TSSIXOT 
RESTORE 
RESTORE 


TSCOUNT 
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TsspbT1 


05/31/72 


014505 


014505 
014506 


014597 
914540 
914541 
014542 


014543 
014544 
014545 
9145496 


744002 
415502 


614063 
750000 
400010 
614063 


000000 
055204 
777779 
055202 


014547 


014547 
014590 
014591 
014592 


235200 
075204 
455200 
455201 


014523 


014523 
014574 
014595 


014526 
014597 
0145380 
014531 
014582 
014533 
014534 
014535 
014536 
914587 
014540 
0145414 
014542 
014543 
014544 
014545 
014546 


014547 


014550 
014554 
614552 


455202 
614547 
634543 


000000 
054324 
214526 
054327 
154646 
644002 
054324 
750040 
054332 
644004 
054335 
454363 
454363 
614542 
700334 
054340 
700002 


700446 


700312 
760040 
055200 


4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 


4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 


01705115 


RS4 


INTL 


PDP-9 TIME=SHARING SYSTEM DEBUGGER 


COMMANDS 
OctzZ 
STL, 
JMS TSOCTOT 
»CRSM RESTORE 
JMP COMX 
CLA 
xcT INDEX 
JMP CQMX 


EXIT 


CLEAR BREAK POINT 
EXT 


ASAVE "REGISTER SAVE AND RESTORE ROYTINE 


0 

DAC T2 
LAW “40 
Dac T3 
bac Tax 
DAC T2.X 
182 T4 
182 T2 
LOOP T3,RS4 
1$2 T3 
JMR RS4 
RET RSAVE 
ENTRY FROM INTERRUPT 
0 

Dae AG 
Lag INTO 
Daeg PC 
DZM WF 
LaGQ 

DAc MQ 
CLATRAL 

Dac LK 
LACS 

pac 8¢ 
DZM TIME 
18Z TIME 
JMP 7h 
ORS 

Bac STS 
10F 


RPL. "GET THE AP] STATUS 

DAC API "SAVE IT 

78010 

ne (700040) "SET LEVEL 
A 


KRB 
LAW 10 
Bac T1 


SAVE 
GET COUNT 
BAVE IT 


GET WORD 


SAVE ACCUMULATOR 
GET THE PC 
SAVE AS PC 
CLEAR FLAG 
GEF THE MQ 


GEF THE LINK 

BAWE IT 

GET THE SC 

SAVE IT 

WAIT FOR SLOW INTERRURTS 


GET THE STATUS 
SAVE IT 
TURN PI] OFF 


SEND 
4 


POINT TO X REGISTERS 
SAVE If 
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TSSiLT1 05/31/72 01:05115 PDP-9 TIME-SHARING SYSTEM DEBUGGER PAGE 31 


COMMANDS 
014553 774724 4900 LAW REGS POINT TO SAVE AREA 
019554 4145143 4910 JMS RSAVE SAVE THEM 
4920 
4930 a REMOVE BREAKPOINT CaLS 
4940 ® 
014555 775216 4950 LAW BTBL~1 POINT TO TABLE 
019556 0400144 4960 Dac CMDX SAVE POINTER 
019557 777770 4970 Law -10 NUMBER OF BREAKPOINTS 
014560 055200 4980 Dac Ti SAVE IT 
014561 200000 4990 LAC 0 PRESERVE LOCATION ZERO 
014562 055202 5000 pac T3 
014563 220044 5010 INT2 Lac CMDX, X GET A POINTER 
914564 055201 5020 Dac T2 Save IT . 
014565 220014 5030 Lac CMDX,X GET THE INSTRUCTION 
014566 075201 5040 pac T29X RESTORE IT 
014567 5050 LOOP Ti, INT2 LOBP ON COUNTER 
014567 455200 {SZ Ti 
914570 614563 JMP INT2 
014571 2153202 5060 LAG T3 
914572 040000 5070 pac 0 
014573 5080 MESS <BREAK ~ >8, 
014573 700342 KRB 
014574 MESSR <BREAK - 2,8, 
,CRSM 8 SAVE,QN 
014574 777766 LAW “8,92 
019575 415564 JMS TSS]XOT 
, PMC RESTORE 
,CRSM = RESTORE 
014602 777777 8090 LAW “4 PRINT PROPPER PC 
014603 954327 5100 vad PC 
914604 058200 8110 Dac T4 SAYE 
014605 214616 5120 Lac WF CHECK FOR WaT 
014606 740200 8130 SZA 
914607 614642 5140 JMP INT3 YES -- DON*#T CHANGE INSTRUCTION 
914640 835200 5150 Lac T4>Xx GET INSTRUCTION 
014641 054741 9160 DAC UINST SAVE IT 
014642 215200 5170 INTS Lac T4 RESTORE PC 
914643 13339 5180 AND CADRSS) FRIM 
014694 413377 8199 ums DUMA DUMP 
914645 614007 5200 JMP IDLE AND LOOP [PLEY 
014646 000000 8210 WF 0 


TSSpvTi 05/31/72 04705515 PDP-9 TIME*SHARING SYSTEM DEBUGGER PAGE 32 


COMMANDS 
5220 ~EWECT 
5230 # 
5240 2 TRANSFER 
5250 * 
014647 413120 8260 TRA JMS EXp GET THE EXPRESSI9N 
014620 515125 5270 AND CADRSS) TRIM 
01462841 355453 5280 TAD (UMP) MAKE A JMP X INSTRUCTION 
014622 054711 5290 Bac UINST Save IT 
5300 * 
5310 t CONTINUE 
5320 * 
014623 5330 CON CRLF 
014623 415673 JMS TSCRLF 
019624 2415454 5349 Lac (8TBL@4) GET INITIAL POINTER 
014625 040044 3359 pac CMDX BAVE IT 
014626 777770 5360 Lal 40 GET COUNT 
014627 055200 3370 pac T4 SAVE [T 
014630 220044 53380 CONL Lac CMDX,X GET A POINTER 
014631 744200 5390 SNA CHECK FOR SOMETHING 
019632 614641 3400 wMP CON2 : 
0149633 0955201 34190 Dac T2 SAVE JT 
914634 235201 5420 Lac T26X GET THE WORD 
014635 060044 $430 pac CMDX,X SAVE JT 
014636 215155 5440 Lac (JMS INTO 
014637 975204 5450 DAG T29X MAKE A CAL 
014640 741000 8460 SKP 
014641 440014 5470 CON2 182 CMDX SKIP POINTER 
014642 $480 oor T1,CONY LOOP COUNTER 
014642 455200 {sz Ta 
14643 614630 JMP CON 
14644 774724 5490 Law REGS POINTER TO X REGISTER 1 
914645 055200 5500 DAC Ta SAVE JT 
014646 760010 5510 LAW 10 POINT TO REGISTERS 
014647 £14543 $520 ums RSAVE RESTORE REGISTERS 
014650 214335 5530 Lac $C GET THE STEP COUNTER 
014651 255142 $540 KOR (77) COMPLEMENT 
014652 §55486 5559 FAD (649402) FORM RANDOM EAE 
014653 915157 5560 AND (640477 
014654 054655 5570 Dac ef SAVE IT 
914655 740040 3580 XX 
014656 214324 5590 Lac MQ RESTORE MQ 
014657 652000 8600 Mo 
014660 214332 5610 Lac LK GET THE LINK 
914661 740020 3620 RAR RESTORE {Tf 
014662 700401 53630 Sr WAIT FOR LAST CHARACTER TO PRINT 
014663 614662 5649 JMP wh 
014664 2143490 5650 Lac STs GET THE STATUS 
014665 515130 5660 AND (20000) FIND TTY FLAG 
014666 ante 5679 SNA SKIP IF SO 
014667 700402 5680 FCF CLEAR FLAG 
019679 6©7035304 5699 DBK DEBREAK aPl 


014671 214340 5700 Lac SYS GET THE STATUS REGISTER 


TSSiOT1 


014672 
014673 


014674 
014675 
014676 
014677 
014700 
0149701 
0147092 
014793 
0147094 
014705 
0149706 
014707 
014740 
044741 
0147492 
914743 
014744 
0149745 
014796 
014747 
014720 
014721 
914722 
014723 


05/31/72 


744100 
700042 


214711 
515160 
655461 
61471415 
214711 
§15162 
§55163 
644722 
555164 
614722 
215165 
054712 
214321 
740040 
741000 
454327 
634327 
214327 
0747141 
454741 
214324 
634741 
234327 
614707 


014724 


01+05315 


CONG 


WINST 


CQN7 


EA 


* 
REGS 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


SPA 
1ON 


COMMANDS 


CHECK FOR PI 


LAC API “GET THE REGISTER 
AND (400000) "JUST THE ENABLE BIT 


ISA 
LAC 
AND 
SAD 
JMP 
Lac 
AND 
SaD 
JMP 
SAD 
JMP 
Lac 
DAC 
Lac 
XX 

SKP 
182 
RET 
LAC 
pac 
1sZ 
LAG 
Ret 
Lac 
JMP 


BLOCK 


UINST 
(740000) 
(JMS) 
CON7 
UINST 
(740700 
(640100) 
A 


SPECIAL CHECK FOR JMS 


OORS 

GET THE INSTRUCTION AGAIN 
CHECK FOR WEIRD EAE 

MUL 


DIV 


SET UP INSTRUCTION 
SAVE IT 
RESTORE YwE ACC 


ESTORE THE PC 


GET THE PC 

SAVE 1T 

INCREMENT INSTRUCTION 
RESTORE THE AC 

RETURN 

GET MPY OR DIV CONSTANT 
GO TO IT 
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014754 


0149734 
044735 
014736 
044737 
914740 
014741 
014742 
019743 


415526 
614745 
555166 
644754 
§55167 
614754 
§55170 
741000 


014744 


014744 
014745 
014746 
014747 
014750 


014751 
014752 


614045 
215116 
$1379” 

74236 
614063 


154364 
414343 


014753 


014753 
0147654 
014755 
014756 
014757 
014760 
014761 
014762 
014763 
014764 
914765 
014766 


015000 
015001 
015002 
015003 


740001 
355100 
053672 
114343 


015004 


6020 
6030 
6040 


6050 
6060 
6070 
6080 
6090 
6100 
6110 
6420 


6130 
6149 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 


6230 
6249 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 


6350 
6369 
6379 
6380 
6390 
6400 
6410 
6420 


6430 
6449 


6450 
6460 


04°05315 


LOAD 


DI,0A0 


PPR 


PPR1 


PPR4 


PDP-9 TIME=SHARING SYSTEM DEBUGGER 


»EVJECT 


WORD 
JMS 
JMP 
Sad 
JMP 
sad 
JMP 
SAD 
SKP 
FORMAT 
MP 
Lac 
JMS 
Law 
JMP 


COMMANDS 


TSSIXIN 
DLOAD 
(PPT) 
PPR 
(PTR) 
PPR 
(DKQ) 


FORMAT 
(DSREAD) 
DSDO 
SaV4 
CQMX 


LOAD PAPER TAPE 


DZM 
JMs 
FORMAT 


/dMP 


AND 
Sad 
JMP 
RSA 
RSP 
JMP 
RRB 
8ZA 
JMP 
JMP 
JMS 
FORMAT 
JMP 
AND 


JMS 
FORMAT 


CKSUM 
GETW 


FORMAT 
(740000) 


(DAC Q) 
PPR4 


ak | 


275 
PPR 
GETW 
FORMAT 


(740000) 
(DAC Q) 


FORMAT 


(1) 
N 
GETW 


GET THE DEVICE NAME 
VACUOUS ASSUMES LOAD FROM THE DISK 


FORMAT ERROR 


LOAD THE READ COMMAND 

DO THE DISK READ 

POINTER TO THE DISK READ PARAMETERS 
NEXT COMMAND 2? 


CLEAR CHECKSUM 
GE? A WORD 


CHECK FOR LOADER 


GO USE IT 
LOOP 
BET A WORD 


FORMAT ERROR 


CHECK FOR DAC 
CHECK FOR DAC 


GET WORD BACK 
SAVE IT 
GET LENGTH 


FORM COUNT 


TRY FOR CHECKSUM 


PAGE 
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COMMANDS 
015004 614045 JMP FORMAT 
015005 214364 6470 LAC CKSUM CHECK CHECKSUM 
015006 740200 6480 §zA 
015007 6490 FORMAT NOPE 
015007 614045 JMP FORMAT 
015040 114343 6500 PPRL JMS GETW GET A WoRD 
015041 6510 FORMAT FORMAT ERROR 
015044 614045 JMP FORMAT 
015022 073671 6520 pac Loc,™X SAVE [T 
015043 453671 6530 SZ Loc INDEX LOCATION 
015044 6540 OOP N,PRRL LOOP 
015044 453672 1$Z N 
015045 66150140 JMP PPRL 
015046 614766 65509 JMP PPR4 GET ANOTHER BLOCK 
015047 000000 6560 TPR DATA 0, TSWORDB,2 


015020 013237 
015021 000002 
015022 000000 6570 TPR DATA 0»30+2 SPECIAL READ PARAMETER BLOCK 
915023 000030 
915024 900002 


TSSODT1 


015025 
915026 
015027 


4144125 
055072 
614063 
015030 414125 
015031 055073 
015082 

015032 215366 
015033 $554137 
015034 615944 
015035 $55440 
015036 615044 
015037 413120 
015040 0535671 
0145041 $55172 
045042 740400 
015043 615050 
915044 762000 
815045 053674 
915046 770000 
015047 6150533 
015080 419120 
915084 740001 
015052 953674 
015053 0550971 
015054 233671 
915055 253978 
915056 815072 
p34 2087 740200 

15060 613065 
015061 777777 
015062 053672 
915063 413554 
915064 741000 
015065 453674 

015066 

015066 455971 
015067 615054 
915070 614063 
015071 900000 
015072 777777 
915073 900000 
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01505315 


SEAS 


SEAL 


SEA2 
SEAL 


SGAX 


Ni 
MASK 
sT 
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»EWECT 
MASK 


COMMANDS 


(NUMSGN) 
SEAS 

EXP 

LOC 
(=BQUNDARY) 


SEAL 

BOUNDARY 

LOC 

BOUNDARY «BASE 
SEA2 

EXP 


LOC 
Ni,SEAL 
Ni 

SEAL 
COMX 


GET THE MASK 

SAVE |T 

RETURN 

GET SEARCH PATTERN 
Save 1T 

GET THE DELIMITER 


USE DEFAULT CONDITIONS WHEN NO ARGUMENT 


USE DEFAULT COND]TIJONS WwWEN NO ARGUMENT 
2GET STARTING L0Cc 
SAVE 


SKIP IF aATFEMPTING To SEARCH PROTECTED MEMORY 
ELSE CONTINUE 
START SEARCH AT THE BOUNDARY 


DEFAULT LENGTH IS aLL USER CORE EXCEPT pDT 


GET ENDING LOC 
NEGATE 

FORM LENGTH 
SAVE 

CHECK A LOC 
CHECK 

CHECK IT 

CHECK FOR MASK 
DONE 

SET COUNT 

SAVE |T 

DUMP 

SKIP SZ 

BUMP LOC 

LoeP 


EXIT 
INITIALIZED TO =4 
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SYMBOL TABLE 


7000 ,STITL SYMBOL TABLE 
7010 * 
7020 ® SYSTEM SYMBOLS 
7030 * 
000021 7040 SYMN .EQU 214 NUMBER OF SYMBOLS 
015074 7050 HERE ee 
011674 7060 »L9C ~4*@SYMN*BASE 
7070 DEF ,DBFIN (OCTAL SYMBOL s VALUE 
7080 ;DATA 0,41,#2 
7090 .ENDM DEF 
011674 7100 SyMST “a9 
011674 7110 DEF 0.0 
011674 000000 eDATA =: 0000 
911675 000000 
911676 000000 
011677 7120 DEF 43415410 CAL 
011677 000000 DATA =: 0 43415440 
011700 4344534 
912701 000000 
0114702 7130 DEF 444143,40000 DAC 
911702 000000 wDATA =: 00 449.4143, 40000 
913703 444143 
011704 040000 
011705 7140 DEF 525563.100000 JMS 
011705 600000 »DATA = 04525563,100000 
911706 525563 
611707 100000 
014710 7150 DEP 447255,140000 DZ 
611740 000000 sDATA =: 002 4472554140000 
041741 447255 
011742 140000 
014743 7160 DEP 544143,200000 Lac 
011743 000000 sDATA = 00 5 449143,200000 
011794 944443 
911745 200000 
011746 7170 DEF 7057625240000 xOR 
811746 900000 »DATA 00 705762.240000 
911747 703762 
011790 240000 
014721 7180 DEF 4144444,300000 ADD 
611721 000000 sDATA = 0 4144444300000 
Q11792 414444 
011723 300000 
014724 7490 DEF 644144,349000 VAD 
611724 900000 DATA «056 44144,340000 
011725 644444 
011726 340000 
011727 7200 DEF 704364,400000 xXCT 
011727 000000 sDATA = 00 704364,400000 


011730 704364 
011731 400000 
014732 7210 DEF 516372,440000 {$2 
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SYMBOL TABLE 


911732 000000 »DATA 0,516372+440000 
011733 516372 
011734 440000 
011735 7220 Der 415644,500000 AND 
011735 000000 DATA 0+415644,500000 
011736 415644 
011737 500000 
0114740 7230 DEF 634144,540000 SAD 
011740 900000 e DATA 02634144,540006 
011741 634144 
011742 %$40000 
011743 7240 DEF 525560,600000 JMP 
011743 000000 DATA 0,525560,600000 
011744 $255609 
911745 600009 
011746 7250 DEP 454145,6409000 EAE 
911746 900000 »DATA 0,454145,640006 
011747 454445 
911750 640000 
011751 7260 DEF 515764,700000 107 
011761 000000 DATA 0,515764,700000 
011752 913764 
911753 700000 
014754 7270 per 576062.740000 OPT 
011754 000000 DATA 0:576062-740000 
911755 576062 
011786 740000 
015074 7280 +bOC HERE 
015074 615177 7290 LUT 
015075 000240 
015076 900256 
015077 900044 
915400 000001 
015401 777777 
915102 900233 
015103 000255 
015104 0900282 
045105 000237 
015106 000244 
015107 000334 
015110 000246 
015141 620000 
015112 000077 
9151443 900003 
015114 640500 
015145 400000 
015146 900002 
015147 000040 
915120 900053 
015121 900004 
015122 000055 
015123 775207 
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SYMBOL TABLE 


015124 000060 
019125 017777 
015126 000007 
015127 900072 
9151430 020000 
0154314 777763 
915132 01357141 
015133 000054 
015134 000130 
015435 613720 
015136 000273 
915137 0900215 
§15140 000243 
915141 000254 
915142 757797 
015143 613635 
015144 613566 
915145 1135144 
915146 113624 
015147 770000 
015150 700000 
015151 014723 
915162 055246 
0151463 600000 
015154 0153246 
015155 4114526 
915156 640402 
015157 640477 
015160 740000 
915161 100000 
015162 740700 
015463 640100 
915164 640300 
815165 744000 
915166 606064 
015167 606462 
015179 445329 
015171 0640000 
015172 776000 
915173 000000 
015474 900000 


015237 7300 +VSE STOR 

000001 7310 DES yG ,EQy 1 TURN ON THE TTY LISTING 
7320 eINSRT =DLIBRARY!PDPOLIB: TTYNON 
100 » NE S$DEBUG,4 


420 LIFE SDEBUG,1 


TTYNON 


OS/31/72 


430 
440 
150 
160 
470 
180 
490 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
3350 
340 
350 
360 
370 
380 
390 
400 
410 


01305315 
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PDP-9 TIME=SHARING SYSTEM DEBUGGER PAGE 
MTSS=PDP9 NONW«INFERRUPTING TELETYPE HANDLER 

»STITL MTSSePDP9 NON-INTERRUPTING TELETYPE MANDLER 

PROGRAMMED BY ROBERT W, BLEAN 

LAST REVISED 24 MARCH 1972 

THIS HANDLER PERMITS NON-INTERRUpPT DRIVEN ENpUT FROM AND OUTpUT 


TO THE CONSOLE TELETYPE ON THE PDPe9 COMPUTER, 


THIS HANDLER ALTERS TRE ac, AND MQ, IT DOBS NOT ALTER ANY CORB 
MEMORY OUTSIDE OF ITSELF, IN PARTICULAR IT pOES NOT ALTER ANY AUTO~INDEX REGISTER, 


DATA FORMATS: 
4) OCTAL 


2) SIXBIT ~~ SIXBIT 18 8-BIT ASCIT MIMUS 2409, THIS MApS THE PRINTING 
CHARACTERS ONTO THE SET 0-77, ASCIE VALUE 333 ¢() IS USED FOR 
CARRIAGE RETURN AND 335 ¢}) IS USED FOR LINEFEED. NOTG THAT NEITHER 
333, 335, NOR ANY CONYROL CHARACTERS CAN BE RECOGNIZED IN SIXxBr!, 


3) ASCIJ + ONE ASCII CHARACTER IS STORED PER WORD, LINE INPUT 
IS STORED IN THIS FORMAT, SINCE THERE IS ONLY ONE LINE*BUFFER 
THE EXTRA BUFFER LENGTH WASTES LESS SPACE THAN WOULD THE WANDLING 
ROUTINES NECESSARY FOR OTHER FORMS OF PACKING CHHRACTERS. 
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T (MTSS TELETYPE HANDLER) STORAGE AREA 
420 »STITL CMTSS TELETYPE HANDLER? STORAGE AREA 
450 
460 
012287 470 WORDB ,BLO0CK 2 ROOM TO ACCUMULATE TWO VALID WORDS 
000120 480 STD »E0y 80. STANDARD [S AN BO-CHARACTER LINE BUFFER 
015241 490 BYFFR ,BLOCK STD 
500 ® 
5140 « 
520 e VARIABLES 
530 * 
015361 015360 540 BEND o7h END OF THE CHARACTER BUFFER 
015362 000000 550 BPTR DSA POINTER TQ CURRENTLY ACTIVE WORD IN LINE QUFFER 
915363 000000 560 TL ,DSA TEMPORARY VARIABLE 
015364 000000 570 Te +DSA TEMPORARY VARIABLE 
015365 000000 880 CHAR ,DSA STORES LATEST CHARACTER FROM FGET 
015366 000000 590 DLMTR DSA STORES LATEST DELIMITER THROUGW CHRID 
015367 000000 600 COUNT ,DSA 
610 LIFE PURCOD.1 


TTYNON 05/31/72 
T 
015370 
019370 740040 
045371 700312 
0145372 215743 
01°373 955362 
045374 155367 
015375 155366 
015376 700313 
045377 645376 
015400 555744 
015401 615423 
915402 555745 
015463 615421 
012404 652000 
015405 215362 
015406 555364 
0145407 741000 
915440 455362 
015441 641002 
015442 075362 
915443 555746 
04°444 741000 
015445 615376 
015446 775240 
$12447 055362 
915420 635370 
015421 £15673 
015422 6415372 
912423 215362 
015424 555372 
015425 615376 
015426 355747 
012427 955362 
015430 615376 


630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


730 
740 
759 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
989 
990 
4000 
1010 
1020 
1030 
1049 
1050 


01:05:15 


es ¢s & 


INLIN 


INL 


INY 


IN4 


ALINE 


1CHAR 


PDP-~9 TIME-SHARING SYSTEM NEBYGGER 


/STITY 


PAGE 


(MTSS TELETYPE HANDLER? LINE BUFFER INPUT 


(MTSS TELETYPE HANDLER? LINE BUFFER !IyPUT 


THE PROGRAM IS pROTECTED AGAINST OVERFLOW OR UNDERFLOW OF THE LINE 


BUFFER, 

ARE LOST, 

ENTER INL IN 
XX 

KRB 

LAC (BUFFRe41) 
Dac BPTR 
DZM COUNT 
NZM DIMTR 
KSFYKRB 

JMP owt 

Sad (SBKARR ) 
JMP 1CHAR 
SaD (SCONTX) 
JMP LL INE 
MQ 

LAC BPTR 
SaD BEND 
SKP 

{sz BPTR 
LACQ 

Dac BPTR,X 
Sad ($CR) 
SKP 

JMP IN1 

LAW BUFFRe4 
Dac BPTR 
JUMP INLIN,X 
JMS CRLF 
JMP INL 

Lac BPTR 
SAD INL 

JMP IN1 

TAD (+1) 
Nac BPTR 
JMP ING 


UNDERFLOW (EXCESS DELETICNS) 


IS IGNORED, AND OVERFLOW CHARACTERS 


EXCEPT FOR THE LAST CHARACTER TYPED. 


SUBROUTINE TO READ IN AND BUFFER A LINE FROM THE TELETYPE 


ONCE.» ON ENTRANCE, CLEAN UP ANY PRIOR INPUT 
LOAD A POINTER TO START OF TWE BUFFER MINUS ONE 
INITIALIZE THE BUFFER POINTER 

INITIALIZE THE WORD FETCHED COUNT 

INSTIALIZE THE LAST DELIMITER STORAGE 

GET THE NEXT INPUT CHARACTER 


DELETE ONE CWARACTER IF IT WAS A BACKARROW 


DELETE THE ENTIRE LINE IF IT WAS A CONTROL X 

SaVE THE CHARACTER 

LOAD THE CURRENT BYFFER POINTER 

SKIP IF NO OVERFLOW 

AVOID DAMAGE DUE TO OVERFLOW 

ADVANCE THE POINTER -- IY IS STILL WITHIN THE BUFFER 
RELOAD THE CWARACTER 

AND PUT IT IN THE BUFFER 


EXIT WHEN A CARRIAGE RETURN {tS FOUND 
ELSE GET THE NEXT CHARACTER 


RESET THE BUFFER POINTER AT THE END OF THE LINE 
AND RETURN TO THE CALLER 


PRINT THE RESPONSE TO A LINE-DELETE 
REREAD THE LINE 

LOAD THE BUFFER POINTER 

SKIP IF NO UNDERFLOW 

ELSE IGNORE THE COMMAND 

DECREMENT THE BUFFER POINTER 

AND SAVE IT 

GET THE NEXT CHARACTER 
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T 
015431 

015431 740040 
015432 155364 
015433 115614 
015434 635431 
015435 415607 
015436 415633 
015437 615461 
015440 635431 
015441 741400 
015442 455364 
015443 515750 
045444 055363 
015445 640503 
015446 215237 
015447 640603 
0149450 055237 
915451 215240 
919452 744000 
015453 653122 
015454 000012 
015455 641002 
015456 355363 
015457 055240 
015460 615435 
015461 555754 
015462 615470 
015463 215364 
015 44 

btsaes 835431 
015466 215237 
015467 615477 
015470 415607 
019471 415633 
015472 615476 
015473 635431 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
11390 
1140 
1150 
1160 
1170 


1189 
41990 
1200 
1210 
1220 
123) 
1240 
1250 
426.9 
1270 
1280 
12990 
1300 
1310 
1320 
1330 
1340 
1550 
1360 
1370 
1380 
1590 
4400 
1410 
1420 
1430 
1440 
4450 
1460 
1470 
1480 
4490 
4500 
1510 
4520 
1530 
1540 
1550 
1560 


01°05:15 


sees & 3 & B 


NYMIN 


NUM20 


NUM26 


Ny M27 
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/STITY 


OpERATION RETURN L 


He 
AYCLL 
yup hoe 


LAC 
JMP 
JMS 
JMS 
JMP 
JMP 
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(MTSS TELETYPE HANDLER) OCTAL WORD INPUT/OUTPUT 


NUMIN 


T2 
INTIN 
NUMIN, X 
FGET 
CHRID 
NUM26 
NUMIN,X 


3 
WORDB 
WORDBod 


TY 
WORDBo1 


NUM20 


(SPOINT) 
NyMo7 
T2 


NUMIN,X 
WORDB 
NUM29 
FGET 
CHRID 
NUM28 
NUMIN,X 


0 xX 
1 DELIM 
4 OCTAL 
xX X 


MEANING 


x FORMAT ERROR DISCOVERED 

X FIRST NON=BLANK CHARACTER IS A DELIMITER 
SUCCESSFUL READ OF AN OCTAL NUMBER 

X SUCCESSFUL WRITE OF AN OCTAL NUMBER 


INITIALIZE THE DECIMAL-DIGIT-RECEIVED FLAG 
INITIALIZE THE INPWT STRING, ETC 

RETURN +1 FOR DELIMITER IS FIRST NON-BLANK CHARACTER 
GET THE NEXT CHARACTER 

IDENTIFY IT 

1T 1S A DELIMITER, $0 EXIT 

1T IS A LETTER» SO EXIT #1 FOR A FORMAT ERROR 

SKIP IF THE CHARACTER IS AN OCTAL DIGIT 

ELSE BE SURE THE DECIMAL-DIGIT-RECEIVED FLAG IS SET 
RETAIN JUST THE DIGIT 

AND SaVE IT FOR DECIMAL ACCUMULATION 


SAVE THE "OCTAL Drg@yr" 

LOAD THE PREVIOUSLY GATHERED "OCTAL NUMBER” 
CONCATENATE THE wOCTAL DIGITSm 

AND SAVE TWE RESULT 


LOAD THE PREVIOYSLY GATHERED "DECIMAL NUMBERM 
SET THE LINK FOR THE MULTIPLY 

MULTIPLY THE PREVIOUS "DECIMAL VaLUE” 

BY 10 FOR DECIMAL 

LOAD THE RESULT 

ADD THE CURRENT "DECIMAL DIGIT" 

AND SaVE THE TOTAL "DECIMAL NUMBER" 


LOOP 


CHECK FOR A PERIOD 

1F $0, PICK YP THE DECIMAL VALUE 

ELSE LOAD THE DECIMAL-DIGITS-RECEIVED FLAG 
AND SKIP IF THERE WERE NONE 


4$ 


RETURN +4, LK=0 FOR a FORMAT ERROR; DECIMAL DIGITS, BUT NO PERIOD 


LOAD THE OCTAL VALWE 


GET THE NEXT CHARACTER 

AND IDENTIFy IT 

A DELIMITER IS LEGAL, SO EXIT 

A LETTER -~ EXIT +1 FOR A FORMAT ERROR 
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015474 744000 
015475 635431 
015476 215240 
019477 055237 
015500 455431 
015501 635431 
015502 
915502 740040 
019503 652900 
015504 741400 
015505 750204 
015506 777772 
015507 055363 
015540 641002 
015541 741200 
015542 7449000 
915543 641603 
015514 740200 
015545 744000 
015546 355752 
01455437 740400 
915520 115665 
919521 455363 
015522 6155143 
015523 700401 
015524 615523 
015525 635502 


1570 
1580 
1590 
1600 
1610 
162) 
1630 
1640 
1650 
1660 


1679 
1680 
16990 
4700 
4710 
1720 
1730 
1740 
4750 
1760 
1770 
1780 
1799 
4800 
4810 
1820 
1830 
4849 
4850 


019505415 


NUM28 
NUM29 


OCTOoT 
OCT42 


OCT44 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


CLL 
JMP 
Lac 
DAC 
182 
JMP 


ENTER 
XX 
Ma 
SZ. 
SZASCLC 
LAW 
DAC 
LACQ 
SNA 
CLL 
LLSC 
SZA 
CEL 
TAD 
SNL 
JMS 
1SZ 
JmMP 
TSP 
JMP 
JMP 


PAGE 


(MTSS TELETYPE HANDLER? OCTAL WORD INPUT/OUTPUT 


NUMIN,X 
WORDB41 
WORDB 
NUMIN 
NUMIN,X 


OCTOT 


owl 
OCTOT,X 


A NUMBER -~ CLEAR THE LINK FOR A FORMAT ERROR 
AND EXIT +1 

LOAD THE DECIMAL VALUE 

SAVE THE CORRECT VALUE 

BUMP TO a RETURN +2 FOR SUCCESSFUL 


SEY THE VALUE TO BE OUTPUT 

SKIP IF NO LEADING ZEROES aRE TO BE SUPPRESSED 

SET A FLAG TO PRINY ONE CHARACTER, ANYWAY: IF THE ac IS ZERO 
ELSE SET THE COUNT FOR THE STANDARD SIX CHARACTERS 

SET THE NUMBER OF CHARACTERS TO gE OUTPUT 

RELOAD THE USER'S VALUE 

SKIP FOR A NON-ZERO VALUE 

ELSE FORCE A SINGLE ZERO To PRINT 

GET THE NEXT OCTAL DIGIT 

IF IT IS ZERO, DON'T CHANGE PRINT-SUPPRESSION STATE 

ELSE CLEAR THE PRINT INHIBIT AT THE FIRST NON-ZERO FOUND 
MAKE ASCI] IN ANY CASE 

BuT SKIP IF PRINT €S INHIBITED 

ELSE PRINY THE DIGIT 

DONE?2? 

NO -- LOOP 


WAIT FOR THE TELET¥PE TO SETTLE 
YES -~ EXIF 


44 


TTYNON 


05/31/72 
T 


C15526 


015526 
915527 
915530 
045531 
015532 
015533 
015534 
015535 
915536 
015537 
015540 
015541 
045542 
015543 
015544 
015545 
015546 
915547 


915550 
015551 


740040 
775237 
055363 
115614 
635526 
455526 
415552 
660714 
075363 
415552 
460706 
275363 
075363 
415552 
275363 
075363 
455363 
615534 


215237 
635526 


013552 


015552 
015553 
015554 
915555 
015556 
015557 
045560 


740040 
415607 
415633 
615550 
740000 
355753 
635552 


015561 


915561 
015562 
015563 
015564 
015565 
015566 
045567 


740040 
055363 
235564 
652000 
455561 
115572 
415572 


1860 
4870 
4880 
1890 
4900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 


1980 
4990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
21480 
2190 


2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 


2290 
2300 
2310 
2520 
2330 
2540 


01°05:%15 


eeee ene & 


SIXIN 


S1X2 


SI X9 


SIX5 


S| xoT 
S]X24 


PDP~9 TIME-SHARING SYSTEM DEBUGGER 


GST TTE 


OPERATION RETURN | 


PAGE 45 


(MTSS TELETYPE HANDLER? SIXBIT WORD INPUY @ SIXBIT BUFFER OUTPUT 


(MTSS TELETYPE HANDLER) SIXBIT WORD INPUT g@ SIXBIT BUFFER OUTPUT 


4 DELIM 


MQ = MEANING. 
Xx FIRST NON-BLANK CHARACTER IS A DELIMITER 
T DELIM SUCCESSFUL READ OF a SIXBIT WORD 
x SUCCESSFUL WRITE OF a SIXBIT BUFFER 


OUTPUT 


ENTER 
XX 
Law 


+1 


S|XIN 


(7240) 
SJX5.x 


S]XOT 


TA 
SUXQT,*xX 


S[XOT 
S1X26 
S1X26 


1 SIXsBl 
x x 


INITIALIZE THE SIXBIT BUFFER POINTER 
INITIALIZE THE INPWT 

RETURN +1 FOR DELIMITER IS FYRST NON-BLANK CHARACTER 
ELSE BUMP TO A GOOB RETURN 

GEY THE FIRST GOOD CHARACTER 

AND PUT IT IN THE FIRST CHARACTER POSITION 
AND SAVE IT 

GEY THE SECOND CHARACTER 

PUT IT IN THE SECOND CHARACTER POSITION 
CONCATENATE THE GWARACTERS 

AND SAVE THE RESULT 

GET THE THIRD CHARACTER 

CONCATENATE THE CHARACTERS 

AND SAVE THE RESULT 

BUMP THE STORAGE BUFFER POINTER 

LOOP 


LOAD THE FIRST S{XBIT WORD 
EXIT 


SUBROUTINE TO GET FE NEXT CHARACTER, MaKe IT SIxBIT, ExIT IF A DELIMITER 


GEY THE NEXT CHARACTER 
IDENTIFY Jf 

EXIT IF [T 13 A DEKIMITER 
PERMIT LETTERS 

MAKE SIXBIY 


SET THE NEGATIVE CHARACTER COUNT 
LOAD THE NEXT WORD OF OUTPUT 
SAVE IT FOR PRINTING 

BUMP THE POINTER 

OUTPUT THE FIRST CHARACTER 
OUTPUT THE SECOND CHARACTER 


TTYNON 05/31/72 01705315 PDP-9 TIME-SWARING SYSTEM DEBUGGER PAGE 


t (MTSS TELETYPE HANDLER) sIXBIT WORD INPUY @ gIXB8I7 BUFFER OyTPUT 

019570 415572 2350 JMS S1X26 OUTPUT TWE THIRD CAARACTER 
015571 615563 2360 JMP SIX24 Loop 

2370 

015572 2389 ENTER S]X26 

015572 740040 S[ x26 XX 
015573 641606 2390 LLSC 6, GEY THE NEXT SIXBIYT CHARACTER 
015574 355754 2400 TAD (240) MAKE IT ASCI! 
049575 855755 2410 SAD (333) CHECK FOR CARRIAGE RETURN MAPPING 
015576 760215 2420 AW SCR 
019577 855756 2439 AD (335) CHECK FoR LINE FEEB MAppIQG 
015600 760212 2449 LAW SUF 
015601 115665 2450 JMS TTYOT PRINT THE CHARACTER 
015602 455363 2460 1SZ T1 ALL CHARACTERS PRINTED? 
015603 635572 2479 JMP SIX26.x NO -7 OOP 
015604 700401 2489 TSF 
015605 615604 2499 WMP eed WAIT FOR TNE TELETYPE YO SETTLE 
015606 635561 2500 JMP SIXOT,X YES ++ EXIT 

2510 * 


2520 = 


TTYNON 


05/31/72 
T 


015607 


015607 
015640 
015641 
015642 
015643 


740040 
455362 
235362 
055365 
635607 


015614 


015644 
015645 
015646 
015647 
015620 


045621 
015622 
015623 
015624 
015625 
015626 
015627 
015630 
015631 
045632 


740040 
455367 
455237 
155240 
415607 


555754 
645620 
115633 
635614 
740000 
455614 
750004 
355362 
055362 
6356144 


2530 
2540 
2550 
2560 
2570 
2580 


25990 
2600 
2610 
2620 
2630 
2640 


2650 
2660 
2670 
2680 


2699 
2700 
2710 
2720 
2730 
2740 
275) 
2760 
2770 
2780 


01305315 


FGET 


FGETS 


INTIN 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


/STITL 


ENTER 
xX 
1SZ 
Lac 
Dac 
JMP 


ENTER 
XX 
1SZ 
DZM 
DZM 
JMS 


SAD 
JmMP 
JMS 
JMP 
NOP 
1S2Z 
CEC 
Tad 
DAC 
ume 
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(MTSS TELETYPE HANDLER) MISCELLANEOUS LINE BUFFER ROUTINES 


FGET 


BPTR 
BRTR,X 
CHAR 
FGET,X 


INTIN 


COUNT 
WORDB 
WORDB +4 
FGET 


(SSPACE) 
272 
CHRID 
INTIN,X 


INTIN 
BPTR 


BPTR 
INTIN,X 


SUBROUTINE TO GET TWE FIRST REMAINING CyARACTER FROM THE LINE BUFFER 
NO --~ BUMP THE POINTER 

LOAD THE NEXT CHARACTER 

AND SaVE JT 

INITIALIZE INPUT WORD-GETTING 


COUNT THE WORD+ SUCCESSFUL OR NOT 
INITIALIZE THE TWO FIRST WORDS OF THE INPUT BUFFER 


GET THE NEXT CHARACTER 

CHECK IT FOR A SPACE 

FHROW AWAY SPACES 

IDENTIFY THE NON®SPACE 

RETYRN +4 FOR A DELIMITER 

ELSE BUMP THE RETURN FOR A NUMBER OR A LETTER 


BACK UP THE POINTER TO POINT TO THE FIRST GOOD CHARACTER 


TTYNON 


U5/31/72 
T 


015633 


015633 
015634 
015635 
015636 
017637 
015640 
015641 
015642 
915643 
915644 
012645 
015646 
015647 
015650 
0156514 
015652 
047653 
015654 
015655 


015656 
915657 
015660 


015661 
015662 
015663 
915664 


740040 
545757 
055665 
355760 
7451092 
615656 
955764 
745100 
615664 
355762 
745492 
615661 
355763 
745302 
615656 
545764 
355765 
741102 
613662 


213665 
053366 
635633 


455633 
455633 
215665 
635633 


015665 


015665 
015666 
015667 
015670 
015671 


740040 
700401 
615666 
700304 
700406 


2790 
2800 
2810 
2820 
2830 
2840 
2859 
2860 
2879 
28890 
28990 
2900 
2910 
2929 
2930 


2940 
2950 
2960 
2979 
2980 
2990 
3000 
3010 
3020 
393 

304 

3050 
3060 
3070 
3080 
3099 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 


3250 
3260 
3270 
3280 


0105415 


e®eeoeoee Boe ewe K&R Oe 


Qa 
az 
P ?) 
~~ 
o 


DLMR 


DIGIT 
LETTR 


TTYOT 


PDP-9 TIME-SHARING SYSTEM DEBUGGER 


eSTITL 


CHRID -- SUBROUTINE TO CLASSIFY 
ENTER WITH THE CHARACTER IN THE 


(MTSS TELETYPE HANDLER)? 


(MTSS TELETYPE HANDLER) 


PAGE 
MISCELLANEOUS CWARACTER“HANDLING SUBROUTINES 
MISCELLANEQUS CHARACTER*HANDLING SUBROUTINES 


EIGHT-BIT ASCII CHARACTERS, 
AC! LEAVE WITH THE EIGHT-BIT CHARACTER 


IN ACC0-17) AND THE LINK AS FOLLOWS? 


RETURN LINK MEANING 


Satie tdi! 


ae ina EE allele el Ree To od ot tai ee deen oe Se en ee 


A DELIMITER (1,E, NEITHER A DIGIT NOR A LETTER 
ELTWER AN UYPPER CASE OR a LOWER CASE LETTER 

AN OcTaL DIGIT 

A DECIMAL DIGIT (8 OR 93 


et 1 THE CHARACTER IS 
#2 0 THE CHARACTER IS 
+3 0 THE CHARACTER IS 
03 1 THE CHARACTER IS 

ENTER CHRID 

XX 

AND (377) 

Dac TTYOT SAVE 

TaD (260) AC < 

SPASSTL 

JMP DLMR 

TAD (-10) 

SPAICLL 

JMP DIGIT 

Tad (+2) 

SPAISTL 
P DIGIT 

Fad (+6) 

SNASSPA!STL 

JMP DLMR 

AND (777737) 

TAD (+33) 

SPAICML 

JMP LETTR 

LAC TTYQT 

Dac DILMTR 

JMP CHRID,X 

1$Z CHRID 

{82 CHRID 

LAG TTYOT 

JMP CHRID,X 

ENTER TTYOT 

XX 

TSF 

UMP 27h 

KSP 

TLS 


THE EIGHT*BIT ASCII CHARACTER 
0 FOR DELIMITERS 


CHARACTER IS A DELIMITER 
AC < 0 FOR OCTAL piGiTs 


CHARACTER IS AN OCTaL DIGIT 
AC < 0 FOR DECIMAL pIGITS 


CHARACTER IS A DECIMAL DIGIT 
ac <# 0 FOR DELIMITERS 


CHARACTER IS A DBLIMITER 

MAP LOWER CASE INTO UPPER CASE 

AC < 0 FOR LETTERS -~ Lsq FOR LETTERS! L#0 FOR DELIMITERS 
THE CHARACTER {S$ A LETTER 


LOAD THE DELIMITER 
SAVE IT 


RELOAD THe CHARACTER 


WAIT FOR THE TELEPRINTER TO BE FREE 
KILL-THE-QUTPUT FEATURE 
PRINT THE CHARACTER IN THE aC 


48 
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T (MTSS TELETYPE HANDLER) MISCELLANEGUS CHARACTER=-HANDLING SUBROUTINES 
015672 635665 3290 JMP TTYOT,X 
3300 
3310 
015673 3320 ENTER CRLF 
015673 740040 CRLF XX 
915674 760215 33530 LAW 215 
915675 115665 3340 JMS TTYOT 
915676 760215 3350 AW 245 
915677 415665 3360 Jms TTYOT 
015700 760212 3370 LAW 212 
045701 £15665 3380 JMS TTYOT 
915702 700401 3390 TSF 
015703 615702 3400 JmMP os | WAIT FOR YWE TTY TO SETTLE 
915704 635673 3410 JMP CRLF .X 
3420 
3430 
3440 »4GAD TURN OFF THE INSBRT1S WEAD SYMBOL 
3450 wLIST ON 


3460 2 END 


Tssnbri 05/31/72 


000036 
000037 
000002 


000004 
015705 000000 
0014777 
915706 000000 


015707 
915707 740040 
015740 055705 
0145741 235707 
015742 055706 
015743 455707 


015744 707074 


015745 235706 
919746 904777 
015747 660740 
015720 707024 


015721 455706 
015722 9777777 
015723 3735706 
015724 040037 


015725 455706 
015726 7777797 
915797 te 
015730 40001 
915731 040036 


919732 215705 
915733 707047 
815784 707004 
015735 615734 


015736 707272 
015737 797242 
015740 744100 
015741 740040 
915742 635707 


015743 015240 
915744 000337 
015745 900230 


7330 
7349 
7350 
7360 
7370 
73890 
7390 
7400 
7410 
7420 
7439 
7449 


7450 
7460 
7470 
7489 
7490 
7500 
7510 
7520 
7530 
7549 
7550 
7560 
7579 
7580 
7599 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
76890 
76990 
77090 
7710 
97720 
7730 
7740 
7750 
7769 
7770 
7780 
7790 
7800 
7810 


04705415 


DSKWC 
DSKCA 
READ 
WRITE 
CMND 
BLKMSK 
PNTR 


NCHEK 


ERRQR 


PDP-9 TIME-SWARING SYSTEM DEBUGGER PAGE 50 


SHORT DISK ROUTINE 


»STITL SHORT DISK ROUTINE 

»HEAD OD 

,EQY 36 

,EQY 37 

,EQY 2 

»EQY 4 

sOSA 

eEQU 1777 

OSA 

ENTER 

XX 

Dac CMND SAVE THE DISK COMMAND 

Ac DO.X GET THE POINTER TO TWE PARAMBTERS 

DAC PNTR 

182 DO CORRECT THE RETURN 

DLAH+10 ONLY DISK 0 AVAILA@LE 

Lac PNTR,X GET THE BLOCK NUMBER 

AND BLKMSK AND OUT THE DISK NYMaER 

AL8S 8, MULTIPLY B 799 7O MAKE IT A PHYSICAL DISK ADDRESS 
DLAl PLACE THE PHYSICAL ADDRESS INTO THE DISK ADDRESS REGISTER 
1$zZ PNTR MOvE THE POINTER TO THE RARAMETERS 

Law “1 GET A MINUS 1 70 FORM THE CORE POINTER 

Fad PNTR,X 

Dat DSKCA PLACE THE CORRECTED POINTER INTO THE DATA CHANNEL CORE ADDRESS 
192 PNTR MQVE THE POINTER TO THE LAST PARAMETER 

Law “4 PREPARE TQ COMPLEMENT A NUMBER 

anh PNTR,X 

Dac DSKWC PLACE THE TWO'S COMPLEMENT WORD COUNT IN THE DATA CHANNEL WORD COUNT 
Lac CMND GEY THE COMMAND 

DSCF LDSFX{DSCN ISSUE THE OPERATION 

oSSF SER If THE OPERATION IS DONE 

JMP 27 NQ -- WALT 


CHECK THE OPERATION AND EXIT 


DSRSe10 
pscD 


LOaD THE aC WITH THE STATUS OF THE ORBRaTION 
LOAD THE FLAGS 
SKIP JF OK 
BAD STATUS 
DO EXIT 


TSSaDT1 05/31/72 01705115 PDP-9 TIME~SHARING SYSTEM DEBUGGER PAGE 51 
D SHORT DISK ROUTINE 


019746 000215 
0145747 777777 
019750 000017 
015751 000256 
015752 000260 
015753 777540 
015754 000240 
015755 000333 
015756 000335 
919787 000377 
915760 777520 
015761 777770 
015762 777776 
915763 777772 
915764 777737 
015765 777745 


015770 7820 wVSE END 

7830 DUP 1,10 
015770 613775 7840 JMP SSTART 
915774 613775 Jp SSTART 
015772 413775 uMP SSTART 
915773 613775 JMP SSTART 
9157974 613775 MP SSTART 
015775 613775 uMP SSTART 
915776 613775 JMP SSTART 
915777 613775 MP SSTART 
014000 7850 »END SSTART 


TRANSFER ADDRESS 613775 


TSSpdT1 


13347 
14003 
14032 
14031 
14090 
14452 
14476 
14546 
4453 
4464 
6460 
414263 
14321 
14205 
14224 
14213 
14224 
6 
17747 
14391 
14404 
144%k1 
13400 
14330 
246 
13242 
12009 
425156 
337 
490 
1737 
144¢2 
17740 
2000 
14465 
14449 
449434 


05/31/72 


04405415 


4660 

200 
2200 
2220 
21430 
21450 
1520 

420 
3770 
3750 
2250 

380 
1610 
1610 
24690 


800 


7330 
4060 

530 
2450 
4300 

460 
40980 
1600 
4000 


$90 


3460 
760 
830 


1000 
770 


PDP-9 TIME-SMARING SYSTEM NEBUGGER 


53880 


2370 


$180 
3800 


3790 


6799 


4090 
2460 


4950 


3470 
810 


2080 


CROSS REFERENCE TABLE 


5960 


5270 


7060 


4100 
6740 


5340 


6200 
820 


4260 


6770 


6470 


1010 


4290 


6790 


4969 


4440 


3010 


5030 


5350 


5380 


5430 


5479 


PAGE 


52 


TSS)DT4 


37 

36 

1 
14175 
15214 
13405 
13530 
13549 
15744 
13237 
445300 
445320 
7776014 
14745 
15746 
244 
446400 
776704 
14096 
14107 
14137 
14134 
133497 
13554 
13564 
740n09 


4 
14722 
15605 
132$0 
15206 
13145 
13124 


05/31/72 


D 


COMMA 


COMTB 
cOmMXx 


comyY 
CON 
CONS 
CON2 
CONO 
CON? 
CONTX 
COR 
CPARAM 
cR 


01505315 


1170 
750 
1270 
4350 
940 
520 
5480 
5400 
5990 
3790 
820 


950 


2400 
7450 
7470 
6130 
7600 
7660 

100 

260 
3510 
2340 
3600 
3710 


4580 
6100 
6050 


460 
4160 
4180 
1200 
26140 
3959 
4740 


2390 
3830 
3870 
1600 
370 
330 
450 
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1560 

770 
1810 
4440 


1330 
2659 
4060 
4790 


5850 
4230 

900 
1660 


CROSS REFERENCE TABLE 


2090 
4470 


910 
7460 


7570 


1400 


3240 
4170 


2810 
1010 


2260 
6160 


2420 
7480 
75990 


120 


3290 
1260 


1070 


2420 
6380 


7790 


7620 


100 


3960 
6920 


1120 


2910 2959 3050 3860 
6640 6960 

7640 

120 

4710 2949 3130 3160 
1240 1480 1689 


3920 


3190 


4279 


5199 


PAGE 


4320 


53 


TssnDT1 


13154 
13145 
13173 
13242 
13267 

241 
13140 


5 
14200 
14045 
13566 


13635 
13695 
13657 
13563 
14343 
476257 
14346 
14133 
14135 
14125 
4 
14437 
15240 
15044 
14007 
13673 
40 


14526 
14553 
14563 
14642 
14365 

232 
14332 
14734 
13644 


15025 
15042 
13204 

255 
13235 
14324 
13492 
15944 
136989 
13164 
13344 

243 
14173 


O5/31/72 


04+05315 
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600 
1030 
1120 
1950 
1240 
4090 
1890 


3490 


1660 


39140 


800 
4690 
2190 
3010 
5440 


3640 


3889 
1840 


6870 


5590 
1250 
6950 
4020 


6700 


1080 


1210 
2000 


1620 
1940 


3500 


1820 


850 
4720 
2210 
4010 


3929 
6400 


6440 


4160 


11350 


1280 


22350 


3740 


3030 


900 


2240 
4050 


4030 
6520 


6540 


CROSS REFERENCE TABLE 


1330 


1400 


2699 


3780 


6620 


960 


25580 
4070 


4080 
6530 


6910 


1510 


6120 


6210 


6650 


5200 


2640 
4340 


4140 
6730 


1740 


6220 


6330 


2660 
4460 


4559 
6780 


4240 


6340 


6410 


26790 


4660 
6830 


4400 


6420 


6450 


2750 


4700 
6850 


5260 


6460 


6500 


2890 


1130 
6940 


6720 


6499 


2900 


13500 


PAGE 


6810 


6510 


2930 


1750 


54 


TSSpbt2 


05/31/72 
D 
ocrTF 2590 
OWMP 840 
ONE 1440 
OPTB 4860 
OR 4000 
oSeT 4170 
OST 1280 
P6 4420 
P60CT 4970 
P67 4930 
PAT 4730 
PATO 4760 
PATL 4820 
pC 3180 
PDEX 3510 
PDEC 3430 
PDX 3720 
PERIOD 340 
PLU 900 
PLUS 310 
POINT 350 
PPR 6200 
PPR4 6330 
PPR4 6390 
PPRL 6500 
PPT 690 
pTp 710 
PTR 700 
RECOV 470 
REG 2800 
REG4 2920 
REG2 2700 
REGF 2530 
REG} 3060 
RGGL 2640 
REGN 3290 
REGS 6010 
REGT 3100 
RJS4 2300 
RJS2 2220 
RJS3 2360 
RJS4 2450 
RWUS 2170 
RS1 4550 
RSAVE 4510 
SAva 2440 
SAVE 2390 
SC 3240 
SCOLON 380 
SCOUNT 1930 
SEA 6650 
SEAL 6810 


04705315 


2550 

390 
1260 
4610 
1590 
1220 
1210 
4480 
4999 
3280 

180 
1850 
1780 
4680 
3460 
2640 
3660 

350 

380 
1550 

460 
6070 
6550 
6250 
6540 
6060 


6080 


360 
2880 
2620 
2650 
3020 
2680 
2560 
2740 
2540 
2210 
2290 
2260 
2410 

780 
4600 
4610 
2410 

300 
4750 

930 
2770 

580 
6760 
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2320 
860 
1320 


1370 
4230 
4640 


4950 


5100 
3740 


960 


3720 
6090 


2760 
3040 


4900 
3290 
2350 


2340 


4940 
6150 


5530 
1790 
3610 


CROSS REFERENCE TABLE 


1650 


1420 
2040 


3220 


5910 


1990 


1550 


1460 
6320 


2800 


5499 


2490 


5520 


3720 


2830 


3250 


5920 5930 598) 


2990 


3730 3840 
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D CROSS REFERENCE TABLE 
15053 SEA2 6840 6800 
15044 SEAS 6770 6690 6740 
15054 SEAL 6850 6950 
15065  SEAX 6940 6890 
13457 SFpa 3060 3210 
13506 SFDS 3310 31440 
13470 SFp4 3160 3360 
13472 SFD4A 3199 3330 
13463 sFp5 3100 3200 
13503 SFDé 3270 2960 
13424 SFL 2790 2930 
13456 SFX 2910 2840 2880 
14137 SIX 2040 280 

257 SLASH 360 4360 
13440 SPac 4270 4070 4300 4370 4650 

240 SPACE 250 440 4150 1430 1770 2070 2690 
134634 SPCOL 4340 3910 4380 2840 
13336 §PYR 2110 1910 2740 3590 3680 3690 3810 3830 
15073 st 6990 6660 4860 

252 SsTarR 300 1570 
43775 START 640 7840 7840 7849 7840 7840 7840 7840 7840 7850 
14340 sts 3270 4800 5650 5700 
14191 SYM 1890 220 
13271 SYMB 4900 620 2100 
13396  $YMB2 2020 4970 
13334 SYMB3 2090 2040 

42 SYMBX 1889 1920 1960 1986 1990 2030 2050 2090 2760 2790 2890 2910 2920 


30920 3080 3520 3570 3610 3640 3670 3680 3700 3760 
15497 SYmF 2690 2360 


13276 SYML 1950 2060 
13277 SYML1 1960 2000 
21 SYMN 7040 1930 3600 7060 
11624 SYMST 7100 2110 3580 
17735 SYSDEV 530 
15363 T T4 560 1280 4400 1710 1810 1990 2050 2080 2090 2110 2120 2130 2290 
2460 
15364 7 T2 570 1180 4260 1489 
15346 tT ING 780 930 1020 1050 
15404 T IN4 840 
15322 Y  INh 740 990 1010 
120 y STD 480 490 
15364 Tt BEND 540 860 
15362 7 BPTR 550 560 570 620 630 759 850 880 900 950 1900 1040 2599 
2600 2760 2770 
15365 T CHAR 580 4420 1550 2060 2610 
15673 T CRLF 3320 4220 5330 980 3410 
15656 T DLMR 3130 2980 3070 
15607 T FGET 2580 430 4590 1210 1530 2200 2620 2680 
15534 T SI]X2 2030 21440 
15552 T SIx5 2190 2930 2060 2100 2250 
15550 T SIX9 2160 2220 
45200 oe 1730 710 740 2710 2720 3040 3210 3449 3489 3539 4620 4639 789 


TSSUUTL 


15443 
15421 
192704 


13702 


13703 
152704 
15205 
17500 
17502 
15241 
45633 
15367 
15664 
13366 
15643 
14363 
15370 
15634 
15662 
154355 
15464 
15479 
15446 
15497 
15434 
45503 

5533 
12288 
646000 

15037 

150¢2 

14647 

15563 

455492 

15526 

15564 

45665 


45207 
45237 


147914 
14510 
14479 
177?7 
14636 
14354 
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TACHAR 
TALINE 
T2 


TS 


T4 

T5 

T6 
TAPIN 
TAPOT 
TBYUFFR 
TCHRID 
TCOUNT 
TOIGIT 
TOLMTR 
TFGET9 
ut ig 
TINLIN 
TINTIN 
TLETTR 
TNUM20 
TNUM26 
TNUM27 
TNUM28 
TNUM29 
TNUMIN 
TOCT42 
TOCT44 
TOCTOT 
TP, 
TPR 
TPR 
TRA 
TS1X24 
TS1X26 
TSIXIN 
TSIXOT 
TTTYOT 


TVAL 
TWORDB 


D 


1000 
980 
1749 


1750 


1760 
1770 
1780 

450 

460 

490 
2930 

600 
3179 

590 
2620 
3520 

720 
2640 
3180 
4210 
1460 
4530 
1590 
4600 
1179 
4670 
4750 
1669 

730 
6560 
6570 
5260 
2300 
2580 
1970 
2280 
3240 


1800 
479 


5899 
4450 
4390 

480 
5210 
3440 


01705315 
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2160 
5050 


799 
5020 
2000 
43350 
2860 
2930 


940 
1220 
B40 
3040 
1490 


3410 
960 
2000 


1200 


2600 


2340 
720 
679 

3260 

2430 

4020 
800 

2820 

2660 

5290 


5120 


CROSS REFERENCE TABLE 


2220 
5110 


26990 
5040 
2060 
4540 
2900 
1410 


1540 
890 


920 
4760 
2720 


1240 


4010 


2350 
799 
720 

3500 

2959 


810 
2850 
2670 
5760 


2570 
5150 


2820 
5410 
2180 
4600 
2940 
1460 


2210 
4310 


1140 
4770 
2740 


1500 


4949 


2470 
2170 

849 
3700 
3130 


1959 
6560 


5800 


2680 
5170 


2980 
5420 
2280 
5000 
3010 
1530 


2740 
4430 


1760 


2780 


1560 


4989 


2589 

899 
3730 
3190 


2020 
1310 


5870 


3670 
5370 


2999 


5450 


2310 
5060 
3050 
1540 


3150 
760 


6670 


1580 


849 


3900 
4310 
4290 
3290 


2190 
1330 


5940 


3770 
5480 


3220 


2360 


3150 
1630 


3170 
2650 


770 


1610 


899 


6040 
4430 
4360 
3349 


2520 
13550 


5950 


3999 
5500 
3270 
2380 


3310 


3180 


3140 


1620 


3280 


2010 
5080 
4479 
3360 


2420 
1410 


5970 


4040 


4030 
2810 


3340 


3200 


4310 


2020 
2300 
4470 
3380 


2449 
1510 


4560 


4080 
2850 


4430 


2170 
2320 
4470 


2469 
1999 


4589 


4529 


3070 


1859 


2500 
4769 


248 
1600 
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4570 


3200 


4780 


2639 
1989 
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D CROSS REFERENCE TABLE 


14363 wT 3510 3450 3480 6390 


TssnoTi 05/31/72 01405315 PpP-9 TIME-SHARING SYSTEM DEBUGGER PAGE 59 
D UNDEFINED SYMBOLS 


ocrT2 1790 
PURCOD 430 610 


TSSvDT1 05/31/72 
D 

CHAR 4380 
CHROT 1540 
COUNT 4460 
CRLF 1300 
DEF 7079 
DeLIM 4420 
EMESS 4759 
ENTER 920 
FORMAT 1069 
LINE 11090 
LOOP 969 
MESS 4620 
MESSR 4520 
NEG 1010 

MESS 4670 
ocT 4890 
ocT2 1840 
OBA 1500 
START 1100 
WORD 1149 
WORD1 1180 
WORD2 4220 


044505315 


2070 
4220 
7410 
7230 

660 
2070 
4970 
3320 

999 

730 
2000 
5480 
2070 
2070 

950 


580 
2600 
2070 
1350 


640 
700 
2020 
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840 
5330 
7120 
7240 
1490 

840 

720 
7440 
1240 


2040 
6540 
670 
670 
2800 


4040 
4940 
1560 


720 
1950 
2190 


MACRO CROSS REFERENCE TABLE 


890 


7130 
7250 
920 
890 
1170 


1620 


2930 
6950 
720 
720 
2970 


4980 
840 
1570 


790 
2320 
2420 


4310 


7140 
7260 
1140 
4310 
1660 


2230 
3200 
840 


840 
3470 


3280 
890 
1580 


2170 
2440 


4430 


7150 
7270 
1760 
4430 


1970 
2690 
3240 

890 


899 
4220 


4310 
1590 


2580 


7160 
6670 
2190 
6120 

830 
4310 


4310 
6430 


4430 
1600 


39060 


7170 


2280 
6220 
2220 


4430 
4430 


1610 
6040 


7180 


2380 
6340 
2680 


5080 
5080 


7190 


2580 
6420 
3770 


7200 


2640 
6460 
4080 


7210 


2930 
6499 
4600 
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3240 
6510 
5050 
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SHteF ol agsGeGoHaHHHsatsesaevavetesaus 
PHCSHetaPedeGeHOHEHSEEOHSEQEORHEEEE ERS 


es ae 
+» PDPwo MIN] TIME-SHARING SYSTEM ae 
oz) DTSS;BASQ as 
ee MTSS:B06 ae 
oe ae 


SOSH OlageHeHEeHHeeHesseeQevacaetetens 
FEHOTHTHEOHEHTOEEEHEEHOEOERERHCEREO ROS 
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100 »>TITLE PDP-9 BASIC INTERPRETER 
110 NAME BASO 


BaSa 05/31/72 014505415 PDP-9 BASIC INTERPRETER PAGE 2 


DEFINITIONS 
120 eSTITL «DEFINITIONS 
130 « 
sao ® DEFINITION ~~ PSEUDO QpS 
450 * 
et RET ,OPQEF JMPe20600 RETURN -« JMP ##,X 
470 bg 
480 ) DEPINITION <= pROGRAM GONSTANTS 
990 * 
300 eHGAD = «6S 8 FoR STORAGE 
000001 210 UNIT »EQU 1 ARITHMETIC PRECISION 
220 * 
230 a DEFINITION ~~ AUTO INDEX REGISTERS 
240 * 
250 .WBaD) =O ? FOR TTY 
000040 260 TTYX ,EOU 10 ¥Reo USED FOR TTY f76 
000041 270 CHRX »€QU 14 XR=i GLOBAL INPUT POINTER 
009047 280 S@uF ,6QU 17 XR-7 USED FOR SOURBE BUFFER POINTER 
290 »MGAD 0,P,1,7 
000042 300 x BQN 12 LOCAL 
000043 310 Y ,EQY 13 LOCAL 
000044 320 z »€AY 14 LOCAL 
330 * 
eh * DEFINITION == USEFUL MACROS 
330 * 
$60 59S ,OBFINT SUBTRACT NE ERoM $TQRAGE 
370 CLG C(AC) §# 777777 
380 rad #4 CCAC) Be CEMEM) of 
390 pac #4 C(MEM) 3@ CCAC) 
400 »ENDM 808 
440 @ 
420 t) PROGRAM ORIGIN 
430 * 
440 * »kOC 100 
0139777 450 LOC 16000°4 
915777 613716 460 JP SUP A CONVENJENT RESTART LOCATION 
011554 470 LOC 16000°4227 


480 "MEAD T Y FOR TTy 


BAS) 


011581 
911552 
911583 
011564 
911555 


05/31/72 
tT 


000000 
700404 
614552 
700406 
631554 


490 
500 
510 
520 
530 
540 
550 
560 
570 
560 
590 
600 


610 
620 
630 
640 
650 
660 
670 


01+05415 


POP-9 BASIC INTERPRETER PAGE 
TTY PRINT ROUTINE -- PRINT 

SSTITL TTY PRINT ROUTINE w- PRINT 

THIS ROUTINE PRINTS A SINGLE CHARACTER TO THE TTY, 

ENTER WITH CHARACTER IN RAC. 

DEFINITION -~ 'tpRINT! -~ PRINT CHARACTER MACRO 

eDEFIN 


JMS TSPRINT CALL THE PRINT ROUTINE 
,ENDM = PRINT 


TSPRINT 

0 

TSF ane 

JM? et » PRINT THE CHARACTER WHEN THE TTY 18 READY 
TL$ aan 

RET PRINT RETURN 


BaSo 
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tT 


811556 000000 
811557 211556 
Bii5e0 g40os0 
11561 233556 
011562 
911562 §51747 
041863 614567 


011564 
011565 #220010 
911566 611562 


014567 
011567 2147135 
014570 
911571 620010 


1000 


04505115 


Zeeeoewxwess 8 


ESS 


MSX 
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PAGE 


MESSAGE PRINTING ROUTINE -* MESS 
SSTITL MESSAGE PRINTING ROUTINE -* MESS 


THIS ROUTINE J8 CALLED TO PRINT A MESSAGE QN THE TTY, 


ENTER WITH THE MESSAGE FOLLOWING THE CALL, 


THE GND OF THE 


MESSAGE IS FLAGGED WITH A WORD OF =1, 
DEFINITION == 'MBS8! =~ MESSAGE MACRO 


TSMESS 

\#4\ 

"#21, 'CRLF 4 
15,12 


MESS 


MESS 
TTYX 
MESS ,Xx 


MONE 
MSX 


TTYX «Xx 
MSA 


FULL 
TTYX.X 


<€MESSAGED 
CALL THE MESSAGE ROUTING 


GIVE CARRIAGE RETURN/LINB=FEED IF WANTED 
FLAg THE END OF Tu@ MESSAGE 


ann 
» BET UP POINTER TQ MESSAGE 


oan 


CHECK FOR GND OF MBSSaGE (E0M) FLAG 
EOM = RETURN 

PRINT THE CHARACTER 

FETCH THE NEXT CHARACTER 

AND LOOP 


SEND A FILL 
TO DELAY A LITTLE 
THEN RETURN 


BaSo 


011572 
0115973 
011574 
911575 
§11576 
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000000 
#14714 
054716 
214745 
040041 


011577 


911597 
911600 
911601 


911602 
011603 
011604 
011605 

11696 

11667 
911640 
911641 
041642 
011643 
911644 
§1i645 


700304 
611577 
700342 


914743 
$55759 
611643 
§5$754 
61166 

§5375 

614704 
060041 
$55753 
611671 
454746 
611877 


01305815 


Beeeoene_ ee & & & 


EAD 


PDP-9 BASIC INTERPRETER PAGE 
TTY READ ROUTINE -- READ 

«STITL TTY READ ROUTINE -~ READ 

TH}S ROUTINE IS CALLED TO READ A LINE FROM WE TTY, 


1T pLACES THE LINE ONE CHARACTER TQ A WORD IN TSIBUF, AFTER 
PERFORMING SEVERAL ELEMENTARY EDITING OPERATIONS! 


CYRL =X DELETE THE LINE 
BACKARROW DELETE THE PRECEEDING CHARACTER 


0 

Lac IBLN GET THE BUFFER LENBTH 

pac IBCNT SAVE FOR COUNTING 

Lad 1BFRT G&T INITIAL POINTER 

Dac CHRX SAVE IN LOCAL AUTO INDEX REGISTER 


READ THE ACTUAL CHARACTER 


KSF aee 
JMP a | * READ THE CHARACTER 
KRB ane 


CHECK FoR AN EDITING CWARASTHR 


AND FULL MASK OFF PARITY @IT 

Sad (30) CHECK FOR CTRL=Xx 

JMP CTRLX YES -- DELETE THE LING 
8aD (137) CHECK FOR BACKARROW 

JMP BACK YES -= BACK UP 

Sad (5) CHECK FOR CTRL-E 

JMe WRU TELL MIM WHO WE ARE 

Dac CHRX.X SAVE THE CHARACTER IN THE BUPFER 
Sad (15) SEE IF THE END OF LINE 
Me EOL YE®8 =~ CLEAN US UP 

182 IBCNT COUNT THE NEW CHARACTER 


JMP RDA 1F MOR@ ROOM «= GE} ANOTMWER GHARACTER 
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tT TTY READ ROUTINE -* READ 

4380 ,EWECT 

4390 * 

4400 ) LINE TOO LONG »~ GIVE MESSAGE AND DELETE If 

a 4410 a 

011646 4141556 1420 ums TSMESS CAN'T USE THE MESSAGE MACRO BECAUSE OF CR/LF 
811647 000045 1430 »DATA 15:12 CR/LF 
911620 000012 
011621 900314 1440 TEXT \NLINE TOO LONG -- \ 


611622 000341 
811623 000346 
911694 000305 
911625 0900240 
911626 000324 
811627 000317 
811630 000317 
911631 000240 
911632 900314 
811633 0003147 
911634 000316 
011635 000307 
911636 000240 
611637 900255 
11640 6000255 
011641 900240 
911642 977777 4450 977777 END FLAG 
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T TTY READ ROUTINE -- READ 
1460 »EVECT 
4470 « 
1480 * DELETE LINE RgUTINE 
1490 & 
011643 1500 CTRLX re 
011643 4510 MESS < DELETED>,CRLF 
911657 6114573 4520 JMP READel TRY AGAIN 
4530 * 
1540 * BACKARROW ROUTINE 
4550 « 
014660 4560 BACK ak 
911660 211717 4570 Lac MONE GET 4 
011661 840041 4580 TaD CHRX AND G&T THE POINTER LESS ONE IN RAC 
911662 555754 1590 SAD (IBUF <2) SEE IF TOO FAR 
011663 641643 465 JMP CTRLX IF $0 ~- SAY DELETED 
911664 040011 1648 pac CHRX RESTORE POINTER 
011665 211717 4620 Lac MONE eee 
911666 354716 4630 Tad 1BCNT « DEGREMEN® THE GOUNTER BY ONE 
011667 054716 1640 pac 1OCNT ane 
011670 611577 oe JMP RDA AND READ ANOTHER CHARACTER 
4 * 
4670 . END OF LINE ROUTINE 
4680 * 
014671 4690 EQL aa 
011671 215755 4700 Lac (42) SEND A LINE=FEED 
011672 1710 PRINT FOR GOOD MBASURE 
911673 060011 4720 pac CHRX»X SAVE JIN BUFFER 
011674 211717 1730 Lag MONE GET AN EOQM FLAG 
911675 060011 1740 Dac CHRX,X SAVE IN BUFFER 
911676 21147143 1750 Lac 1BFPT SEY UR A POINTER 
011677 0400114 4760 Bac CHRX FOR THE CALLER 
011700 631572 Ee RET READ AND R&TURN 
478 * 
4790 WHO ARE YQU? ROUTINE 
4800 « 
014701 4810 WRY ees 


014701 1820 MESS <BASIC>,CRLF 
011742 611577 4830 JMP RDA 


Basn 05/31/72 


T 


811743 900177 
000100 
pit7s4 777677 
11745 014747 
0117146 
911747 777777 
014720 


1840 
1850 
1860 
1870 
1680 
1890 
1900 
1910 
1920 
1930 
1949 


014405415 


PDP=9 BASIC INTERPRETER 

TTY READ ROUTINE ~~ READ 
,EVBCY 
INPUT BUFFER AND STORAGE 


477 ASCII FILL/APARITY MaSK 

ee QYy 190 LENGTM OF VISIBLE BUFFER 
»DATA ~[BN=4 LENGTH TO ENITIALIZE COUNTER 
»DATA IBUF ef INITIAL POINTER TO THE BUFFER 
»BLQCK 14 COUNTER 

777777 A MINUS ONE 

»,BLOCK IBNe2 INPUT BUFFAR 


PAGE 


8 


BaSo 


012022 
012023 
012024 
912095 
012026 
912027 
012030 
012031 


05/31/72 
ad 


000000 
220011 
$54747 
615554 
555756 
612023 
052032 
632022 


012082 


01405315 


os ¢es &¢ & ® 


PDP-9 BASIC INTERPRETER PAGE 
TTY READ =~ CHAR 
SSTITL TTY READ -- CHAR 


THIS ROUTINE IS CALLED Tq RICK Up A CHARACTER FROM 
THE SOURCE LINE, 


DEFINITION ~~ 'CMAR! += GET CHARACTER MACRO 


,DEFIN 

JMS TSCHAR CALL THE SUBROUTINE 
»ENDM CHAR 

TSCHAR 

0 

Lac CHRy» xX GET THE N&xT CHARACTER 
SaD MONE SEG IF EOM CHARACTER 
JmP ESPARSE SHOULDN'T GET THERE 
Sad (040) SE® IF BLANK 

JMP CMAReL IGNORE IF SO 

pac LOHAR SAVE IN CASE WE LOOK AGAIN 
RET CHAR AND RETURN 


DEFINITION ~~ 'LCHAR! -~ GET PREVIOUS CHARACTER MACRO 


»DEFIN 

Lac TSLCHAR GET THE CHARACTER 
»ENDM LCHAR 

~BLQCK 14 LAST CHARACTER READ 


BaSo 


012033 
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A 


000000 


0120354 


012035 
912036 
012037 
012040 
912041 
612042 
912043 
6120644 
912045 
612046 
012047 
012050 
912054 
912052 


052053 
777720 
352053 
741100 
632033 
052053 
777766 
352053 
740100 
6320933 
212033 
040012 
212053 
620012 


012053 
012054 


2230 
2240 
2250 
2260 
2270 
2280 
2299 
2300 
23510 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2590 
2400 
2410 
2420 
2430 
2440 
2450 


049054315 


TEM 
TEM 


PDP-9 BASIC INTERPRETER 


sSTUTL 


TTY READ -- GEY LINE NUMBER 


TTY READ -~ GET LINE NUMBER 


THIS SUBRQUTINE 1S CALLED @Y THE FILE BUILDING 
ROUTINE TO ASSEMBLE A LINE NUMBER 


BLOCK 
+ BLOCK 


GET A CHARACTER 

SAME IT 

eee 

* SEE JF LESS THAN A NUMBER 
rx y 2 

IF $O #- RETURN 

SAVE IT 

tan 

* SEG IF GREATER THAN A DIGIT 
eee 

IF $O *- RETURN 

FIX UP THE RETURN 

TO RETURN 70 CALLER+2 

GET THE DIGIT 

AND RETURN 


PAGE 


10 


BaSn 


012055 
01-2056 
012057 
912060 
912061 
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000000 
411572 
112038 
612126 
052054 


012062 


912062 
912063 
812064 
912065 
012066 
012067 
912070 
012071 
012072 
012073 


112033 
612074 
744000 
212054 
653122 
000012 
641002 
312053 
052054 
612062 


012074 


012074 
012075 
912076 
912077 
012100 
gigio4 

12102 
912103 


212054 
060017 
220017 
200017 
052134 


12532 
612105 


012104 
012104 
012105 


912105 
012106 
912107 
012190 


640711 
052054 
655757 
612120 


012141 


012112 
012143 
01ce144 
912145 
912116 


555753 
612117 
312054 
060017 
612104 


2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2629 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2759 
2760 
2770 
27890 
2790 
2800 
2810 
2820 
2830 
2649 
2859 
2860 
2870 
2880 
2899 
2900 
2910 


014+05%15 


INE 


LINA 


LING 


LINC 
LIND 
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TTY READ -- SOURCE FILE BUILDING ROUTINE 
»STITL TTy READ -- SOURCE FILE BUILDING ROUTINE 


THIS ROUTINE IS USED TO BYILD THE PACKED SOYRCE FILE 
FROM INPUT FROM THE TERMINAL 


i) 

JMS READ READ JN THE LINE 

JMS GNUM GET THE FIRST DIGIT OF LINE NUMBER 
JMP LINX END IF DIDN'T BEGIN WITH DIGIT 
Dac TEML SAVE THE FIRST DIGET 

jms GNUM GET THE NEXT DIGIT 

JMP LINB NOT A DIGIT -- WE AAVE THE NUMBER 
CLL ane 

LAC TEM, ® MULTIPLY PREVIOUS NUMBER 

MUL « BY 10 

410, aae 

LACQ Hae 

ADD TEM & AND ADD THE NEW BIGIT 

Dac TEM, eee 

JMP LINA LOOP 


SET UP TO CONDENSE THE LINE 


LAC TEM4 GEY THE LINE NUMBER 

Bac SBUF , X AND SAVE IN THE BUFFER 

Lac SBUF ,X MAKE A PLACE FOR TRE COUNT 
Lac SBUF GET POINTER TO COUNT 

DAC BSBF SAVE IT 

DZM BSBF.X FERO JT OUT 

Lac LCHAR GET THE LAST CHARACTER READ 
JMP LIND AND ENTER LOOP 

egy 

CHAR GET THE NEXT CHARACTER 

09 

ALS 14 PUT THE FIRST CHARACTER IN THE VPPERHALF 
Dac TEMY SAVE IT 

SAD (015000) CHECK FOR EOL 

JMP LINF oy YES 

CHAR GET THE NEXT CHARACTER 

Sad (45) SEE }F EOL 

MP LINE YES 

ADD TEMZ ADD IN FIRST CHARAPTER 

pac SBUF ,X SAVE IT IN BUFFER 


JMP LINC LOOP 
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T 


012147 


012147 
012120 
012121 
912122 
012123 
012124 
912125 


312054 
060017 
212134 
740001 
300017 
072134 
612056 


012126 


012126 
912127 
912130 
812131 
912132 
812133 
912134 


200017 
§55760 
€32055 
460017 
460047 
632055 
000000 


2920 
2930 
2940 
2950 
2969 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 


014905815 


be ENX 


BSBF 


PDP-9 BASIC INTERPRETER PAGE 
TTY READ ~- SOURCE FILE BUILDING ROUTINE 

»EJECT 

CLEAN Up AT END OF LINE 


ADD TEMy ADD IN THE LAST CHARACTER 


Dac SBUF ,X SAVE IN THE BUFFER 

LAC BSBF GET POINTER TO BEGENNING OF LINE 
CMA COMPUTE THE LENGTH OF THE LINE 
ADD SBUF FROM THE POINTERS 

Dac BSBF,X SAVE IT IN THE BUFFER 

gMP LINE os AND |,00P 

see 

LAE SBUF eon 

Sad (SBFR-1) « SEE IF JUST A COMMAND 

RET LINE eae 

Dz SBUF.X oe 

DZM SBUF, X e sET UP A NULL LIME 

RET LINE one 


»DATA 0 POINTER TO BEGINNING OF LINE 


12 
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012135 
912136 
912137 
612140 
012141 
012142 
012143 
912144 
912145 
912146 
912147 


05/31/72 
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000000 
750004 
741100 
612473 
2200147 
052240 
220017 
744200 
632135 
214715 
040011 


012150 


012150 
912151 
912162 
012153 
912154 
012155 
012156 
912157 
012160 
012161 
012162 
012163 


220017 
640511 
511713 
060014 
555753 
612164 
640611 
311743 
060044 
§55753 
612164 
612150 


012164 


012164 
912165 
012166 
912167 
912170 
912471 
912172 


777777 
060044 
2147345 
040041 
212155 
040042 
20012 


3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
33520 
3330 
3340 
3550 
3360 
337 

338 

3390 
3400 
3410 
3420 
3430 
3449 
3450 
3460 
3470 
3480 
3490 
3500 
3510 


01°05315 


Z2ee#*e#s 


LINE 


NLNA 


NiLNX 
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2OTIUT. 


PAGE 


TTY READ -- RE-EXPAND A LINE 


TTY READ -- RE-EXPAND A LINE 


THIS ROUTINE IS CALLED BY THE PARSER To RE-EXPAND 
A SOURCE LINE FROM THE BUFFER, 


0 
LAS 
SPA 
JMP 
LAC 
Dac 
ac 
NA 
RET 
LAC 
DAC 


MON 
SBUF ,X 
LNUM 

SBUF ,X 


NINE 
IBFPT 
CHRX 


ate 

« SEE JF THE SWITCHES INDICATE A CHANGE OF HEART 
eee 

GET THE LINE NUMBER 

SAVE IT 

IGNORE THE LINE SIZE 

See IF THERE 13 ONE 

NO 

INITIALIZE THE CHARACTER BUFFER POINTER 

FOR THE EXPANSION 


EXPAND A LINE FROM TWE SOYRCE ByFFER INTO TWE CHARACTER ByFFER 


ere 
Lac 
LRS 
AND 
BAC 
SaD 
JMP 
Li3 


eae 

*# GET THE FIRST CHARACTER OF THE WORD 
» WITHOUT WHAT WAS IN THE LINK 

aee 

SE@ IF EOL 

yes 

GEF THE SECOND CHARACTER 

MASK TO JUST THE CAARACTER 


SAVE |T 
SEB JF EOL 
YES 


FLAG THE EOL 

FOR ALL TO KNOW 
REINITIALIZE THE POINTER 
FOR THE SCAN TO USE 

eee 

#NORMAL REFURN 


eae 


13 
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012173 
012173 


912224 
012225 
012226 
912227 
1225 
1223 
912232 
912233 
912234 
912235 
012236 
912237 


215760 
040017 
112055 
a1 7ee 
4 
PETE 
§55761 
644220 
555762 
613244 
703001 
612173 


012240 
012241 


3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
364 

365 

3660 
36790 
3680 
3690 
3700 
3710 
3720 
3730 


01405515 


Zeee#8#t & 


LNUM 
S8FR 


PDP-9 BASIC INTERPRETER PAGE 14 
MON] TOR 

~STITL MONITOR 

THIS ROUTINE FUNCTIONS AS THE MONITOR FoR THE BASIC 

INTERPRETER, IT EITWER BEGINS THE BUILDING OF 

A FILE OR ACCEPTS A COMMAND, 


MESS <ENTER FILE OR COMMAND?, CREF 


Lac (SBFR=4) POINTER TO THE SOURCE BUFFER 
Dac SBUF SAVE FOR SCAN 

JMS LINE BYILD THE PROGRAM 

LAC (SBFRe4) 

Dac SBUF REINITIALIZE THE BWFFER POINTER 
Lac LOHAR GET THE COMMAND 

SaD (422) 

JMP PSPARSE RUN 

8,40 (114) 

JMP LIST LST 

705001 cL te ALT FOR NOW 

JMP MON BUT af ABLE TO START UP AGAIN 


+BLQOCK 1 LINE NUMBER 
~BLOCK 1000 SOWRCE BUFFER 


U5/31/72 
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6152414 
015241 112155 
915242 612173 
015243 212240 
013244 414375 
913245 760040 

013246 

0132487 

013247 

013250 
0132514 855753 
015252 643254 
915253 613247 

013254 
0152684 760012 

013255 
015256 6132414 


01505315 


List 


LISA 


1 SX 


PDP-~9 BASIC INTERPRETER 


oor ETL 


LIST A SOURCE FILE 


LIST A SOURCE FILE 


THIS ROUTINE IS USED To LIST THE SOURCE FILE 


JMS 
JMP 
Lac 
JMS 
LAW 
PRINT 
ae | 
CHAR 
PRINT 
SAD 
JMP 
JMP 
oot 
AW 
PRINT 
JMP 
sAGAD 


NLINE 
MQN 
LNUM 
ISPRT 
040 


(Q15) 
LISx 
LISA 
012 


LIST 


GET THE NEXT LINE 
REACHED TWE END 

GET THE LINE NUMBER 
PRINT IT 

A SPACE 

PRINT IT 


GET THE NEXT CHARACTER 
PRINT IT 

SEe IF EOL 

YES 

NQ -- 4L00P 


GIVE THE LINE FEED 
TO CLEAN US UP 
AND |,00P 


PAGE 
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3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4430 
4140 
41450 
41460 
4170 
4180 
41499 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 


01405815 


Deere eevee tee & 


VSH 


“Be ee ee fe 


PDP-9 BASIC INTERPRETER 
STACK MANAGEMENT -- MACROS 
»STITL STACK MANAGEMENT -- MACROS 
THIS MACRO JS USED To PUSH THE CONTENTS oF 
R-AC ONTO ONE OF THE THREE STACKS IN THIS 
PROGRAM, THE STACK ARE? 
R RECURSION CONTROL STACK 
0 OPERATOR STACK 
V VARIABLE STACK 
DEFINITION -= 'PUSH! »- PUSH MACRO 
»DEFIN <LETTER OF STACKD 
wMS #1SPUSH CALL THE PROPER SUBROUTINE 
»ENDM PUSH 
THIS MACRO IS USED TO POP THE TOP DATUM FROM 
ONE OF THE THREE STACKS INYO R=AC, IT USES 
THE SAME SYMBOLS AS 'PUSH', 
DEFINITION ow PORT ww POP MACRO 
,DEFIN CLETTER OF STACK> 
ums #1SPOP CALL THE PROPER SUBROUTINE 
.ENDM POP 


DEFINITION «~ tpOpV? =~ pOp VARIABLE AND DEREFERENCE 


DGFIN 

PoP V GET THE POINTER TO THE DATUM 
Dat TEM SaVe JT TEMPORARILY 

Lac TEM,x GET THE DATUM 


»ENDM POPYV 


PAGE 
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STACK MANAGEMENT -- PUSH 

4290 »STITL STACK MANAGEMENT -- PUSH 

4300 6 

4310 * THIS SUBRQUTINE PUSHES THE DATUM SAVED IN $DATUM 

4320 * ONTO THE STACK WHOSE POINTERS ARE AT CAC)#4 ON 

4330 a ENTRANCE, THE FORMAT OF THIS POINTER BLOCK FOR 

4340 * EACH OF THE STACKS IS: 

4350 * 

4360 « 0 CURRENT STACK POINTER 

4370 r { POINTER TO BOTTOM OF STACK 

4380 ® 2 “SIZE-1 (ONE'S COMPLEMENT OF SIZE) 

4390 * 

4400 * gPUSH 

4440 « 
015257 900000 4420 PUSH 0 
915260 040012 4430 Dac xX SAVE POINTER TO STACK DESCRIPTION 
915261 040013 4440 pac Y ALSO FOR UPDATING POINTER 
015262 220012 4450 Lac X,X one 
913263 040014 4460 pac z » SAVE STACK POINTER AND 
015264 740001 4470 CMA «» COMPUTE AMOUNT OF STACK IN USE 
015265 360012 4480 TaD x,x en 
915266 560012 4490 SAD X,X COMPARE WITH THE S176 
915267 615570 4500 ume ESSOVF STACK OVERFLOW -2 EXPRESSION TOO COMPLICATED 
615270 213315 4510 Lac DATUM GET THE DATUM TO BE PUSHED 
815271 060014 4520 pac ZX PUSH 
915272 460013 4530 182 Y,X INCREMENT THE REAL POINTER 
9135273 633257 4540 Re? PUSH RETURN 


915274 740040 4550 HLT SHOULDN'T GET HERE 


BaSo 05/31/72 01¥05845 PDP-9 BASIC INTERPRETER PAGE 


STACK MANAGEMENT -- POP 


4560 »STITL STACK MANAGEMENT -~ POP 
4570 * 
4580 . THIS SUBROUTINE POPS THE DATUM FROM THE TOP OF THE 
4590 * STACK WHOSE DESCRIPTION BLOCK IS aT C(AC)*% ON ENTRANCE, 
4600 & THIS DESCRIPTION BLOCK JS THE SAME AS THE ONE USED BY PUSH, 
4610 * 
4620 * $POP 
4630 * 
015275 0900000 4640 POP 0 
015276 040012 4650 DAC x SAVE POINTER TO DESCRIPTION BLOCK 
915277 040013 4660 pac Y ALSO FOR UPDATING POINTER 
815300 220012 4670 Lac XyX GET POINTER TO STACK 
913301 053315 4689 Dac DATUM SAVE TEMPORARILY 
015302 220012 4690 Lac Ky Xx ase 
015303 740004 4709 CMA * COMPUTE *AMOUNT IN USE 
013304 353315 4710 rad DATUM oom 
915305 553344 4720 SAD MTWO SEG IF WE WERE AT THE BOTTOM 
915306 615554 4730 JMP ESPARSE WE'VE BLOWN IT SOMEWWERE 
015307 777777 4740 AW -1 ove 
Q15340 353315 4750 Tad DATUM | * BECREMENT REAL POINTER 
015341 060013 4760 pac Y»Xx ane 
815392 233315 4770 Lac DATUM, X GET THE DATUM 
913343 633275 4780 RET POP AND RETURN 
4790 * 
4800 * STORAGE FOR $PUSW AND sPoP 
4810 . 
915344 777776 4820 MTWO »DATA = = FoR CHECKING STACK UNDERFLOW 
013345 4839 DATUM = =,BLOCK 4 FOR DATUM OR POINTER TO DATUM 
4840 ,E0T BAS1 


4000 »HBAD R R FOR RECURSION 


BAS 


015346 
015347 
015320 
915321 
015322 


915323 
015324 
915325 
915326 


00 
915327 
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R 


000000 
053315 
773327 
413257 
633316 


000000 
773327 
415275 
633323 


400 
013332 


013330 


9135330 
913334 
013332 


013332 
013333 
777377 


013333 


4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 


01305315 


ues & & & 


USH 


Use Ss € 
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STACK MANAGEMENT -- RECURSION CONTROL STACK 
»STITL STACK MANAGEMENT -- RECURSION CONTROL STACK 


THIS ROUTINE [S CALLED To PUSH THE DATUM IW RAC 
ONTO THE RECURSION CONTROL STACK, RSSTACK, 


0 

pac $DATUM SAVE DATUM FQR $PUSH 

LAW SDB~14 POINTER TO STACK DESCRIPTION BLOCK 
JMS $PUSM PUSH 

RET PUSH AND RETURN 


THis ROUTINE Is USED TO POP THE DATUM ON TAE 
TOP OF THE RECURSION CONTROL STACK INTO ReAc, 


0 

LAW SDB<4 POINTER TO STACK DESCRIPTION BLOCK 
JMS SPOP POP 

REY POP AND RETURN 


STACK DESCRIPTION BLOCK 


»EQU 490 STACK SIZ& 

,DATA = STACK INITIAL POINTER 

ees 

»DATA STACK=4 STACK POINTER 

~DATA = STACK BOTTOM POINTER 

eDATA “SIZE-4 ONE'S COMPLEMENT OF SIZE 
+BLQCK SIZE STACK 


Bad 0 0 FOR OPERATOR 


19 


BaS1 05/31/72 01305315  PDP-9 BASIC INTERPRETER PAGE 20 


te) STACK MANAGEMENT -» OPERATOR STACK 
43090 »STJTL STACK MANAGEMENT -- OPERATOR STACK 
4310 ° 
4320 * THIS ROUTINE IS CALLED Tq PUSH THE DATUM JW R-AC 
4330 * ONTO THE OPERATOR STACK, OSSTACK, 
4340 * 
015733 000000 4350 PUSH 0 
015734 053315 4369 pac SDATUM SAVE DATUM FOR $PUSH 
0143735 773744 4370 LAW SDB-4 POINTER TO STACK DESCRIPTION BLOCK 
015736 413257 4380 JmMs $SPUSH PUSH 
913737 633733 4399 RET PUSH ANB RETURN 
4400 ® 
4410 * THIS ROUTINE IS USED TO POR THE DATUM ON THE 
4420 * TOP OF THE OPERATOR STACK INTO RAC, 
4430 * 
915740 000000 4440 POP 0 
913741 773744 4450 LAW SDB=4 POINTER TO STACK DESCRIPTION BLOCK 
015742 413275 4460 Jms SPOP POR 
015743 633740 re P RET POP AND RETURN 
4490 * STACK DESCRIPTION BLOCK 
4500 * 
000100 4510 S}ZE .6QU 100 STACK SIZE 
915744 013747 4520 TRTR vDATA = STACK 4, INITIAL POINTER 
013745 4530 $08 eae 
815745 013747 4540 eDATA  =—s- STACK =4, STACK POINTER 
015746 013750 4550 »DATA = =STACK BOTTOM POINTER 
913747 777677 4560 sDATA = ~ SI ZE~4 ONE'S COMPLEMENT OF SIZE 
013750 4570 STACK ,BLOCK SJZE& STACK 


4580 ~MBad Vv V FOR VaRIABLE 


Bas 


05/31/72 
V 

914050 000000 
014051 053315 
014052 774061 
914053 113257 
914054 634050 
014055 900000 
014056 774961 
014057 413275 
914060 6340955 

000100 
014061 014064 

014062 
914062 014964 
014063 014065 
914064 777677 

014065 


4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4869 
4870 


01805315 


Us &  & 


USH 


Vests & 
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STACK MANAGEMENT -- VARIABLE STACK 
»STITL STACK MANAGEMENT -- VARIABLE STACK 


THIS ROUTINE [S CALLED TO pUSH THE DATUM IN R-~AC 
ONTO THE VARAIBLE STACK, VSSTACK, 


0 

Dac SDATUM SAVE DATUM FOR $PUSH 

LAW SOB-1 POINTER TQ STACK DESCRIPTION BLOCK 
JMS $PUSH PUSH 

Ret PUSH AND RETURN 


THIS ROUTINE Is USED TO POR THE DATUM ON THE 
TOP OF THE VARIABLE STACK INTO RwaC, 


0 

LAW SDB-4 POINTER TQ STACK DESCRIPTION BLOCK 
JMS SPOP POP 

RET POP AND RETURN 


STACK DESCRIPTION BLOCK 


,EQU 100 STACK SIZE 

,DATA = STACK #14 INITIAL POINTER 

ee 

,DATA = STACKw4 STACK POINTER 

,DATA = STACK BOTTOM POINTER 

,DATA «= =SIZE=4 ONE'S COMPLEMENT Of SIZE 
BLOCK SIZE | STACK 


~HEagd s 8 FOR STORAGE 


BaSi 


914165 
914166 
014167 
914170 
0144714 
914172 
914473 
014474 


05/31/72 
S 


000000 
777777 
354176 
741100 
214475 
054176 
354477 
634465 


000020 


914475 
614176 
9149177 

OL 


000017 
000000 


014200 
4200 


4880 
4890 
4900 
4910 
4920 
4930 
4949 
4950 
4960 
497Q 
4980 
4990 
3000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 


01505815 


“as e268 &€ & 


GMP 


PDP-9 BASIC INTERPRETER PAGE 22 
STORAGE MANAGEMENT -- TEMPORARY 

«STJTL STORAGE MANAGEMENT -~ TEMPORARY 

THIS ROUTINE ALLOCATES A TEMPORARY STORAGE CELL FOR 

THE RESULT OF A COMPUTATION, IT RETURNS a& POINTER IN 


ReAC TO THE BEGINNING OF THE ALLOCATED STORAGE. IT 
ALLOCATES THE CURRENT LOGIEGAL (ARITHMETIC) WORD SIZE, 


0 
LAW “UNIT DECREMENT THE CURRENT 
TaD TONT TEMPORARY POINTER 

SPA 1F WE'VE RUN OUT 

Lac TSIZE START OVER AGAIN 

Dac TONT SAVE NEW COUNT 

TaD TPRT RELOCATE BY BASE OF AREA 
RET TEMP RETURN 


TEMPORARY STORAGE ARGA 


sEQU 20 NUMBER OF TEMPORARY CELLS 

,DATA = TN@UNIT=UNIT SIZE OF TEMPORARY KREA 

,DATA =O CURRENT POINTER 

DATA gat PPOINTER TO TEMPORARY AREA BASE 
,BLOCK TNeUNTT TEMPORARY AREA 


ABAD P P FOR PARSE 
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Pp PARSER -- INITIALIZATION 
5120 »STITL PARSER -- INITIALIZATION 
5130 ® 
5140 & THIS ROUTINE IS USED To INITIALIZE THE SCAN OF 
5150 * A LINE. JTe 
5160 # 
5170 ® READS THE LINE 
5180 * INITIALIZES THE STACKS 
§190 * ENTERS THE PARSER 
5200 * 
014220 $210 PARSE ee 
019229 69412155 5220 JMS TESNLINE GET THE NEXT LINE 
914221 615644 by JMP ESNEND NO END STATEMENT 
524 * , 
$250 * INITIALIZE THE STACKS 
5260 * 
014222 2153327 3270 LAC RSIPTR RECURSION STACK 
014223 053330 5280 pac R$SDB SAVE 
014224 2000411 3290 Lac TSCHRX GET THE CHARACTER POINTER 
0142¢5 $300 PUSH R AND PUSH 
019226 215763 5310 Lac (SSSTATE) one 
044227 054263 5320 pac ALT » GET FIRST ALTERNATIVE 
014230 5330 PUSH R aoe 
014234 215764 5340 Lac (SSSTATES2) ace 
014232 054262 5359 pac PART ® GEY First PART 
014283 5360 PUSH R AND PUSH 
914284 213744 53370 Lac OSIPTR eee 
914235 053745 5380 DAG O$SS8DB # OPERATOR STACK 
014236 5390 PUSH R aee 
914257 214061 5400 Lac VSIPTR one 
914240 054062 3410 Dac VSSDB # VARIABLE STACK 
014241 8420 PUSH R one 


914242 614266 3430 JMP TEST ANB START IN THE MEDDBLE 


BaSi 


05/31/72 
fs) 


014243 
0149243 200041 
014244 
919245 214263 
014246 
014247 814262 
014250 
0142514 gis74s 
014252 


014253 314062 
014254 
014255 234262 
0194256 054263 
014267 355765 
914260 054262 
014261 614266 


014262 
014263 
014264 
014265 


5449 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
$660 
5670 
5680 
5690 
5700 


01405815 


& 
PUSH 


PDP-9 BASIC INTERPRETER 

PARSER -- PUSH ONTO FHE CONTROL STACK 
«STITL PARSER ~~ PUSH ONTO THE CONTROL STACK 
PUSH THE CURRENT STATE ONT@ THE STACK 


Lac TSCHRX THE SOURCE POINTER 

PUSH R PUSH 

Lae ALT GEY THE CURRENT ALTERNATIVE 
PUSH R AND PUSH 

Lac PaRT GET THE GURRENT PART 

PUSH R AND PUSH 

Lad O$SpB8 OPERATOR STACK POINTER 

PUSH R PUBH 

LAC V$SDB VARIABLE S¥ACK POINTER 

PUSH R PUSH 

Lae PART.X GET POINTER TO NEW TYPE 

pac ALT SAVE AS N&W ALTERNATIVE 

TaD (2) ANB MAKE POINTER TQ NEW PART 
Dae PART SAVE 

JMP TEST AND TEST THE NEW ONE 


ALTERNATIVE AND pART POINTERS FOR OUR USE 


sBLQCK 1 4h To CURRENT par’? 

sBLQCK 14 POINTER TO CURRENT ALTERNATIVE 
BLOCK 14 A LOCAL TEMPORARY 

eBLOCK 1 LAST PART RECOGNIZED 


PAGE 
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Pp 


014266 
914266 234262 
014267 7441100 
014270 614272 
014271 614243 


014272 
014272 5355766 
914273 614336 
014274 51141743 
§14275 054264 

014276 
914277 §54264 
914300 614336 


5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5610 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 


01905415 


‘—~+ &@& 8&8 8&8 &@ & & B&B 


EST 


2DP-9 BASIC INTERPRETER PAGE 
PARSER -- TEST 
.STITL PARSER -- TEST 


THIS ROUTINE IS USED To DECIDE WHETHER THE NEXT 
SYNTACTIC OBYJECT JS A TYPE OR AN ATOM, 


IF A TYPE -~ PUSH THE CURRENT STATE ONTO THE 
RECURSION CONTROL STACK AND TRY THE NEW TYPE, 


TF AN ATOM TRY TO MATCH -- ON SUCCESS GO TO TRY THE NEXT PART 
ON FAILURE -~ GO YO PSFAIL 


LAC PART,X GET THE NEW PART 

SPA SEE IF A LETERAL 

JMP MLIT YES -- TRY TO MATCA LITERAL 

JMP PUSH 1S A TYPE e- PUSH AND KEEP GOING 


NEXT QBYECT 1S AN ATOM -- TRY TO MATCH 


SAD (=1) IF EMPTY 

JMP TRUE WE ALWAYS MATCH 

AND TSFILL MASK THE LITERAL FEAG 

Hac TEMP AND SAVE 

CHAR GET A CHARACTER FROM THE SOURCE STRING 
Sad TEMP SER JF WE'VE MATCHED 

JMP TRUE YES -= SEE ABOUT TRE NEXY THING 
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p 


014301 
914301 234263 
014302 054263 
014303 744200 
014304 614324 


914305 777773 
014306 353330 
014307 040012 
014340 220012 
014321 040014 
014342 220042 
014343 220012 
914344 220042 
014345 053745 
014346 220012 
014347 054062 
014320 214263 
019321 955765 
014322 054262 
914323 614266 


014324 
014324 
014335 
014336 


014327 
014330 0954263 


014331 
eel 213330 
aragss 
914334 525335 
914335 reer 


04905115 


‘MSseesee_auese 


ALL 


s 


FpOp 


PDP~9 BASIC INTERPRETER PAGE 
PARSER ~- FAIL 

~STITL PARSER -~ FAIL 

THIS ROUTINE TRYS TO GET THE NEXT ALTERNAT&VE WHEN A&A MATCH 

PAILS, IF THERE ARE NO MORE ALTERNATIVES To THE CURRENY DEFINITION, 

1’ POPS THE CONTROL STaCk AND TRYS FOR MORE IN THAT ONE, 

IF WE GET BACK TO THE BOTTOM OF THE STACK, WE'VE FAILED UTTERLY, 


Fall. THROUGH FROM THE PREVIOUS PaGB OR CaLLS ITSELF, 


en? 


LAG ALT,™ GET THE NEXT ALTERWATIVE 

Bac ALT SAVE AS NEW ALTERNATIVE, MAYBE 
SNA SEE IF THERE WERE SORE 

JMP FPOP NO ~~ GO POP 


BACK Up AND TRY AGAIN 


LAW =§ ane 

Pad RSSDB « FUDGE A POINTER INTO TWE STACK 
Dae % : oun 

Lac XX GET THE OLR SOURCE POINTER 

Dat TSCHRX REBTORE [7 

Lag X,Xx IGNORE OLD ALTERNATIVE 

Lac X yx IGNORE OLD PART 

Lae X,X GET OLD OPERATOR STACK POINTER 
pac osspe RESTORE {Tf 

Lac x,Xx GEY OLD VARIABLE STACK POINTER 
Dac Y$S8DB8 RESTORE [T 

Lat ALT GEY THE ONE WE JUST FIGURED OUT 
fad (2) MAKE [7 POINT TO THE FIRST PaRT 
Dag PaRT AND SaVE IN PART POINTER 

JMP TEST YRY AGAIN 


TRY GETTING THE NEXT ALTERWATIVE FROM THE QNE ABOVE US 


POP R GET VARIABLE STAGK POINTER 
POP R GET OPERATOR STack POINTER 
POP R GE® PART POINTER 

POP R GET ALTERNATIVE POENTER 
Bac ALT AND USE [T 

PoP R GE¥ CHARACTER POINTER 

LAG R$SDa SEG IF WE'RE DONE 

SaD RSIPTR SEG IF AT THE BEGINNING 
JMP ESF al. WE BLEW IT 


JMP FAIL TRY AGAIN 


26 


BAS1 


05/31/72 
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014336 
019336 214262 
014337 054265 

014340 
0149340 454262 
0149341 234262 
014342 54064 
014343 14263 
014344 040012 
914345 220042 
014346 554262 
014347 634264 
914350 614266 


014351 
014351 
014352 
014353 
914354 054262 


014355 
014356 054263 
014357 
914360 213330 
014361 853327 
019362 614220 
914363 614340 


6440 
6450 
6460 
6479 
6480 
6490 
6500 
6510 
6520 
6530 
654 

655 

6560 
6570 
6580 
6599 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
67190 
6720 
6730 
6740 
6750 
6760 
6770 
6780 


01505815 


oes 28 & 


PDP-9 BASIC INTERPRETER 


/STITL 


PAGE 


PARSER -- SUCCESSFUL MATCH 


PARSER -~- SUCCESSFUL MATCH 


COME WERE ON A SUCCESSFUL MATCH 


oes 
LAC 
Dac 
1SZ 
Lac 
Bac 
LAC 
Dac 
Lac 
SaD 
JMP 
JMP 


PART 
LPART 


PART 
PART,X 
TEMP 
ALT 

x 

X»X 
PART 
TEMP + X 
TEST 


SAVE WHATEVER WE JySY MAYCHED 
IN CASE WE SHOULD WANT TO REFER TO IT 


INCREMENT PART POINTER 

GET THE POINTER TO THE SUCCESS ROUTINE (MAYBE) 
SAVE IT IN CASE IT 18 

oe 

« GET THE PART COUNTER 

eae 

SEG IF WE'RE DONE WITH THIS TYPE 

pO WHAT IT SAYS 

ELSE TRY TO MaTCH THIS PaRT 


CoME HERE AFTER DoING WHATEVER ACTION WAS MECESSARY 


pOp THE STACK AND GET THE NEXT pART OF THE CALLER 


Pop 
PoP 
PoP 
Bac 
PoP 
Dac 
PoP 
Lac 
SAD 
JMP 
JMP 
»HEAD 


POP THE VARIABLE STACK 
AND THE OPERATOR STack 
AND THE PART 

SAVE AS CURRENT PART 
GEF THE ALTERNATIVE 

AND SAVE AS ALTERNATIVE 
THROW AWAY THE SOURCE POINTER 
oe 

* BER JF WEtRE DONE 

ene 

TRY TO POP AGAIN 

{ FOR INTERPRETER 
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1 INTERPRETER -~ PRINT 
6790 SSTITL INTERPRETER -~ PRINT 
6800 * 
6810 ® THIS ROUTINE PRINTS THE VALUE OF THE THING 
6820 * POINTED TO BY THE TOP OF THE VARIABLE STACK 
6830 % 
014364 6840 PRINT eats 
014364 6850 POPY GET THE DATUM 
914367 414375 6860 Jms PRT CALL THE PRINT SUBROUTINE 
014370 411556 6870 JMS TSMESS PRINT CR/LF 
019371 0900015 6880 »DATA 015,042.14 


014372 000012 
914373 777777 
014374 614351 6899 JMP P$OK 


BaS1 05/31/72 013051315 PDP~9 BASIC INTERPRETER PAGE 


1 INTERPRETER -~ PRINT SUBROUTINE 
6900 ,STITL INTERPRETER -- PRINT SUBROUTINE 
6910 * 
6920 * THIS ROUTINE PRINTS THE VALUE OF R=AC ON ENTRANCE 
6930 & 
014375 000000 6940 PRT 0 
914376 054442 6950 pac NTEM SAVE IT 
914377 741200 6960 SNA SE& IF TO PRINT ZERO 
014400 614437 6979 JMP PRTQ YES 
9149401 740100 6980 SMA 
014402 614411 6990 JMP PRTA POSITIVE ~»* PRINT WO SIGN 
7000 * 
7010 ® HANDLE NEGATIVE NUMBERg 
7020 « ; 
014403 740001 7030 CMA MAKE THE NUMBER poSITIVE 
014404 054442 7040 pac NTEM SAVE IT BACK 
014405 744200 7050 SNA CHECK FOR ¥HE OTWER 2ERO 
014406 614437 7060 JMP PRTO PRINT A Z2GRO IF SO 
014407 760055 7070 Law 55 PRINT A ted 
0144140 7080 PRINT PRINT JT 
7090 * 
7100 * DIVIDE BY 10 AND STACK REMAINDER 
7110 « UNTIL A QUOTIENT OF 9 
7120 * 
014441 7130 PRTYA Kea 
9149444 777772 «+7140 LAW 6 SEY UP A COUNTER 
914442 054264 7150 Dac PSTEMP THR NUMBER OF DIGITS 
914493 214442 7160 Lac NTEM GET THE NUMBER 
014444 7170 PRT9 eek 
g1iass 74420 7180 SNA SER IF MORB TO DO 
14445 61442 7190 JMP PRYC NO 
014446 744900 7200 ofS CLEAR THE WINK 
014447 657323 7210 {D{vs DIVIDE 
914420 000012 7220 10: BY 10 
014481 7230 PUSH Vv PUT THE CHARACTER ON THE VARIABLE 
914422 6414002 7240 aca GET THE QUOTIENT INTO AC 
braces 454264 7250 182 PSTEMP COUNT THIS DIGIT 
14424 614444 7260 JMP PRTB 1F MORE ROOM -~ LOOP 
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| INTERPRETER ~~ PRINT SUBROUTINE 
7270 ,EVECT 
7280 « 
7290 “ PRINT THE DIGITS WE STACKED 
7300 * 
014425 7310 PRIC eee 
0149425 214264 7329 Lac PSTEMP aoe 
014426 355752 7330 Fad (5) # SEE HOW MANY TO PRINT 
014427 74990 7349 CMA oe 
814430 054264 7359 pac PSTEMP SAVE THE COUNT 
014431 7360 PRTD on 
014431 7370 POP Vv aos 
014432 355767 7380 Tad (60) » PRINT THE DIGIT 
014433 7390 PRINT ate 
014434 454264 7406 182 PSTEMP sEG IF Done 
019435 614434 7410 JMP PRTD No -~ GET ANOTHER 
0144396 7420 PRTYX i 
014436 634375 7430 Ret PRY AND RETURN 
014437 7440 PRITQ at 
8149437 760060 7450 LAW 60 GET A ZERO 
014440 7460 PRINT PRINT IT 
914441 614436 7470 JmMP PRTX AND &XIT 
014442 7480 NTEM ~BL0CK 1 TEMPORARY FOR NUMBERS 


014443 7490 TEM »BLOCK 1 TEMPORARY FOR DEREFERENCING VARIABLES 


BAS) 


0144 

0144 
014447 

0144 
914450 


914484 
914452 
914453 
014454 
014465 
0144656 
014457 
014460 
014461 
0144 
014462 
014463 
014464 
014465 
914466 
914467 


05/31/72 


! 


44 
44 
054442 
50 
215760 


144454 


040042 
214442 
560012 
614462 
2200142 
741200 
615666 
300012 
614454 
62 

777777 
340042 
040047 
614351 
000009 
000000 


7500 
7510 
7520 
7530 
7540 
7550 
7560 
7580 
7582 
7590 
76, 

761 

7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
7740 
7742 
7744 


917505315 


Qeses 


O70 


GOTE 
GQTA 


GQTX 


{TEMO 
ITEML 


PDP-9 BASIC INTERPRETER 


JSTITL 


PAGE 


INTERPRETER -~- GOTO 


INTERPRETER -- GOTO 


THIS ROUTINE SETS UP A TRANSFER OF CONTROL TO 
THE LINE WHOSE NUMBER 1S ON THE TOP OF THE VARIABLE STACK 


eee 
POPY 
Dac 
eve 
LAC 
eee 
Dac 
LA 
SAD 
JMP 
LAC 
SNA 
JMP 
ADD 
JMP 
soe 
aw 
Tad 
DAC 
JMP 
i] 

0 


NTEM 
(TSSBFR=1) 
Xx 

NTEM 

XX 

GOTX 

XX 

ESUND 

x 

GOTA 


~4 


GET THE LINE NUMBER 
SAWE [Tf 


GEY THE BUFFER POINTER 


SAVE IT 

GEY THE LJNE NUMBER 

SEE IF WE MATCH 

YES «~ EX]? 

GET THE LENGTH OF THIS LINE 
SER IF WE!RE pAST THE END 
UNDEFINED LINE NUMBER 

AND A POINTER TO TRE NEXT ONG 
ANB LOOP 


DECREMENT ¥FTHE POINTER BY ONE 

SO THAT IT IS PROPER FOR THIS LINE 
SET THE N@W LINE 

ANB EXIT 
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014470 
014470 
014473 054442 
014474 
019477 054467 


014500 
914503 954466 
014504 
01950905 954264 
014596 634264 


014507 
019507 314466 
614590 §54467 
014541 614450 
9149542 614354 


014543 
014543 214467 
014544 740004 
914545 314466 
914546 614522 


014547 
014547 314466 
914520 6740001 
014591 314467 

014532 
019522 741100 
914523 614459 
019524 614354 


014525 
019525 214467 
014526 540000 
914527 614354 
914530 614450 


7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7849 
7850 
7860 
7870 
7880 
7890 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
6090 
6100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 


01705 


-_ & & & & 


s s 
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PDP=9 BASIC INTERPRETER 


THIS ROUTINE DETERMINES FHE TRUTH OR FALSITY oF A 


INTERPRETER ~- IF 


INTERPRETER -- IF 


he ae 
CONDITIONAL 
a 

POPV 

pac NTEM 
POPYV 

pac ITEM, 
POPV 

Dac ITEMO 
POR 0 
Dag PSTEMP 
MP PSTEMP,X 
a 

eo 

Lac 17EMO 
SAD 1TEmM4 
JMP GOTE 
JMe P$OK 
r 

e298 

Lae ITEM4 
CMA 

ADD ITEMO 
ume IFA 

> 

eee 

Lac ITEMO 
CMA 

apd ITEM 
SPA 

ume GOTE 
Jue P$OK 
q> 

e998 

Lac ITGM4 
SaD 

uMP PSOK 
JMP GOTE 


GET THE LINE NUMBER 


SAVE IT FOR THE TRANSFER ROUTINE 
GET THE RIGHT RESULT 


SAWE IT 
GET THE LEFT RESULT 
Sawe [7 


aude 


# BRANCH ON THE CONDITIONAL 


eee 


GEy fHE LEFT HALF 
COMPARE 

EQWAL 

NO? GQUAL 


GET RIGHT RESYLT 
COMPLEMENT 
SUBTRACT FROM LEFT 
AND DQ COMPARE 


GE? LEFT RESULT 
COMPLEMENT 
SUBTRACT FROM RIGHT 


COMPARE 
TRUE 
FALSE 


GET RIGHT RESULT 
COMPARE 

FaLSé 

TRUE 


PAGE 
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BAS+ 
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014531 


014531 


612178 


8270 
8280 
8290 
8500 
83510 
83520 


01905315 


® 
END 


PDP-9 BASIC INTERPRETER 
INTERPRETER -- STOR/END 
,STITL INTERPRETER -- STOP/END 
THIS ROUTINE HANDLES A STop oR END INSTRUCTIOQN 


MP TSMON EXIT TO THE MONITOR 


PAGE 
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014532 
014532 


9149533 0954264 


014534 


014535 054442 
14536 334264 
014537 074442 
014540 614351 


8330 
8340 
8350 
8360 
8370 
8380 
83990 
8400 
8419 
8420 
8430 
8440 
8450 
8460 


04905115 


SIGN 


PDP-9 BASIC INTERPRETER 
INTERPRETER «= ASSIGN 
»STITL INTERPRETER -- ASSIGN 
THIS ROUTINE [S CALLED To ASSIGN THE VALUE oF 
THE THING POINTED TO BY THE TOP ELEMENT OF THE 
VARJTABLE STACK TO THE NEXT TO TOP ELEMENT OF THE STACK, 


PoP Vv GET THE POINTER FROM WHICH TO ASSIGN 
DAC PSTEMP SAWE [T 

POP v GET THE POINTER TO ASSIGN 

Dac NTEM SAME IT 

Lac PSTEMP,X GEY THE VALUE 

Dac NTEM,X REPLACE IT 

UMP PSOK AND EXIT 


PAGE 
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014541 


0149541 
014542 


414165 
054442 


014543 


9149546 
014547 
014550 
914554 


01 
014553 


740200 
740004 
074442 
214442 


4552 
614351 


8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 


01405815 


NMIN 


PDP~9 BASIC INTERPRETER 


SSTITL 


INTERPRETER -- UNARY MINUS 


INTERPRETER -~ UNARY MINUS 


THIS ROUTINE NEGATES THE Top DATUM oF THE VARIABLE 
IT ALSO MAPS +9 INTO PLUS 0 


STACK, 


eee 
JMS 
Dac 
POPV 
SZA 
CMA 
Dac 
Lac 
PUSH 
JMP 


SSTEMP 
NTEM 


NTEM,X 
NTEM 

V 

PS$OK 


GET A TEMPORARY FOR THE RESULT 
SAVE THE POINTER 

POR THE VARIABLE 

IF TWO'S ZERO -- DON'T NEGATE 
NEGATE 

SaVE THE NEW VALUE 

GE? THE REFERENCE 

AND PUSH IT 

EXIT 


PAGE 
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014554 
919554 4114755 
914555 015150 
014556 114165 
0149557 054442 

014560 
014561 7414200 
914562 6145714 

014563 
914566 740200 
914567 740001 
014570 614574 

014571 

014571 


014574 
014574 074442 
014575 
914600 $34442 
014601 
p14603 07444 
14602 21444 
014603 
014604 614266 


8620 
B630 
8640 
8650 
8660 
8670 
8680 
8690 
8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 
8799 
8800 
8810 
8820 
8830 
8840 
8850 
8860 
8870 
8880 
8890 
8900 
8910 


01505315 


>see esos ¢ 


ARTHX 


PDP-9 BASIC INTERPRETER 


INTERPRETER ~~ ADD 


+STITL INTERPRETER -~ ADD 


THIS ROUTINE FORMS TWE SUM oF THE ToR 4 OR TWo OBVECTS 


ON THE VARIABLE STACK, 


1T DECIDES HOW MANY AND 


WHETHER TO ADD OR SUBTRACT BASED ON THE TOP OF TWE OPERATOR 


STACK, 

eos 

JMS ITER 
»DATA SS$STAG, 
JMS S$TEMP 
Dac NTEM 
PoP 0 

SNA 

wJMP ADL 
POPV 

SZA 

CMA 

JMP AD2 
eg 

POPY 

eee 

pac NTEM,X 
POPY 

ADD NTEM,X 
eeg 

Dac NTEM,X 
LAG NTEM 
PUSH Vv 

JMP PS$TEST 


SEG IF WE!VE ITERATED 


GET A TEMPORARY FOR YHE RESULT 
SAWE THE POINTER 

GEF THE OPERATION 

SEG IF + OR ~ 

PLUS 

GET TWE SECOND TERM 

DON'T NEGATE IF ZERO 

NEGATE IT 


GET THE SECOND TERM 


SAVE IT 
QEf FIRST TERM 
ADB THEM 


SAVE THE RESULT 
GEF POINTER 

AND STACK IT 
AND EXIT 
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014605 
914605 114755 
914606 015176 
919607 114165 
914640 054442 

014641 


014632 9315770 
014693 054264 
0149644 234264 
014645 054632 


014616 
014621 054264 
014622 
914625 074442 
914626 214264 
£14627 664000 
914630 054633 
p3653 234442 
14632 657122 
914633 600000 
014634 641002 
019635 614601 
014636 657122 
914687 657323 


8920 
8930 
8940 
8950 
8960 
8970 
898) 
8990 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
91410 
9120 
9430 
9140 
9450 
9160 
9170 
9480 
9190 
9200 


01205915 


Zzeseess8s 


NLT 
MUL. 


MULY 


INST 


PpP-9 BASIC INTERPRETER 


PAGE 


INTERPRETER -- MULTIPLICATION 


~STUTL 


INTERPRETER -~ MULTIPLICATION 


THIS ROUTINE IS CALLED Tq CoMpUTE THE PRODWCT oF THE 


LAST N OBJECTS ON THE 


JMS ITER 
»DATA SSPTAG, 
Jus SS TEMP 
DAC NTEM 
PoP 0 

add CINST) 
Dac Pg$TemP 
Lac PSTEMP,X 
Dac MULY~4 
POPY 

Dae PSTEMP 
POPV 

Dac NTEM,X 
Lac PSTEMP 
Gs™ 

Dac MULY 
LAG NTEM,X 
MULS 

»DATA 0 

Laca 

JMP ARTHX 
MULS 

1OtVvs 


VARIABLE STACK 


THIS MAY BE ITERATED 


ASSIGN A TEMPORARY 

SAWE THE POINTER 

GEY THE OPERATION 

ene 

# GET THE ACTUAL INSTRUCTION 
eae 

SAVE 7O EXECYTE 

GET THE MULTIPLIER/DIVISOR 
Save [Tf 

GET THE MULTIPLICAND/DIVIDEND 
SAVE [T 

RESTORE MULTIPLIER/DIVISOR 
GEF ITS SIGN 

SAVE IT FOR THE OPERATION 
RESTORE MULTIPLICAND/DIVIDENT 
MULTIPLY/DEIVIDE 
MULTIPLIER/DIVISOR 

GET THE RESULT 

AND EXIT 

MULTIPLY INSTRUCTION 

DIVIDE INSTRUCTION 
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9210 

9220 . 

9230 * 

9240 . 
014640 9250 EXp 


019640 414755 9260 
014641 015224 92709 EXP, 


PDP-9 BAS]C {NTERPRETER 

INTERPRETER -~ EXPONENTIATION 
»STITL INTERPRETER ~-- EXPONENTIATION 
THIS ROUTINE IS CALLED TO COMPUTE POWERS 
eee 


JMS ITER THIS MAY BE ITERATED 
»DATA SSFTAG, 


PAGE 
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014642 
014642 454647 
014643 
914643 214647 
014644 
914645 454647 
014646 614351 
914647 000000 


9280 
9290 
9300 
9510 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 


01705815 


OP 


PDP-9 BASIC INTERPRETER 
INTERPRETER -- STACK AN OPERATOR 
»STITL INTERPRETER ~~ STACK AN OPERATOR 


THIS ROUTINE IS CALLED TO STACK AN OPERATOR ONTO 
THE OPERATOR STACK, 


eee 

182 oP SET FLAG FOR AN [NVERSE OPERATION 
Lac op GE? THE OPERATION Cone 

PUSH ) PUSH IT 

ozM oP CLEAR THE CODE BACK 70 0 

MP PS$OK AND EXIT 


xX 
DATA 0 OPERATOR CODE 


PAGE 
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014650 454660 
014651 454660 
014652 454660 
014653 
014653 234660 
014654 
014655 215771 
014656 054669 
014657 614351 
0149660 014661 
014661 
014661 014507 
014662 014513 
014663 014547 
014664 014525 


9410 
9420 
9430 
9440 
9450 
9460 
9470 
9489 
9490 
9500 
9510 
9520 
9530 
9540 
9550 
9560 
9570 
9580 
9590 


01305415 


RTA3 


PDP-~9 BASIC INTERPRETER 
INTERPRETER -- STACK A RELATIONAL 
~STITL INTERPRETER -- STACK A RELATIONAL 


THIS ROUTINE JS USED Tq STACK THE RELATIQNAL gPERATORS 


182 ROP NOY EQuaL. 

1$Z ROP GREATER (>) 

182 ROP LESS (¢) 

tac ROP, X GET THE OPERATOR 

PUSH 0 PUSH ON THE OPERATOR STACK 
LAG (RTAB) REINITIALIZE THE POINTER 
Dac ROP REPLACE 

JMP P$OK AND EXIT 

,DATA #4 RELATIONAL OPERATOR 

ee 

»DATA = EQ EQUAL 

»DATA LESS LESS 

»DATA GTR GREATER 


,DATA NEG NOF EQUAL 


PAGE 
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014665 
014665 
914666 355772 
014667 
014670 614354 
014671 


9600 
9610 
9620 
9630 
9640 
9650 
9660 
9670 
9680 
9690 
9700 


01705315 


STK 


VTa3 
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INTERPRETER -- STACK A VARIABLE 
~STITL INTERPRETER -- STACK A VARIABLE 


THIS ROUTINE IS CALLED TO PLACE A VARIABLE ON THE 
VARIABLE STACK, MAPPING IT APPROPRIATELY, 


CHAR GET THE VARIABLE NAME 


TAD (VTAB=101) MAKE POINT TO THE TABLE 
PUSH v PUBH ONTO THE STACK 

JMP PSOK 2aND EXIT 

,BLOCK 26, THE VARIABLE AREA FoR now 


PAGE 
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1 INTERPRETER -~ STACK A DIGIT 
9710 ~STITL INTERPRETER -= STACK aA DIGIT 
9720 * 
9730 P THIS ROUTINE IS CALLED To STACK A DIGIT ON THE VARIABLE 
9740 « STACK, IT DIFFERS FROM VSTK ONLY IN THAT IT DOESN'T MAP 
9750 * THINGS 
9760 sd 
014723 9770 OSTK a 
014723 9780 LOWAR GET THE DIGIT 
014724 9790 PUSH V STACK [{T 


014725 614351 9800 JMP P$OK AND EXIT 


BaS1 
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014726 
9149726 114165 
0147p7 954264 

014730 
019734 214442 
9149732 074264 
919733 614354 


014734 
014734 
014735 515773 
014736 054442 
014737 614354 


014740 
014740 114755 
914741 015305 
914742 744000 
914743 214442 
914744 453122 
914745 000012 

014746 
819747 845773 
914760 054442 
914751 641002 
914762 314442 
914763 054442 
914754 614266 


04:05%315 


9810 
9820 
9839) 
9840 
9850 
9860 
9870 
9880 
9890 
9900 
9910 
9920 
9930 
9949 
9950 
9960 
9970 
9989 
9999 
10000 
10010 
10020 
40050 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
40110 
10120 
10150 
10140 
10150 
10160 
40170 


VALS 


PDP-9 BASIC INTERPRETER PAGE 
INTERPRETER -- EVALUATE A NUMBER 
~STITL «INTERPRETER -- EVALUATE A NUMBER 


THIS ROUTINE EVALUATES THE LAST N DIGITS ON THE 
VARTABLE STACK AS A NUMBER 


JMS SSTEMP aoe 

Dac Pg$TEMP | # GET A TEMPORARY CELL AND STACK POINTER 
PUSH Vv ane 

Lac NTEm ane 

pac PSTEMP,X # SAVE THE VALUE IN THE TEMPORARY 

JMP PSOK one 


THIS ROUTINE IS FOR THE FIRST DIGIT 


POP V oot 

AND (47) # GET AND SAVE THE FIRST DIGIT 
Bac NTEM ote 

JMP P$OK 


THIS ROUTINE I8 FOR ALL OTHER DIGITS 


JMS ITER SEG IF WE ARE ITERATING 

,DATA  -SSDTAG, 

CL CLEAR THE LINK 

LAG NYEM eee 

tb » SHIFT PREVIOUS TOTAL OVER FOR NEW ONE 
ere 

POP V GEY THE DIGIT 

AND (47) MASK TO THE DIGIT 

pac NTEM ate 

aca # ADD THE PREVIOUS YO THE NEW 

ADD NTEM one 

pac NTEM RESTORE 


JMP PS$TEST AND TRY AGAIN 
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! INTERPRETER -~ SEE IF A FIELD JS I¥ERATED 
40180 ~STITL INTERPRETER -- SEE IF A FIELD JS ITERATED 
40190 = # 
40200 * THIS ROUTINE CHECKS FOR AN ITERATED FIELD BY 
40210 « SEEING IF THE LAST MATCH WAS CEMPTYD 
40220 866 ; 
914765 900000 10250 ITER f 
014786 214265 10240 Lac PSLPART GET THE LAST PART MATCHED 
919757 574755 40250 gaD ITER,X SEE IF Was EMPTY OF THING WE TRIED FOR 
914760 614351 19260 JMP P$OK YES -- NO MORE 
014761 40270 $08 PSPART ELSE SUBTRACT ONE FROM PART 
919764 777774 40280 LAW 4 aun 
914765 353330 410290 Tad R$8pp « GET A POINTER TO THE SOURCE POINTER IN THE STACK 
014766 054264 40300 pat PSTEMP eee 
014767 200041 40310 Lac TSCHRX GET THE CURRENT SOURCE POINTER 
019770 6074264 10320 Dac PSTEMP,X FUDGE THE STACK 
019774 214755 40330 ac ITER oee 
014772 040042 40340 ac X # RETURN 


014773 @20042 40350 RET x eee 


BaS1 05/31/72 01305915 PDP-9 BASIC INTERPRETER PAGE 45 


| INTERPRETER -- EXIT 
10360 eSTITL «INTERPRETER -- EXIT 
10370 * 
10380 THIS ROUTINE IS A TEMPORARY COMMON EXIT FOR 
40390 * THE INTERPRETER, 
40400 & 
014774 40410 EXIT er 
919774 111556 10420 ums TSMESS 
8919775 000015 104350 DATA 15+12,-1 


914776 000012 

019797 777777 

015000 614354 10440 JMP PSOK AND REALLY EX]T 
10450 ,HEAD «6S 8 FOR SYNTAX 


BaSi1 


05/31/72 
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400035 
977797 


015001 


919001 
015002 
015003 
015004 
915005 
015006 
m7 007 
915040 
515044 
9150492 
915043 
915044 
015045 
015046 
915047 
015020 
915021 
915022 
015023 
§15024 


015005 
015004 
015025 
014351 
015041 
015040 
015034 
014354 
015015 
015044 
015046 
014354 
015024 
015020 
015057 
014351 
000000 
015024 
015116 
014354 


015085 


015025 
015026 
915027 
915030 
915031 
9150382 
9150383 


000000 
015033 
400114 
400105 
400124 
015125 
014354 


015034 


915034 
815035 


900000 
015045 


01705415 


10460 
10470 
10480 
40490 
10500 
10510 
10520 
40530 
10540 
£0550 
10560 
10570 
10580 
10590 
10600 
40610 
40620 
40650 
40640 
106350 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 


meeseeese Se eeaan see &B 
o 


L 
EMPTY 


STATE 


LETS 


PRINT 
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DEFINITION -- SYNTAX TABLE 

»STITL DEFINITION -~ SYNTAX TABLE 

THES TABLE IS DER] VED FROM aA BNF SYNTAX FOR a SUBSET 

OF BASIC, IT IS COMPOSED OF ENTRIES JN THE FOLLOWING 

FORMAT! 

WORD 0 POINTER TO NEXT ALTERNATIVE DEFINITION 


0 INDICATES THAT THIS IS THE LAST 
WORD 4 NUMBER OF PARTS TO THIS ALTERNATIVE 


WORD 2 
‘ PARTS ~~ POINTERS TO OTHER DEFINITIONS OR LITERAL 
: CHARACTERS. LITERALS FLAGGED NEG&STIVE, 


WORD N 
WORD N+1 POINTER TO ROUTINE ON SUCCESSFUL RECOGNITION. 


DEFINITION -» SpECIAL SYNTAX SYMBOLS 


EQU = 400015 END oF LINE -- LITERAL CR 
EQN) -777777—C—™ EMPTY ~- A DISTINCTIVE LITERAL 
,E0T  BASSYN — 

eof 

,DATA 94 POINTER TO NEXT ALVERNATIVE 
,DATA—, 82 NUMBER OF PARTS 

,DATA = LETS 

,DATA —- PSOK 

DATA, #4 POINTER YO NEXT ALTERNATIVE 
sDATA =, #2 NUMBER OF PARTS 

,DATA PRINT 

,DATA = PSOK 

,DATA 04 POINTER TO NEXT ALTERNATIVE 
wDATA #2 NUMBER OF PARTS 

,DATA GOTO 

,DATA = PSOK 

,DATA go POINTER TO NEXT ALTERNATIVE 
,DATA #2 NUMBER OF PARTS 

sDATA OIF 

»DATA = PSOK 

»DATA 0 LAST ALTERNATIVE 

,DATA #2 NUMBER OF PARTS 

»DATA END 

,DATA —- PSOK 

$e? 

»DATA 0 LABT ALTERNATIVE 

wDATA =, #5 NUMBER OF PARTS 


wDATA = 400114 

sDATA = 400105 

,DATA 490124 

»DATA ASIGN 

»DATA = PSOK 

e*¢ 

»DATA 0 LAST ALTERNATIVE 
,DATA #8 NUMBER OF PARTS 
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015036 
015037 
015040 
015041 
015042 
915043 
015044 
015045 
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400120 
400122 
400111 
400116 
400124 
015134 
400015 
014364 


015046 


915046 
015047 
915050 
015061 
015052 
015053 
015084 
015055 
915066 


000000 
015056 
400107 
400117 
400124 
A00117 
015266 
400015 
014444 


015087 


015087 
015060 
015061 
015062 
015063 
915064 
915065 
915066 
015067 
915070 
615071 
015072 
915073 
915074 


000000 
015074 
400141 
400106 
015134 
015075 
015134 
400107 
400117 
400124 
400117 
015266 
400045 
014470 


015075 


915075 
015076 
015097 
015400 
015401 
915102 
915103 
015104 
015105 
915106 
915197 
§15190 
§15141 
015142 
015143 
015144 
915145 


015101 
015400 
400075 
014683 
0135106 
0135105 
400074 
400076 
014650 
015412 
015441 
400074 
014652 
000000 
015115 
400076 
014654 


015146 


9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9410 
9420 
9430 
9440 
94590 
9469 
9470 
9480 
9499 
9500 
9510 
9520 
9530 
9540 
9550 
9560 
9570 
9580 
9599 
9600 
9610 
9620 
9630 
9640 
9650 
9660 
9670 
9680 
9690 
9700 
9740 
9720 
9730 
9740 
9750 
9760 
9770 
9780 
9790 
9800 
9810 
9820 
9830 


04505315 


GOTO 


VF 


RELOP 


END 
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»DATA 
»DATA 
sDATA 
sDATA 
»DATA 
eDATA 
»DATA 
»DATA 
| 

»DATA 
»DATA 
eDATA 
»DATA 
sDATA 
»DATA 
eDATA 
»DATA 
»DATA 
es 

.DATA 
»DATA 
»DATA 
DATA 
»DATA 
»DATA 
DATA 
»DATA 
sDATA 
sDATA 
»DATA 
»DATA 
»DATA 
eDATA 
gee 

,»DATA 
»DATA 
eDATA 
»DATA 
»DATA 
»DATA 
»DATA 
eDATA 
eDATA 
;DATA 
»DATA 
DATA 
»DATA 
»DATA 
DATA 
sDATA 
»DATA 


DEFINITION -- SYNTAX TABLE 


400120 
400122 
400111 
400116 
400124 
SUM 

EQL 
ISPRINT 


0 

.*7 
400107 
400117 
400124 
400117 
NUM 
EOL 
1$GOTO 


0 

0014 
400111 
400106 
SUM 
R&LOP 
SUM 
400107 
400117 
400124 
400117 


400074 
ISRLES 
0 

+%2 
400076 
ISRGTR 


LAST ALTERNATIVE 
NUMBER OF PARTS 


LAST ALTERNATIVE 
NUMBER OF PARTS 


POINTER TQ NEXT 
NUMBER OF PARTS 


POINTER TO NEXT 
NUMBER OF PARTS 


POINTER TO NEXT 
NUMBER OF PARTS 


LAST ALTERNATIVE 
NUMBER OF PARTS 


ALTERNATIVE 


ALTERNATIVE 


ALTERNATIVE 


PAGE 
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915146 
015447 
919120 
015421 
015122 
015123 
015124 
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000000 
015424 
400105 
400116 
400104 
400015 
014531 


015145 


giSaee 
915126 
015127 
015130 
915431 
015132 
015433 
015 
015134 
915135 
815136 
915137 
915140 


000000 
015133 
015262 
400075 
015134 
400015 
014532 


134 


000000 
015140 
015162 
015144 
014554 


015141 


9154481 
915142 
915143 
015144 
915145 
015146 
015147 
915150 
015161 


015146 
015145 
015152 
015162 
014334 
000000 
015154 
777777 
0143514 


015152 


915152 
915153 
015454 
919155 
915166 
§15187 
915160 
917161 


015156 
015155 
400053 
014643 
000000 
015161 
400055 
014642 


015162 
819162 900000 
915163 015166 
615164 015210 
915165 015467 
915166 014605 

015167 
915167 015474 
915170 015473 
919171 015200 
015172 015210 
919173 9143514 


01705415 


9849 
9850 
9860 
9879 
9889 
9890 
9900 
9940 
9920 
9930 
9940 
9959 
9960 
9970 
9980 
9990 
40000 
40010 
40020 
40050 
10040 
40050 
40060 
40070 
£0080 
40090 
40100 
40110 
10120 
40190 
410140 
40150 
10160 
10170 
40180 
10190 
10200 
10240 
40220 
40230 
10240 
10250 
10260 
40270 
10280 
10290 
40390 
10340 
40320 
103350 
40340 
10350 


ASIGN 


SUM 


STAG 


STAG, 
ADDOP 


PROD 


PYAG 


PDP-9 BASIC INTERPRETER 


DEFINITION -- SYNTAX TABLE 


eDATA 0 
»DATA 05 
»DATA 400105 
DATA 400116 
»DATA 400104 
eDATA EQL 
»DATA ISEND 


»DATA 0 
eDATA 105 
»DATA VAR 
»DATA 400075 
»DATA SUM 
sDATA EQL 
eDATA ISASIGN 
eee 

»DATA 0 
»DATA 143 
»DATA PROD 
eDATA STAG 
»DATA ISADD 
e998 

eDATA A) 
»DATA o3 
sDATA ADDOP 
»DATA PROD 
sDATA P$OK 
»DATA 0 
»DATA .*2 
DATA EMPTY 
»DATA P$OK 
Lan 

,DATA 04 
»DATA ,%2 


eDATA 400053 
»DATA ISOPSTK 
«DATA 0 

»DATA 12 
»DATA 4900055 
DATA ISINSTK 


eDATA 0 
»DATA 2%3 
»DATA FACT 
»DATA PTAG 
eDATA ISMULT 
ee 

»DATA 65 
»DATA 43 
»DATA ML OP 
»DATA FACT 


+DATA P$OK 


LAST ALTERNATIVE 
NUMBER OF PARTS 


LABT ALTERNATIVE 
NUMBER OF PARTS 


LAST ALTERNATIVE 
NUMBER OF PARTS 


POINTER TO NEXT ALVERNATIVE 
NUMBER OF PARTS 


LAST ALTERNATIVE 
NUMBER OF PARTS 


POINTER TO NEXT ALTERNATIVE 
NUMBER OF PARTS 


LAST ALTERNATIVE 
NUMBER OF PARTS 


LAST ALTERNATIVE 


NUMBER OF PARTS 


POINTER TO NEXT ALTERNATIVE 


NUMBER OF PARTS 


PAGE 
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015174 
915175 
915176 
915177 
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000000 
015177 
7777797 
014354 


015200 


015200 
915201 
915202 
015203 
015204 
915205 
015206 
015207 


015204 
015203 
400052 
014643 
000000 
015207 
400057 
014642 


015240 


915240 
915241 
915242 
915243 
915244 


000000 
015214 
015232 
015215 
014640 


013245 


915245 
915246 
gi2387 

15220 
015224 
915222 
015223 
015224 
015225 


015222 
015221 
015226 
015232 
014354 
000000 
015225 
777777 
014354 


015226 


915226 
915227 
915230 
915234 


000000 
015234 
400156 
014643 


015282 


915232 
915233 
015234 
915235 
915236 
915237 
915240 
915241 
919242 
015243 
915244 
915245 
915246 
915247 
015250 
015254 
015252 


015240 
015237 
400050 
015134 
400054 
014354 
015244 
015243 
015262 
014354 
015259 
015247 
015266 
014354 
015255 
015254 
400055 


01°05115 


10360 
40370 
10380 
10390 
10400 
40410 
10420 
40450 
40440 
40450 
40460 
40470 
40480 
40490 
40500 
40510 
40520 
405350 
40540 
10550 
40560 
40570 
405680 
40590 
40600 
10610 
10620 
40630 
40640 
40650 
10660 
40676 
40680 
40690 
40700 
40710 
40720 
40730 
10740 
40750 
40760 
10770 
40780 
40790 
10800 
10840 
10820 
40830 
10840 
10850 
10860 
40870 


PYAG, 


ML OP 


FACT 


FTAG 


FTAG, 
BXPOP 


SAE 


PDP-9 BASIC INTERPRETER 


DEFINITION -+ SYNTAX TABLE 


» DATA 0 LAST ALTERNATIVE 

»DATA +2 NUMBER OF PARTS 

eDATA EMPTY 

»DATA PSOK 

eee 

»DATA 4 POINTER TO NEXT aLTERNATIVE 
»DATA 2 NUMBER OF PARTS 


»DATA 400052 

»DATA ISOPSTK 

»DATA 0 LAST ALTERNATIVE 
DATA 2#2 NUMBER OF PARTS 
»DATA 400057 

DATA ISINSTK 


»DATA 0 LAST ALTERNATIVE 
DATA 243 NUMBER OF PARTS 
,DATA SAE 


.DATA 205 POINTER TO NEXT ALTERNATIVE 
DATA 243 NUMBER OF PARTS 
DATA EXPOP 

DATA SAE 

»DATA PSOK 

DATA 0 LAST ALTERNATIVE 
DATA +2 NUMBER OF PARTS 
DATA EMPTY 

»DATA PSOK 

ers 

DATA 0 LAST ALTERNATIVE 
DATA +%2 NUMBER OF PARTS 


,DATA 490136 


see 
DATA +46 POINTER TQ NEXT ALTERNATIVE 
»DATA 04 NUMBER OF PARTS 

»DATA 400050 

»DATA SUM 

eDATA 400051 

eDATA P$OK 

eDATA +04 POINTER TO NEXT AL FERNATIVE 
»DATA + *2 NUMBER OF PARTS 

eDATA VAR 

»DATA P$OK 

sDATA 1 o4 POINTER TO NEXT ALVERNATIVE 
»DATA .o2 NUMBER OF PARTS 

» DATA NUM 

eDATA P$OK 

»DATA 05 POINTER TO NEXT ALTERNATIV 
aDATA 03 NUMBER OF PARTS me 


PAGE 
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015253 
915264 
915255 
915256 
015257 
915260 
915261 
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015232 
0145414 
000000 
015261 
400053 
015232 
014354 


015262 


015262 
915263 
015264 
915265 


0 
915266 
915267 
915270 
919271 
915292 


915273 
915294 
9152975 
915276 


915277 
91°300 
915304 
915302 
915303 
015304 
915305 
619306 


000000 
015265 
015357 
014665 


15266 


000000 
015272 
019273 
015277 
014726 


013273 


000000 
013276 
0135307 
0147354 


015277 


013303 
0159302 
015307 
014740 
000000 
015306 
777777 
014354 


013307 


915307 
915340 
015341 
915392 
919343 
915394 
915345 
015346 
919347 
919320 
919321 
915322 
915323 
915324 
915325 
615326 
915327 
915330 
015331 


015343 
015312 
400060 
014723 
015317 
015316 
400064 
014723 
019323 
015322 
400062 
014723 
019327 
015326 
400063 
014723 
015333 
015332 
400064 


01605115 


10880 
40890 
40900 
10910 
10920 
40930 
10940 
10950 
40960 
409706 
10980 
10990 
41000 
41010 
41020 
11050 
41040 
41050 
11060 
41070 
11080 
11090 
41100 
£1110 
11120 
44150 
11140 
11150 
£1160 
41170 
41180 
11190 
41200 
412140 
41220 
112350 
11240 
11250 
11260 
41270 
11280 
11290 
11500 
113510 
11320 
41350 
11340 
11350 
11360 
11370 
11386 
11390 


DMEAD 


DTAG 


DYAG, 
O1GsT 
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eDATA 
»DATA 
»DATA 
»DATA 
DATA 
»DATA 
»DATA 
»DATA 
eDATA 
sDATA 
ere 

eDATA 
eDATA 
eDATA 
eDATA 
eDATA 
eee 

»DATA 
»DATA 
sDATA 
»DATA 
ere 

»DATA 
»DATA 
»DATA 
»DATA 
eDATA 
2DATA 
»DATA 
DATA 


DEFINITION -=- SYNTAX TABLE 


SAE 
ISUNMIN 
0 


°#3 
400053 
SAE 
PSOK 


0 

»%2 
Lat 
ISVSTK 


0 

63 

DHE AD 
DTAG 
ISEVALS 


0 

+#2 
DIGIT 
ISGVAL1 


74 

+42 
DIGIT 
ISEVAL2 
0 


¢2 
EMPTY 
PSOK 


o @4 
+%2 
400060 
ISDSTK 
1o4 
+42 
400061 
ISO0STK 
104 
»#2 
400062 
ISDSTK 


LAST ALTERNATIVE 
NUMBER OF PARTS 


LAST ALTERNATIVE 
NUMBER OF PARTS 


LAST ALTERNATIVE 
NUMBER OF PARTS 


LAST ALTERNATIVE 
NUMBER OF PARTS 


POINTER TQ NEXT ALVERNATIVE 
NUMBER OF PARTS 


LAST ALTERNATIVE 
NUMBER OF PARTS 


POINTER TO NEXT ALVERNATIVE 
NUMBER OF PARTS 


POINTER YO NEXT TER 
NUNGER OR PARTE” NATIVE 


POINTER TQ NEXT ALTERNATIVE 
NUMBER OF PARTS 


POINTER TO NEXT ALTERNAT 
NUMBER OF PARTS Pe 


POINTER TO NEXT AL PERNATIVE 


NUMBER OF PARTS 
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915332 
915333 
015334 
915335 
915336 
915337 
915340 
015341 
915342 
915343 
015344 
915345 
915346 
Riese: 

15360 
015351 
019352 
815363 
915384 
915365 
915386 
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014723 
015337 
015336 
400065 
014723 
015343 
015342 
400066 
014723 
015347 
015346 
400047 
014723 
015353 
0135352 
400070 
014723 
000000 
015356 
400071 
014723 


015387 


915367 
915360 
015361 
015362 
915363 
915364 
915365 
015366 
015367 
915370 
015371 
915372 
919373 
015374 
915395 
915376 
015377 
815400 
915401 
915402 
915403 
915404 
915405 
915406 
915407 
915440 
019441 
919442 
8154493 
15444 


015363 
013362 


015416 


04405815 


LET 


PDP-9 BASIC INTERPRETER 


DEFINITION -= SYNTAX TABLE 


ISDSTK 
+4 


,#2 
400066 
1SDSTK 
+4 
42 
400067 
ISDSTK 
+4 
62 
400070 
1SDSTK 
0 

42 
400074 
ISDSTK 


POINTER TO NEXT ALTERNATIVE 
NUMBER OF PARTS 


POINTER TO NEXT ALTERNATIVE 
NUMBER OF PARTS 


POINTER TO NEXT ALVERNATIVE 
NUMBER OF PARTS 


POINTER TQ N&XT ALTERNATIVE 
NUMBER OF PARTS 


LAST ALTERNATIVE 
NUMBER OF PARYS 


POSNTER TQ NEXT ALTERNATIVE 
NUMBER OF PARTS 


POINTER TQ NEXT ALVERNATIVE 
NUMBER OF PARTS 


POUNTER TQ NEXT ALVERNATIVE 
NUMBER OF PARTS 


POENTER TO NEXT ALTERNATIVE 
NUMBER OF PARTS 


POINTER TO NEXT ALVERNATIVE 
NUMBER OF PARTS 


POINTER TO NEXT ALTERNATIVE 
NUMBER OF PARTS 


POINTER TO N&XT ALVERNATIVE 
NUMBER OF PARTS 


POINTER TQ NEXT ALVERNATIVE 
NUMBER OF PARTS 
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915445 
915446 
915447 
915420 
0145421 
§15422 
915423 
915424 
015425 
915426 
915427 
915430 
9154381 
915432 
019433 
015434 
919435 
919436 
915437 
615440 
015441 
015442 
015443 
615444 
615445 
015446 
915447 
015460 
015451 
915452 
015463 
915454 
019455 
915456 
915457 
915460 
019461 
815462 
915463 
915464 
015465 
915466 
915467 
915470 
019474 
917472 
915473 
915474 
015475 
915476 
912477 
915500 
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400110 
014351 
015423 
015422 
400111 
014351 
019427 
013426 
400112 
014351 
015433 
013432 
4001138 
014354 
013437 
015436 
400144 
014351 
015443 
015442 
400115 
014351 
015447 
015446 
400116 
014354 
015453 
015452 
400147 
014354 
015457 
013456 
400120 
014351 
015463 
015462 
400124 
014351 
0153467 
013466 
400122 
014354 
015473 
015472 
400123 
014351 
015477 
015476 
400124 
014351 
015503 
015502 


01305345 


11920 
119390 
11940 
41950 
41960 
41970 
41980 
41990 
42000 
42010 
42020 
42030 
42040 
42050 
12060 
42070 
12080 
42090 
12100 
42110 
42120 
12130 
42140 
12130 
12160 
42170 
12180 
42190 
42200 
42210 
42220 
42230 
42240 
42250 
42260 
42270 
42280 
42290 
42300 
42310 
12320 
423350 
42340 
42350 
42360 
42370 
42380 
42390 
42490 
12410 
12420 
424350 
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»DATA 
eDATA 
»DATA 
»DATA 
»DATA 
»DATA 
»DATA 
eDATA 
eDATA 
»DATA 
»DATA 
»DATA 
sDATA 
»DATA 
DATA 
» DATA 
eDATA 
»DATA 
»DATA 
~DATA 
»DATA 
»DATA 
DATA 
+DATA 
eDATA 


DEFINITION -~ SYNTAX TABLE 


400110 
PSOK 
744 
+#2 
400111 
P$OK 
704 
+%2 
400112 
P$OK 
a4 
12 
400113 
P$OK 


POINTER TQ NEXT 
NUMBER OF PARTS 


POINTER TO NEXT 
NUMBER OF PARTS 


POSNTER TQ NEXT 
NUMBER OF PARTS 


POENTER TO NEXT 
NUMBER OF PARTS 


POINTER TO NEXT 
NUMBER OF PARTS 


POINTER TO NEXT 
NUBBER OF PARTS 


POINTER TO NEXT 
NUMBER OF PARTS 


POINTER TO NEXT 
NUMBER OF PARTS 


POINTER TQ NEXT? 
NUMBER OF PARTS 


POINTER TO NEXT 
NUMBER OF PARTS 


POINTER TO NEXT 
NUMBER OF PARTS 


POINTER TO NEXT 
NUMBER OF PARTS 


POINTER TQ NEXT 
NUMBER OF PARTS 


ALVERNATIVE 


ALTERNATIVE 


AL FERNATIVE 


ALTERNATIVE 


ALTERNATIVE 


ALTERNATIVE 


ALTERNATIVE 


AL FERNATIVE 


ALTERNATIVE 


ALTERNATIVE 


ALTERNATIVE 


ALTERNATIVE 


ALTERNATIVE 
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015501 
917502 
015503 
915504 
015505 
915506 
015507 
915540 
015541 
915542 
015543 
915544 
915545 
615546 
915547 
915820 
015524 
915522 
015523 
015524 
015525 
015526 


05/31/72 
) 


400125 
0143514 
015507 
015506 
400126 
014351 
015513 
015512 
400127 
014354 
ere 

15546 
400430 
014354 
015523 
015522 
400131 
014351 
000000 
015526 
400132 
014351 


01405815 


42440 
12450 
12460 
42470 
42480 
42490 
42500 
42540 
42520 
12530 
42540 
42550 
12560 
42570 
12580 
42590 
42600 
42610 
42642 
142644 
42646 
42648 
42620 
42000 
42010 
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DATA 
»DATA 
+DATA 
»DATA 
+DATA 
»DATA 
eDATA 


DEFINITION -- SYNTAX TABLE 


400125 
P$OK 
04 
~*2 
400126 
PSOK 


SAVE,OFF 


POINTER TO NEXT 
NUMBER OF PARTS 


POINTER TQ NEXT 
NUMBER OF PaRTS 


POINTER TQ NEXT 
NUMBER OF PARTS 


POINTER TQ NEXT 
NUMBER OF PARTS 


LAST ALTERNATIVE 
NUMBER OF PARTS 


E FOR ERROR 


ALTERNATIVE 


ALTERNATIVE 


ALTERNATIVE 


ALTERNATIVE 


PAGE 
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E ERROR MESSAGE ROUTINES 
12020 ,STITL ERROR MESSAGE ROUTINES 
42050 * 
42040 * THESE ROUTINES SEND ERROR MESSAGES FOR BOTH USER 
42050 * AND BASIC GENERATED ERRORS, 
42060 = 
015527 42070 ERROR yo, 
915597 4207 MESS < AT LINE > 
0154p fi224o 1207 Lac TSLNUM GET THE LINE NUMBER 
015543 414375 420738 ums ISPRT PRINT IT 
915544 411556 12080 Jms TSMESS one 
019545 Q00012 12090 sDATA =: 1215 # SEND A CR/LF 
915546 000045 
915547 777777 42100 777777 eee 
815550 612173 ey JMP TS§MON AND EXIT TO THE MONITOR 
a 
42130 0=0* PARSER ERROR 
42140 * 
015594 42150 PARSE ‘cen 
015581 12160 MESS CPARSER ERROR> 
015567 615527 42170 JMR ERROR EXIT 
42180 * 
12190 * STACK OVERFLOW 
42200 8» 
sisshe, tases "tks 
015570 122% MESS. <EXPRESSION TOO COMPLICAT 
015624 615527 42230 JMP ERROR aa einer 
422400 
42250 = ® USER FAILED 
12260 = 4 
015625 42270 = Fag. ves 
015685 42280 MESS <SYNTAX ERROR> 
915643 615527 12290 ume ERROR EXIT 
42300 830s 
42310 & END IS NOT LAST 
42320 * 
015644 42340 MESS <END JS NOT LAST 
015665 615527 42359 JMP ERROR. ne 9 
42360 =® 
423700 WNOEFINED LING NUMBER 
42380 = # 
015666 42390 8©=©6UND <a 
015666 42400 MESS <UNDEFINED LINE NUMBER> 
0157495 615527 42410 JMP ERROR 


42420 »HEAD 0 
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01 
015746 
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9746 
700416 


015747 
015724 
015731 


015747 


919750 
0157614 
015762 
015753 
015764 
915755 
B15766 
015757 
015760 
015761 
015762 
915763 
015764 
015765 
0145766 
915767 
915770 
045774 
015772 


- 915773 


919774 
015775 
015776 


612175 


000030 
000137 
000005 
000045 
0114716 
000012 
000040 
015000 
012240 
000122 
000414 
015004 
015003 
000002 
977777 
000060 
014636 
014664 
014570 
000047 
000000 
000000 
0000 


015777 
TRANSFER ADDRESS 


014057¢15 


12450 
12440 
12450 
42460 
12470 
12480 
12462 
12484 
12490 
42500 
12510 
42520 


12530 


WP 


TaIS 


613726. 


PDP~9 BASIC INTERPRETER 
RUN TIME JNITIALIZATION 
eSTITL RUN TIME INITTALIZATION 
THIS ROUTINE INITIALIZED THE INTERPRETER 


eee 
LS 10 MAKE THE TYY FLAG COME UP 
MESS <>. CRLF GE? A FRESH LINE 

MESS <>,CRLF AND ANOTHER 

MESS senate HERE>, CRLF 


JMP TSMO ANp START UP THE PROGRAM 
PMC RESTORE 

re 

vEND SUP 
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DATUM 4830 
E WND 12390 
E FAIL 12270 
E NEND 12330 
E SOvF 12210 
EERROR 12070 
EPARSE 12150 
! x 300 
l Y 310 
I Z 320 
I EQ 7950 
I 1F 7800 
if oP 9400 
1 ADS 8810 
I ADde2 8830 
I ADD 8690 
1 END 8310 
I &XP 9250 
I GTR 8110 
1 IFA 8150 
I NEQ 8220 
I PRT 6940 
1 REQ 9480 
1 ROP 9540 
I TEM 7499 
I DSTK 9779 
1 EXIT 10410 
1 EXP, 9270 
1 GOTA 7600 
1 GOTE 7582 
1 GOTO 7550 
1 GOTX 7700 
I INST 9190 
1 ITER 10230 
I LESS 8030 
1 MUL, 8999 
1 MULT 8970 
I MULY 9160 
I NTEM 7480 
1 PRTQ 7440 
1 PRTA 7130 
I pRTB 71470 
1 PRYC 7310 
I PRIYD 7360 
I] PRYX 7420 
I RGTR 9460 
I RLES 9470 
I RNEQ 9459 
I RTAB 9550 


01505015 


4510 
7670 
4420 
3230 
4500 
12470 
2110 
7610 


9560 
9640 
9340 
8760 
8800 
10040 
9900 
10540 
9580 
8070 
9§90 
3820 
9690 
9450 
6850 
8770 
112490 


7690 
7980 
9490 
7640 
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4680 


12230 
4730 
7630 


9360 


6860 
9460 
6850 


8770 
11280 


8170 


8989 


9130 
7040 
886 


7060 


CROSS REFERENCE TABLE 


4710 


12290 
7650 


9380 


7430 
9479 
7560 


8620 
11320 


8260 


9260 


7460 
8889 


4750 


12350 
7680 


12073 


9490 
7560 
8820 
11360 


10050 


7580 
8899 


4770 


12440 
7720 


9520 
7840 
8850 
11400 


10250 


7620 
9040 


4070 


10340 


7840 
8850 
11440 


10330 


7820 
9100 


4360 4650 
10350 

7830 7830 

9070 9070 
11489) =—6 11520 

8430 8450 

9149 9900 


7850 
9090 
11560 


8540 
9999 


7850 
9990 
11600 


8580 
10880 


8550 


8599 
10150 
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8550 


8730 
10150 


BaS2 


14665 
144714 
14604 
14532 
147354 
14740 
14786 
14642 
14466 
14467 
14643 
14364 
445414 
13334 
13740 
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1 VSTK 9650 
1 vTaB 9700 
LARTHX 8870 
LASJGN 8390 
TEVALS 9960 
1EVAL2 10040 
TEVALS 9660 
LINSTK 9330 
LU T§MO 7742 
LITEMS 7744 
1OPBTK 9350 
IPRINT 6840 
IUNMIN 8520 
MTWO 4820 
oO POP 4440 
0 6808 4530 
O IPTR 4520 
0 PUSH 4350 
0 SIZE 4510 
OSTACK 4570 
P 3090 
P Y 310 
P Z 320 
P OK 6660 
P a~ALT 8680 
P FAIL 6070 
P FPOP 6330 
P MLIT 5900 
P PART $670 
p PUSH §480 
P TEMP 53699 
P TEST $820 
P TRYA 6510 
P TRUE 6480 
PLPART 8700 
Op 4649 
PPARSE $210 
PUSH 4420 
R POP 4159 
R §&DB 4249 
R IPTR 4230 
R PUSH 4060 
R SIZE 4220 
RSTACK 4280 
+} IF 9500 
S TN 5060 


01705115 


10990 
9670 
9160 
9980 

11100 

11150 

11050 

10230 
7860 
7840 

10190 
9390 

10890 
4720 
4470 
4370 
5370 
4390 
4560 
4520 
6170 


6890 
19000 
10390 
11810 
12290 

5320 

6430 

6110 

5650 

3350 
10270 

$860 

5940 

8440 

5430 

4770 

53920 

6500 

4780 

3670 

4540 

4180 

4080 

5270 

41400 

4270 

4230 

91450 

5070 
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10480 
7960 
7970 

10440 


7870 
4450 


9370 
4570 
4540 
6180 


7740 
10260 
10600 
11850 
12330 

5540 


5530 


$960 
9040 
5630 


5979 
10240 
4170 
6760 
4090 
6340 
4160 
6440 
5300 
4280 
4250 


5100 


CROSS REFERENCE TABLE 


8060 
8040 
10690 


8740 
5380 


9500 


4550 
6200 


7990 
10440 
10640 
11890 
12370 

5600 


5590 


6540 
9050 
6290 


4460 


4380 
6359 
5280 
6750 
5330 


4260 


8120 
8140 


9020 
5550 


6210 


8180 
9040 
10760 
11930 
12410 
6080 


5620 


6599 
9980 
6600 


4750 
4670 
6360 
6160 


5360 


8230 


6230 


6220 


8250 
9080 
10880 
11970 
12460 
6090 


5830 


7150 
9110 
89140 


6379 
6400 


5399 


6240 


8460 
9120 
10840 
12010 
12490 
6260 


6260 


7250 
9680 
10170 


6399 
6740 


5420 


6560 


86%0 
9140 
10940 
12050 
12530 
6380 


6490 


7320 
9910 


6675 
10290 


5500 


6570 


9390 
9200 
11190 
12090 
12570 
6550 


6520 


7350 
10300 


6689 


5520 


9530 
9280 
11650 
12130 
12610 
6720 


6530 


7400 
10520 


6699 


5540 


9690 
10100 
11690 
12170 
12618 

6580 


7880 


6740 


5560 


9800 
16140 
11730 
12210 


6700 


7899 


6730 


5589 
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10350 
11770 
12250 


10270 
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12053 
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S END 9830 
S EOL 10630 
S$ LE’ 11610 
S NUM 14000 
S SAE 40700 
S $uM 9999 
S VAR 10950 
S DTAG 14110 
S FACT 10490 
S FTAG 10550 
S GOTO 9400 
S LETS 9210 
S MLOP 10400 
S PROD 10240 
S PTAG 10300 
$ STAG = 10050 
S TONT 5080 
S TEMP 4959 
§ TPRT 5090 
$ UNIT 210 
SADDOP 10150 
SASIGN 99140 
SDHEAD 14060 
SDIGIT 14200 
SDTAG 14180 
SEMPTY 10640 
SEXPOP 10650 
SFTAG 10630 
SPRINT 9290 
SPTAG 10380 
SRELOP 9650 
SSTAG, 10130 
SSTATE 9000 
sTSizeé 5070 
rT Xx 300 
Y Y 310 
tT 2 320 
YT €&OL 4690 
tT IBN 4890 
T MON 580 
T MSA 9140 
T MSX 970 
T RDA 4190 
T TEM 2449 
T WRU 4810 
T BACK 1560 
T BSBF 3110 
T CHAR 2080 
T CHRX 270 
rT FILL 4880 
T GNUM 2280 
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9480 
9620 
10590 
9550 
10790 


10340 


10090 
5000 
a530 
5070 


14140 
10380 


$340 
2430 


3740 


1650 
2320 


2760 
2150 
1330 
5290 
1260 
2390 


CROSS REFERENCE TABLE 


9630 
10830 


10680 
9579 


8720 
5070 


106350 


3500 


3800 


1830 
2350 


29990 
2290 
1580 
5490 
3340 
2400 


9890 


10930 
9960 


9000 
5100 


141480 


3510 


8320 


23570 


3020 
2800 
1610 
6190 
3390 
2530 


9970 


10740 


9870 


12140 12500 


2420 2640 


2860 3860 5950 

1720 1740 4760 2090 3270 
10310 

5930 

2570 


3350 


3400 
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CROSS REFERENCE TABLE 


11744 TT IBLN 1900 1120 
11720 T IBuUF 1940 1590 4910 
12062 TLINA 2560 2660 
12074 T LINB 2700 2580 
12194 T LINC 2790 29140 
12105 T LIND 2810 2780 
12095 T LINE 2510 3030 3070 3100 3620 
12117 Y LINF 2960 2850 2880 
12126 Y LINX 3040 2540 
13247 T LISA 3850 3900 
132414 T LIST 3780 3690 3940 
13254 T LIJSX 39140 3890 
12240 T LNUM 3720 3220 3810 12072 
11556 Y MESS 870 880 900 1420 1510 1820 3590 6870 10420 42071 12089 12160 12220 
12280 12340 12400 12482 12484 12490 
11737 T MONE 4930 920 4570 1620 4730 2180 
12190 T NLNA 3310 3430 
12164 T NLNX 3440 3370 3420 
11532 Y READ 4110 1520 4770 2520 
12244 Y S@FR 3730 3060 3600 3630 7590 
47 = SBUF 280 2720 2730 2740 2900 2980 3020 3050 3080 3090 3210 3230 3320 
3610 3640 7730 
12054 T TEMS 2450 2550 2600 2650 2710 2830 2890 2970 
3o 8 TYyYx 260 890 950 1000 
11643  TCTRLX 4500 128 1600 
15737 =THIS 42530 
11746 8©TIBENT 4920 4130 4340 1630 1640 
11715 TIBrPT 4910 4140 4750 3260 3470 
12052 TLCMAR 2220 2140 2770 3650 9660 9780 
12135 TNLING 3170 3250 3490 3790 5220 
11554 TPRINT 630 670 940 990 1710 3840 3870 3930 7080 7390 7460 
1576 uP 12470 460 12530 
14055 vy POP 4730 4760 6850 7370 7560 7840 7830 7850 8400 8420 8550 8779 8820 
6850 9070 9090 9970 10140 
14062 VY gDe 4820 4660 4740 5410 5570 6250 
14064 V IPTR 4610 5400 
14050 V PUSH 4640 4680 7230 8600 8900 9680 9790 9890 
100) =6V SIZE 4800 4650 4860 
14065  ySTACK 4860 4e10 4830 4840 
42x 300 4430 4450 44860 4490 4650 4670 4690 
43COY 310 4440 4530 4660 4760 


a4 Zz 320 4460 4520 
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CHAR 
LGHAR 
MESS 
POP 


POPY 
PRyNT 
PUSH 


§95s 


2020 
2190 

779 
4180 


4240 
570 
4080 


360 


01905315 


2290 
9660 
1510 
6340 
7560 
9020 
6850 

940 
5300 
8900 

10270 
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2800 
9780 
1820 
6350 
7840 
9070 
7560 

999 
83330 
9370 


MACRO CROSS REFERENCE TABLE 


2860 


3599 
6360 
7830 
9090 
7810 
1710 
5360 
9500 


3860 


12071 
6370 
7850 
9970 
7830 
3840 
5390 
9680 


5950 


12160 
6390 
7870 

10140 
7850 
3870 
5420 
9790 


12220 
6670 
8400 


8550 
3930 
3500 
9890 


12289 
6680 
8420 


8770 
7080 
5520 


12340 
6690 
8550 


8820 
7390 
5540 


12400 
6710 
8740 


8850 
7460 
5560 


12482 
6730 
8770 
9070 


5580 


12484 
6850 
8820 
9090 


7230 
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12499 
7370 
8850 


8600 


60 


